#!/usr/bin/perl -w
#while (defined($nextname = )) {
while (defined($nextname = )) {
# create filenames
$filed = $nextname;
$filev = $filed;
$files = sprintf("c%s", $filev);
#$files =~ s/sd/s/;
printf("Generating $files from $filed\n");
`djpeg $filev > deleteme_big.ppm`;
#`pnmscale -xscale .25 -yscale .25 deleteme_big.ppm > deleteme_small.ppm`;
`pamcut -left 1168 -top 858 -width 2709 -height 1806 deleteme_big.ppm > deleteme_small.ppm`;
#aspect ratio works out to ???
`cjpeg -quality 98 deleteme_small.ppm > $files`;
}