Tom Melly <tom### [at] tomandlucouk> wrote:
> #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

  This is not only shorter, but I would say that a lot more obfuscated
as well:

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


-- 
#macro N(D)#if(D>99)cylinder{M()#local D=div(D,104);M().5,2pigment{rgb M()}}
N(D)#end#end#macro M()<mod(D,13)-6mod(div(D,13)8)-3,10>#end blob{
N(11117333955)N(4254934330)N(3900569407)N(7382340)N(3358)N(970)}//  - Warp -

Post a reply to this message