#local C=clock*pi;#macro B(N,F)sphere{0F/7 1scale 1-pow(I.5)translate-I*F*x rotate y*N*90rotate-N*x*pow(5I)*10*sin(I*2-C*8+i)scale.2+x*.8translate-x}#end#local i=C;#while(i<2*pi+C)#local I=0;blob{#while(I<1)B(1,7)B(-1,7)B(0,3)#local I=I+.01;#end rotate<-90cos(i*3)*-45i*pi*36>translate<sin(i)+2*sin(2*i)5+cos(i)-2*cos(2*i)3*sin(3*i)+7>*2rotate x*37pigment{slope y}}#local i=i+pi/8;#end light_source{<0,60,99>1spotlight}media{intervals 6scattering{2rgb<.1.2,1>/99}}