Personal tools
You are here: Home / cmgui / Wiki / sgi2jpg.pl
Navigation
Log in


Forgot your password?
 

#!/usr/bin/perl

use strict;

my $images = "images"; my $counter;

for $counter (1..168) { my $infile = sprintf "$images/pressure_anti_%d.sgi",$counter; my $outfile = sprintf "$images/pressure_anti_%d.jpg",$counter; my $command = "convert -scale 576x576 -type TrueColor -quality 100 $infile $outfile"; print "$command\n"; system $command and die; }

#jpeg2yuv -f 25 -b 1 -I p -j frame1%03d.jpg | mpeg2enc -f 4 -o test3.m2v