Take a ride on the Loracoaster.

-Animation by Timothy Jones

#include "stdio.h"
#include "stdlib.h"
#include "math.h"

int main(int argc,char **argv)
{
 
  FILE* fp;
  fp = fopen(argv[1],"w");
  int i=0;
  int N=atoi(argv[1])+100;


  double x0,y0,z0,x1,y1,z1;
  double h = 0.005;
  double a = 10.0;
  double b = 28.0;
  double c = 8.0 / 3.0;

   x0 = 0.1;
   y0 = 0;
   z0 = 0;
  
   for (i=0;i 100)
	fprintf(fp,"Sp(%f,%f,%f,0.1,%f)\n",x0,y0,z0,fabs(sin(1.0*i/10)));
   }
   double X = x0 - 1*sin(1.0*N/100);
   double Y = y0 + 1.4 + 1*sin(1.0*N/100); ;
   double Z = z0 + 10*sin(1.0*N/100)*sin(1.0*N/100);// + 0.1 + 200*((N-2000)/1000);  ///100*(% is for final run
   fprintf(fp, "camera {location <%f, %f, %f> look_at <%f, %f,%f>}\n",X,Y,Z, x0,y0,z0);

}

#include "colors.inc"  
#include "textures.inc"
light_source{<100,200,-150> color White*0.7}
light_source{<-100, 100,100> color Gold*0.7}
light_source{<100,-100,500> color White*0.7}

background {
 //  color rgb <0.3,0,0>
 color rgb <0,0,0>
}

#macro Sp(x0,y0,z0,rad,col)
   sphere { 
               , rad
                 pigment{ rgb<1-0.5*col,1,1>}
//               pigment { rgb <0.7,0.9,0.3> } 
               finish { reflection .7 phong .6 } }
#end

Output_File_Type=N
Width=500
Height=500
Quality=9
Antialias=on
Antialias_Threshold=0.001

#!/usr/bin/perl
$num=900;
for($num=0; $num<9001; $num++){
    $file = ($num+1000).".pov";
    system("./ross $num");
    system("cat temp.pov > $file");
    system("cat $num >> $file");
    system("povray try.ini $file -Display=False");
}