#macro P(n,e,q)pigment{rgbt<1,4,5,1>/5*n}finish{diffuse q/2reflection.1*q}hollow interior{media{emission e}}#end#macro Y(n,N,B,C)#if(n<N)box{-1,1translate B rotate 20*sin(c)-15*cos(c)rotate C*n}Y(n+1N,B,C)#end#end sphere{0,35inverse#local r=<18,20,3>;P(.2,0,1)normal{granite 5scale 39}rotate#local c=clock*2*pi;y*c*9}merge{Y(1,72x*5r+sin(c)*z)P(3.5.2,4)}light_source{6,1}sphere{0,8P(1,.01,0)pigment{rgbt 1}}union{Y(2,79r*.7r*11)scale.7P(x+y,x/5,4)}camera{location-z*25}