Sir Charles W. Shults III <aic### [at] cflrrcom> wrote:
> #macro B(a,b)sphere{<a,b,13>.5pigment{agate}finish{phong.3}}#end#macro N(a,c)
> #local k=1;#while(k<7)#if(mod(c,2))B(k,a)B(-k,-a)#end#local  c=int(c/2);#local
> k=k+1;#end#end light_source{0rgb 1}N(1,61)N(0,37)N(-1,55)N(-2,4)N(-3,4)N(3,1)

#macro B(a,b)sphere{<a,b,13>.5pigment{agate}finish{phong.3}}#end#macro N(c,k,
a)#if(k<7)#if(mod(c,2))B(k,a)B(-k,-a)#end N(int(c/2)k+1a)#end#end light_source
{0rgb 1}N(61,1,1)N(37,1,0)N(55,1,-1)N(4,1,-2)N(4,1,-3)N(1,1,3)


-- 
#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