Mikael Pohjola <emp### [at] cchutfi> wrote:
> #declare P=<-5,0,20>;#macro L(N,D)#if(N>0)#declare P=P+D;box{-.5,.5translate
> z*mod(9*vlength(P),4)pigment{rgb P}rotate<45clock,0>translate P}L(N-1,D)#end
> #end#macro _(M,X,Y)#if(M>0)L(mod(M,8),<mod(X,3),mod(Y,3),1>-1)_(div(M,8),div
> (X,3),div(Y,3))#end#end _(2301603551,12850,60365)plane{y,-9pigment{rgb 1}}
> light_source{20*y rgb 1}

  A bit shorter:

light_source{20*y,1}#macro _(M,X,Y,P)#if(M)#while(mod(M,8))#local P=P+<mod(X
,3)mod(Y,3)1>-1;box{-.5,.5translate z*mod(9*vlength(P)4)pigment{rgb P}rotate
x*45translate P}#local M=M-1;#end _(div(M,8)div(X,3)div(Y,3)P)#end#end
_(2301603551,12850,60365<-5,0,20>)plane{y,-9pigment{rgb 1}}


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