Francois Labreque <fla### [at] videotronca> wrote:
: #local a=<1,1,0>;#local b=<2,1,0>;#local c=<3,2,0>;#local d=<5,3,0>;
: #macro P(A,B) polygon{4,A,A+z,B+z,B texture{pigment{color 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,d)P(
: d,<2,3,0>)}camera{location <5,1.2,-5>look_at a orthographic}//FL

  I don't understand what does it do, but it can ne made a lot 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


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