On Fri, 14 Feb 2003 12:03:58 -0000, "Tom Melly" <tom### [at] tomandlucouk> wrote:
> Can anyone shorten it?

#macro A(C,V,B)#if(B-256)#if(V-128/B>=0)#declare V=V-128/B;sphere{<C-4R
9>.5pigment{rgb<1-C/8R/2C/8>}}#end A(C+1,V,B*2)#end#end light_source{-5
1}#local R=2;#local Z=seed(20267520);#while(R+1)A(0int(rand(Z)*//TMelly
300)1)#local R=R-1;#end

ABX

Post a reply to this message