On Fri, 14 Mar 2003 23:36:58 -0000, James Taylor wrote:

> #macro _(j,M)#while(j<M)cylinder{0,y .1translate 5*z rotate 360/M*j*z
> pigment{rgb<.6,.6,.8>/sqrt(j)}finish{ambient 1}}#local j=j+1;#end#end
> #local i=0;#local N=20;_(1,N)#while(i<N)union{_(1,N) translate 2*y
> rotate 360/N*i*z}#local i=i+1;#end//jim

#macro _(j,M)#while(j<M)cylinder{z*5y+5*z.1rotate 360/M*j*z pigment{rgb 2
*(3+z)/sqrt(j)}}#local j=j+1;#end#end#local i=0;#local N=20;_(1N)#while
(i<N)union{_(1N)translate 2*y rotate 360/N*i*z}#local i=i+1;#end//jim

-- 
light_source#macro G(E)sphere{z+E*y*5e-3.04rotate-z*E*6pigment{rgbt#end{
20*y-10#local n=162;1}#while(n)#local n=n-.3;G(n)x}}G(-n).7}}#end//GregE

Post a reply to this message