Ron Parker <ron### [at] povrayorg> wrote:
: #local a=x+y;#local b=x+a;#local c=a+b;#macro P(A,B)polygon{5,A,A+z,B+z,B,A//FL
: texture{pigment{rgb 1}finish{ambient 1}}}#end union{P(0,a)P(a,b)P(b,c)P(c,2*a)P
: (2*a,2*b)P(2*b,b+c)P(b+c,<2,3>)}camera{location<5,1.2,-5>look_at a orthographic}

  Darn, you made it first.
  However, my version is shorter :)

#local a=x+y;#local b=a+x;#local c=a+b;#local d=b+c;#macro P(A,B)polygon{
5,A,A+z,B+z,B,A pigment{rgb 9}}#end P(0,a)P(a,b)P(b,c)P(c,2*a)P(2*a,2*b)P
(2*b,d)P(d,<2,3,0>)camera{location <5,1.2,-5>look_at a orthographic}//FL

  And doesn't warn either.

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