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

I like the last one.


--
/* Nekar Xenos */#local N=<-20,40,100>;#local K=<20,-40,100>;#local R=seed(0);
blob{#while((K-N).x>0)#local X=N;#local N=N+<rand(R),rand(R),1>/3;#local N=(
vlength(N-K)<vlength(X-K)?N:2*X-N);sphere{<N.y,-N.x,N.z>,1,1 scale .02}sphere{N
,1,1 scale.02}sphere{<-N.x-40,N.y,N.z>1,1 scale.01}sphere{<N.x+40,-N.y,N.z>1,1
scale.01 }#end pigment{rgbt 1}interior{media{emission <2,4,5>*5}}hollow}

Post a reply to this message