Quelltext:

#declare R=1;
#declare Kugel=sphere {<0,0,0> R texture {Blood_Marble} finish{phong 0.7} }
#declare w=union {object {Kugel translate <0,4,0 >}
                  object {Kugel translate <3,1,0 >}
                  object {Kugel translate <-3,1,0>}
                  object {Kugel translate <5,7,0 >}
                  object {Kugel translate <-5,7,0>}
                  
                  object {cylinder {<-3,1,0> <-5,7,0> R}texture {Blood_Marble}finish{phong 0.7}}
                  object {cylinder {<-3,1,0> <0,4,0> R} texture {Blood_Marble}finish{phong 0.7}}
                  object {cylinder {<3,1,0> <0,4,0> R}  texture {Blood_Marble}finish{phong 0.7}}
                  object {cylinder {<3,1,0> <5,7,0> R}  texture {Blood_Marble}finish{phong 0.7}}
                  }

#declare Cylinder=union {object {cylinder {<-7,0,0> <7,0,0> 0.5} texture { Brushed_Aluminum }finish{phong 0.7} }
                         object {sphere {<-7,0,0> 0.5}texture { Brushed_Aluminum }finish{phong 0.7}}
                         object {sphere {<7,0,0> 0.5}texture { Brushed_Aluminum }finish{phong 0.7}}
                         }
                                
//_______________________________________________________Sterne  

#declare SKegel = cone {<0,0,0>R*2<0,R*6,0>0 pigment {color Red} finish {phong 0.7}}

#declare Stern = union{
object {SKegel}
object {SKegel rotate x*90}
object {SKegel rotate x*90*2}
object {SKegel rotate x*90*3}
object {SKegel rotate z*-90}    
object {SKegel rotate z*90}
}  
//__________________________________________________Ende Sterne


object {w translate <0,1,0>  rotate clock*x*-180*2}
object {Cylinder}
object {Stern rotate z*45 translate<-16,0,0> rotate <clock*-180*2,0,0>}    
object {Stern rotate z*45 translate< 16,0,0> rotate <clock*-180*2,0,0>}