/[amv]/frames.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /frames.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by dpavlin, Thu Jul 19 17:09:18 2007 UTC revision 2 by dpavlin, Thu Jul 19 20:17:06 2007 UTC
# Line 11  use File::Path; Line 11  use File::Path;
11    
12  my $tmp = '/tmp/frames';  my $tmp = '/tmp/frames';
13  my $out = '/tmp/frames.avi';  my $out = '/tmp/frames.avi';
14    my $jpeg_q = 10;
15    
16  mkpath $tmp || die "can't create $tmp: $!";  mkpath $tmp || die "can't create $tmp: $!";
17    
# Line 49  foreach my $c ( @cols ) { Line 50  foreach my $c ( @cols ) {
50                  warn "frame $frame\n";                  warn "frame $frame\n";
51                  my $path = sprintf('%s/%03d.jpg', $tmp, $frame++);                  my $path = sprintf('%s/%03d.jpg', $tmp, $frame++);
52                  open(my $fh, '>', $path) || die "can't open $path: $!";                  open(my $fh, '>', $path) || die "can't open $path: $!";
53                  print $fh $im->jpeg(100) || die "can't save picture $path: $!";                  print $fh $im->jpeg( $jpeg_q ) || die "can't save picture $path: $!";
54                  close($fh) || die "can't close picture $path: $!";                  close($fh) || die "can't close picture $path: $!";
55          }          }
56  }  }
Legend:
Removed from v.1  
changed lines
  Added in v.2
  ViewVC Help
Powered by ViewVC 1.1.26