Tom Melly wrote:
> 
> ....but it won't be today.
> 
> [...]
> 
> #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

You will have to find a new appropriate seed for this version but apart
from that...:

light_source{1,1}#macro R(D,F,G,E)cone{0,0y.1rotate-90*z*G 
pigment{rgb D/6}translate D}#if(F)R(D+<1-abs(G-1),1-G,0>,F-
1,int(3*rand(E)),E)#end#end R(<-2,1,6>,10,2,seed(20960))//TM

Christoph

-- 
POV-Ray tutorials, include files, Sim-POV,
HCR-Edit and more: http://www.tu-bs.de/~y0013390/
Last updated 31 Dec. 2002 _____./\/^>_*_<^\/\.______

Post a reply to this message