#!/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