"Warp" <war### [at] tagpovrayorg> wrote in message
news:3d399369@news.povray.org...

>   What a waste of space.
>
> light_source{-9rgb 1}#macro A(V,B,C,R)#if(B-256)#if(V-128/B>=0)
> #local V=V-128/B;box{0,1pigment{rgb 1}translate<C-4R,9>}#end A(
> V,B*2C+1R)#end#end A(234,1,0,1)A(85,1,0,0)A(81,1,0,-1)//TomMelly
>

I can honestly say that I would never have thought of that (even ignoring
the ability to drop commas which I didn't know about and confused the hell
out of me on first reading).

BTW you can lose 3 more chars - light_source{-9 1} also seems to work.

Here's my final version with some added cover (I've adopted your comma
trick)

#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