Ken <tyl### [at] pacbellnet> wrote:
: Could someone please provide me an example of how to create
: a sine wave using a while loop to translate/rotate(?) a sphere.

  Since I'm a programmer and a perfectionist, I will give you a more
detailed answer than the one already given:

//-----------------------------------------------------------------------

// I'm not completely sure about the terms used here; correct as needed
#declare Amplitude=1;
#declare Cycles=3;
#declare StartAngle=pi*3/2;

#declare WaveStartX=-5;
#declare WaveWidth=10;

#declare ItemAmnt=100;
#declare Item=sphere { 0,.1 pigment { rgb <1,0,0> } finish { specular .5 } }

//---

#declare Index=0;
#while(Index<ItemAmnt)
  #declare Angle=StartAngle+2*pi*Cycles*Index/ItemAmnt;
  #declare PosX=WaveStartX+WaveWidth*Index/ItemAmnt;
  #declare PosY=Amplitude*sin(Angle);
  object { Item translate <PosX,PosY,0> }
  #declare Index=Index+1;
#end

//---

camera { location -z*20 look_at 0 angle 35 }
light_source { <100,150,-100> 1 }

//-----------------------------------------------------------------------

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