#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
printf("\n");
for ($counter=000; $counter<=236; $counter++) {
        # create filenames
        $fileu = sprintf("images/o%03d.ppm", $counter);
        $filev = sprintf("images/o_crop%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,
                                                 # circuit_city}
        `pnmcut  8 2 630 235 $fileu > pork.ppm`; # used so far by: {baybank,
                                                 # laverdes,ttt_retreat}
        #`pnmcut  2 2 620 370 $fileu > pork.ppm`;# kids room
        `cjpeg -Q 95 pork.ppm > $filev`
}