#!/opt/gnu/bin/perl
#
# Requires tgatoppm and ppmtoyuvsplit

($name,$start,$end) = @ARGV;

$CONV = "tgatoppm";
$SPLIT = "ppmtoyuvsplit";
$TMPDIR = "/home/staff03/mein/tmp";
$HEIGHT=600;
$WIDTH=800;

$x=$start;
while ($x<=$end) {
   $myfile=sprintf("%s%02d",$name,$x);
   print "\nConverting $myfile $name$x.ppm\n";
   system("$CONV $myfile.tga > $TMPDIR/$name$x.ppm");
   system("$SPLIT $TMPDIR/$name$x $TMPDIR/$name$x.ppm");
   unlink("$TMPDIR/$name$x.ppm");
   $x++;
}

system("mpeg -a $start -b $end -h $WIDTH -v $HEIGHT -PF $TMPDIR/$name -s $name.mpg");

$x=$start;
while ($x<=$end) {
   unlink("$TMPDIR/$name$x.Y");
   unlink("$TMPDIR/$name$x.U");
   unlink("$TMPDIR/$name$x.V");
   $x++;
}