Tim Attwood <tim### [at] worldnetattnet> wrote:
: #macro T(I M)cylinder{0,I*x,.2 rotate 15*M*z translate A pigment{rgb E}finish
: {ambient 1}}#end#macro Y(E O)#local A=y-x+O;T(1,0)T(2,18)T(1,12)#local A=x+y
: +O;T(2,17)T(2,19)#local A=.7*x-.5*y+O;T(.6,0)#end#local D=seed(2);#local W=1;
: #while(W<35)Y(rand(D)*z<9*rand(D)-5,9*rand(D)-5,9>)#local W=W+1;#end Y(1,4*z)

  A bit shorter:

#macro T(I M A)cylinder{0,I*x,.2pigment{rgb E*9}rotate M*z*15translate A}
#end#macro Y(E O)T(1,0,y-x+O)T(2,18,y-x+O)T(1,12,y-x+O)T(2,17,x+y+O)T(2,
19,x+y+O)T(.6,0,.7*x-.5*y+O)#end#local D=seed(2);#macro X(W)#if(W)Y(rand
(D)*z<9*rand(D)-5,9*rand(D)-5,9>)X(W-1)#end#end X(35)Y(1,4*z)


-- 
#macro N(D,I)#if(I<6)cylinder{M()#local D[I]=div(D[I],104);M().5,2pigment{
rgb M()}}N(D,(D[I]>99?I:I+1))#end#end#macro M()<mod(D[I],13)-6,mod(div(D[I
],13),8)-3,10>#end blob{N(array[6]{11117333955,
7382340,3358,3900569407,970,4254934330},0)}//                     - Warp -

Post a reply to this message