Variation on my usual sig.

Can anyone shorten it? (btw this is what I was mucking around with rand for the
other day).

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


--
#macro A(V,B,C,R)#while(B-256)#if(V-128/B>=0)sphere{0,.5translate<C-4R-1,9>
pigment{rgb<1-C/8R/2C/8>}}#local V=V-128/B;#end#local B=B*2;#local C=C+1;#
end#end A(234,1,0,2)A(85,1,0,1)A(81,1,0,0)light_source{-5 1}//Tom Melly

Post a reply to this message