gemelli david <gem### [at] imerirassofr> wrote:
: #declare xpos = xPoint2 - xPoint1;
: #declare ypos = yPoint2 - yPoint1;
: #declare zpos = zPoint2 - zPoint1;
: #declare incx = xpos / NbSpheres;
: #declare incy = ypos / NbSpheres;
: #declare incz = zpos / NbSpheres;
: #declare i = 1;
: #while (i < NbSpheres)
:     #declare xpos = xPoint1 + (incx * i);
:     #declare ypos = yPoint1 + (incy * i);
:     #declare zpos = zPoint1 + (incz * i);
:     sphere {<xpos, ypos,zpos>, Radius ... }
:     #declare i = i + 1;
: #end

  Or more briefly:

(Point1 and Point2 are vectors)

#declare pos=Point2-Point1;
#declare inc=pos/NbSpheres;
#declare i=0;
#while(i<NbSpheres)
  sphere { Point1+inc*i, Radius }
  #declare i=i+1;
#end

-- 
main(i){char*_="BdsyFBThhHFBThhHFRz]NFTITQF|DJIFHQhhF";while(i=
*_++)for(;i>1;printf("%s",i-70?i&1?"[]":" ":(i=0,"\n")),i/=2);} /*- Warp -*/

Post a reply to this message