branches/2d/examples/extra/lloyd_movie.pl

   1 #!/usr/bin/perl
   2
   3 # Loop over the frames
   4 foreach $f (0..256) {
   5
   6         # Create the filename
   7         $fn=sprintf "lloyd_output/fr_%04d.png",$f;
   8
   9         # Create a temporary gnuplot file to render the frame
  10         open A,"lloyd_movie.gnuplot";
  11         open B,">temp.gnuplot";
  12         while(<A>) {
  13                 s/FILENAME/$fn/;
  14                 s/N/$f/g;
  15                 print B;
  16         }
  17         close A;
  18         close B;
  19
  20         # Render the frame using Gnuplot
  21         `gnuplot temp.gnuplot`;
  22 }
  23
  24 # Remove temporary file
  25 unlink "temp.gnuplot";