#!/usr/bin/perl


my $infile = shift @ARGV;

$infile =~ s/.dpr//;

$cmd  = "utils/dpr2pov.pl ";
$cmd .= "$infile.dpr ";
$cmd .= "$infile.pov ";
$cmd .= "spheres ";
$cmd .= "no-showpower ";
$cmd .= "normal";

#    print "cmd=$cmd\n";
system($cmd);

$cmd  = "povray ";
$cmd .= "+I$infile.pov ";
$cmd .= "+O$infile.jpg ";
$cmd .= "+FN +W800 +H600 -D -V -A0.3 ";
#$cmd .= "2>/dev/null";

print "$cmd\n";
system($cmd);
