#!/usr/bin/perl -w

#while (defined($nextname = <img????.jpg>)) {
while (defined($nextname = <frame?.jpg>)) {
 # 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 1512 -top 1008 -width 3672 -height 2448 deleteme_big.ppm > deleteme_small.ppm`;
    #aspect ratio works out to ???
   `cjpeg -quality 98 deleteme_small.ppm > $files`;
}