light_source{y-4*z,.4}camera{rotate x*30}plane{y,-1pigment{rgb.5+z}normal{waves}}#macro P(c,r)sphere{y,1scale<r,r*3,1>/99rotate<4.5*r,c*360/(40-r),0>pigment{rgb x+y*r/16}translate 2*z-y}#if(c)P(c-1,r)#end#end#local r=20;#while(r)P(40-r,r)#local r=r-1;#end