trunk/examples/no_release/rad_test.pl

   1 #!/usr/bin/perl
   2
   3 foreach $f (0..200) {
   4         open A,"rad_test.pov";
   5         open B,">temp.pov";
   6
   7         while(<A>) {
   8                 s/FRAME/rad_test_out\/fr$f.pov/;
   9                 print B;
  10         }
  11
  12         close A;
  13         close B;
  14         system "povray +H600 +W800 +A0.01 -J +R5 +Ofr_$f.png temp.pov";
  15 }