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

My NN word-wrap was set at 72.  But, I don't think this is obfuscated
enough.  Too many keywords.  I started with the idea and tried to
obfuscate it, rather than going right for obfuscation.

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

Post a reply to this message