#!/usr/bin/perl
#
#  Rendern aller Bilder fuer die horizontalen Schnitte
#
#  Braucht scence-hcut.pov mit auskommentierter 
#    #declare wo_denn= ...
#  Zeile , die wird hier hinzugefuegt.
#
#
#  R. Unger 06/2002
 

use strict;
my $res;

my @todo=(

'2.5::hp25',
'2.0::hp20',
'1.5::hp15',
'1.0::hp10',
'0.5::hp05',
'0.0::hp00',
'-0.5::hp-05',
'-1.0::hp-10',
'-1.5::hp-15',
'-2.0::hp-20',
'-2.5::hp-25'
);




my $anz=@todo;
print " $anz files to render ... \n";

for (my $i=0;$i<$anz;$i++)
 {
 my @p=split(/::/,$todo[$i]);
 
 printf "Creating Scencefile %i  ... \n",$i+1;
 open (EIN,"<scence-hcut.pov") || die "Cant read scence-hcut.pov\n";
 open (AUS,">tmp.pov")    || die "Cant write tmp.pov\n";
 
 print AUS "#declare wo_denn=$p[0] ;";
 
 while (<EIN>) { print AUS $_; }
 
 close(AUS);
 close(EIN);
 
 print "Rendering ...\n";
 
 my $cmd = q('povray +I tmp.pov -P +A0.2 +W800 +H600');

 #print "$cmd\n";
  
 $res =system(" tcsh -c $cmd   2> /dev/null " );
 if ($res != 0 ) { die "Problem res=$res\n";}
 
 print "Converting to $p[1].jpg...\n";
 rename "tmp.ppm","$p[1].ppm";
 system("convert -quality 100 $p[1].ppm $p[1].jpg");
 
 
 
 
 }


print "ALL DONE\n";
