Ron Parker <ron### [at] povrayorg> wrote:
: plane{-z,-3normal{crackle scale.2#local a=5;#while(a)warp{repeat x flip x}rotate
: z*60#local a=a-1;#end translate-9*x}pigment{rgb 1}}light_source{-9red 1rotate 60
: *z}light_source{-9rgb y rotate-z*60}light_source{9-z*18rgb z}text{ttf"arial.ttf"
: "RP".01,0translate-<.6,.4,.02>pigment{bozo}}light_source{-z*3rgb-.2}//Ron Parker

  A bit shorter:

#macro L(P,C,R)light_source{P,rgb C rotate z*R}#end plane{-z,-3normal{crackle
scale.2#local a=5;#while(a)warp{repeat x flip x}rotate z*60#local a=a-1;#end
translate-9*x}pigment{rgb 1}}L(-9,x,60)L(-9,y,-60)L(9-z*18,z,0)L(-z*3,-.2,0)
text{ttf"arial.ttf""RP".1,0translate-<.6,.4,.02>pigment{bozo}}//Ron Parker


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