3d/pr/entdecker/entdecker.pov

50 lines
691 B
POVRay

#include "arkon_texture.pov"
#declare hangar_neg =
difference {
cone {
<0, 0, 0>, 900,
<0, 115, 0>, 900
}
cone {
<0, 0, 0>, 900-140,
<0, 115, 0>, 900-140
}
}
#declare entdecker =
union {
difference {
sphere {
<0, 0, 0>, 900
}
object {
hangar_neg
translate <0, 10, 0>
}
object {
hangar_neg
translate <0, -10-115, 0>
}
texture { pigment { color Red } }
}
intersection {
sphere {
<0, 0, 0>, 901
}
union {
cone {
<0, 500, 0>, 900,
<0, 600, 0>, 900
}
cone {
<0, -500, 0>, 900,
<0, -600, 0>, 900
}
}
texture { pigment { color Yellow } }
}
}