Take a ride on the Rossler Rollercoaster.
-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])+1000;
double x0,y0,z0,x1,y1,z1;
double h = 0.07;
double aa = 0.2;
double bb = 0.2;
double cc = 5.7;
x0 = 0.1;
y0 = 0.1;
z0 = 0.1;
for (i=0;i 1000){
fprintf(fp,"Sp(%f,%f,%f,0.09,%f)\n",x0,y0,z0,fabs(sin(1.0*i/10)));}
double X = x0 - 0.5*sin(1.0*N/100);
double Y = y0 + 0.7 + 0.5*sin(1.0*N/100); ;
double Z = z0 + 6*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,0,0>
}
#macro Sp(x0,y0,z0,rad,col)
sphere {
< x0,y0,z0 >, rad
pigment{ rgb<1-0.5*col,1,1>}
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
for($num=0; $num<9001; $num++){
$file = ($num+1000).".pov";
system("./ross $num");
system("cat temp.pov > $file");
system("cat $num >> $file");
system("povray go.ini $file -Display=False");}
#> g++ -o ross ross.c #> ./run.pl