#macro _(n)(asc(substr("B7B9H7A5A;HABA59BFBH;D;JBPJHAHJPBUBWHU;UASAY",n,1))-53)
#end#macro q(r)#if(r)#local c=1;union{#while(c<45)object{q(r-1)rotate 90*z*int(
_(c)/13)scale 1/7translate<_(c+1),mod(_(c),13)>}#local c=c+2;#end}#else polygon
{5,0,<42,0>,<42,14>,<0,14>,0}#end#end object{q(3)pigment{rgb 10}translate<3,1,-
5>*-7}                                                                /* DAF */

And really I should limit lines to around 75 chars. 79 cuts it awfully close! I
actually changed my word-wrap settings to send this.

-- 
David Fontaine  <dav### [at] faricynet>  ICQ 55354965
My raytracing gallery:  http://davidf.faricy.net/

Post a reply to this message