Ron Parker <ron### [at] povrayorg> wrote:
: #default{pigment{rgb 0}finish{reflection 1}}#macro M(A)#declare B=A;#end#macro L
: (A)sphere{A,1}sphere{B,1}cylinder{A,B,1}M(A)#end M(4*u)L(<8,8>)L(<2,8>)M(6*u)L(<
: 10,8>)L(<16,8>)M(<8,4>)L(<12,4>)camera{location<9,4,-15>}sky_sphere{pigment{bozo
: color_map{[0rgb 0][1rgb 1]}}} // Tek

  If you add a "scale.5" or similar right after the color_map block, the
sig will be 7 characters longer but will look a lot cooler.

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