#! /usr/bin/perl
#To figure this out, consult Tim
 
 system("echo 'set pointsize 0.1' > gnu0001.dat");
 system("echo 'set terminal postscript' >> gnu0001.dat");
 system("echo 'set output \"data.ps\"' >> gnu0001.dat");
 system("echo 'splot \"data.dat\"' >> gnu0001.dat");


$a=4;
$b=1000;
while ($a<=20){
    
    system("echo 'set pointsize 0.1' > gnu0001.dat");
    system("echo 'set terminal postscript' >> gnu0001.dat");
    system("echo 'set output \"data.ps\"' >> gnu0001.dat");
    system("echo 'set nokey' >> gnu0001.dat");
    system("echo 'set title \"c=$a\"' >> gnu0001.dat");
#    system("echo 'splot [-6:8][-8:4][-0.5:16] \"data.dat\"' >> gnu0001.dat");
    system("echo 'splot \"data.dat\"' >> gnu0001.dat");
    $file="ross".$b.".ps";
    $file2="ross".$b.".gif";
    system("./rossy2 $a");
    system("gnuplot gnu0001.dat");
    system("cp data.ps $file");
    system("mogrify -format gif $file");
    system("mogrify -rotate 90 $file2");
    $b=$b+1;
    $a=$a+0.01;
}