Tek <tek### [at] evilsuperbraincom> wrote:
: camera{location<1,2,-3>look_at 0}sphere{y-x,1#macro F(S,T,E,G)box{<S,T,-.01>,<E,
: G,1>}#end finish{reflection 1}}#macro P(d)pigment{checker rgb 6translate d scale
: .15rotate 45*y}#end media{emission rgb<.2,.3,.4>absorption rgb<.2,.3,.4>density{
: planar poly_wave .1scale 9000}}union{F(0,4,3,5)F(1,0,2,5)F(4,0,5,5)F(4,4,7,5)F(4
: ,2,6,3)scale.35rotate 90*x P(1)}plane{y,0 P(0)}// Tekno Frannansa.

  It doesn't look 100% the same, but a bit shorter:

camera{location<1,2,-3>look_at 0}#macro P(d)pigment{checker rgb 6translate d
scale.15rotate 45*y}#end sphere{y-x#macro F(S,T,E,G)box{<S,T,-.01><E,G,1>scale
.35rotate 90*x P(1)}#end 1finish{reflection 1}}fog{rgb 1fog_type 2distance 2
fog_alt.5}fog{rgb<.2,.3,.6>distance 10}F(0,4,3,5)F(1,0,2,5)F(4,0,5,5)F(4,4,7,5
)F(4,2,6,3)plane{y,0P(0)}// Tekno Frannansa.


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