#local a=-48;#local b=-48;light_source{99-198*z,rgb 1}union{#while(b<=48)#while(a<=48)superellipsoid{<.2,.2>scale 1+2*y#local c=sqrt(a*a+b*b)/6;pigment{rgb<(cos(c)+1)/2,(sin(c)+1)/2,(sin(4*c)+1)/2>}finish{phong 1phong_size 75}translate<a,3*sin((.99*clock*2*pi)-sqrt(a*a+b*b)/3)-3,b>}#local a=a+2;#end#local a=-48;#local b=b+2;#end rotate.99*90*clock*y rotate-45*x translate z*20}fog{rgb<1,.9,.7>distance 75}