....but it won't be today.

(but I can get rid of F if I find a different seed for the same sequence, but
whose next value is 2, not 1 - that'll have to wait for tonight)

Heh, spent awhile with #macro H()#local#end and couldn't figure out why it
didn't work - doh.

#macro H()#declare#end#macro A(B,C)cone{0,0y.1rotate z*C*-90pigment{rgb D/6}
translate B}#end H()D=<-2,1,6>;H()E=seed(20960);H()F=11;#while(F)H()G=int(3*
rand(E));A(D,G)H()D=D+<1-abs(G-1),1-G,0>;H()F=F-1;#end light_source{1,1}//TM


--
#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