#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
printf("\n");
for ($counter=000; $counter<=253; $counter++) {
        # create filenames
        $fileu = sprintf("images/picrwarp%03d.ppm", $counter);
        $filev = sprintf("images/laverdes%03d.jpg", $counter);
        printf("about to crop $fileu\n");
        #`pnmcut 1 5 640 470 $fileu > pork.ppm`;
        #`pnmcut  4 5 636 470 $fileu > pork.ppm`;
        # the following crop is the close to one previously used in loadframe.m
        #`pnmcut  7 2 632 476 $fileu > pork.ppm`; # used by {legals, skf}
        `pnmcut  8 4 630 470 $fileu > pork.ppm`; # used so far by: {baybank,
                                                 # laverdes}
        `cjpeg -Q 80 pork.ppm > $filev`
}