#default{pigment{rgb<1,1,.5>}finish{brilliance 3 reflection.3 phong 1}}light_source{2,1}#declare a=21;#declare X=0;union{sphere{0,.5}#while(X<2*pi)#declare k=cos(a*X);union{difference{box{<-1,-1,-1><1,1,1>}box{<-.9,-.9,-.9><.9,.9,.9>pigment{rgb 0}}
sphere{0,1.2}}sphere {0,1 pigment{rgb<2,clock*2,0>} finish{ambient.5+k diffuse.3}}scale.04 translate <sqrt(1-cos(clock*2*pi+a*X))*cos(clock*pi+X),sqrt(1-cos(a*X))*sin(clock*pi+X),k> rotate k*45*z}#declare X=X+.002;#end rotate 30*x translate <0,-.2,3.6>}