This is how short I can get it.
It looks different but maybe you won't care.
Maybe you can find shorter numbers than 20267520 and 300 (here: 600)

#local R=1;light_source{-5R}#macro A(B,V)#while(B-1)#if(V>=B)#local
V=V-B;sphere{<3-ln(B)R+R 6>.4pigment{rgb<0R 1>+(x-z)*ln(B)/5}}#end#local
B=B/2;#end#end#local Z=seed(20267520);#while(R>0)A(256rand(Z)*600)#local
R=R-.4;#end//TMelly

-- 
merge{#local i=-11;#while(i<11)#local
i=i+.1;sphere{<i*(i*i*(.05-i*i*(4e-7*i*i+3e-4))-3)10*sin(i)30>.5}#end
pigment{color.6}interior{media{emission x}}hollow}//  Mark Weyer

Post a reply to this message