> #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,i,m)#while(j)cylinder{z*5y+5*z.1rotate j*z*18translate
m*2rotate i*z*18pigment{rgb<.6.6.8>/sqrt(j)}finish{ambient 1}}#local
j=j-1;#end#if(i)_(19i-1m)#end#end _(19,0,0)_(19,19y)//jim

I tried to convert both loops to recursion, but pov's limits are
reached easily.

-- 
merge{#local i=-11;#while(i<11)#local
i=i+.1;sphere{<i*(i*i*(.05-i*i*(4e-7*i*i+3e-4))-3)10*sin(i)30>.5}#end
pigment{rgbt 1}interior{media{emission x}}hollow}//  Mark Weyer

Post a reply to this message