#!/usr/bin/perl
#
#
open (STDERR, ">animate.log");
#
Frame: for ($i = 0.0; $i < 360.0; $i += 3.0)
{
open(ROTATION, "> frame_rotation.mol");
printf ROTATION "by rotation y %6.1f \n", $i;
close(ROTATION);

$outfile = sprintf( "frame_%3.3d.jpeg", $i ) ;
$molscript = '/usr/local/bin/molscript -r' ;
$render = '/usr/local/bin/render -jpeg' ;

$command = "$molscript < animate.mol | $render > $outfile" ;
system '/bin/echo', $command ;
system "/bin/csh", "-c", "$command" ;

}