#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
printf("\n");

#for levi's shoot: 1 off the right is needed; 7 off the top is more than enough
#5 off the top is plenty

for ($counter=000; $counter<=99; $counter++) {
        # create filenames
      ###   $fileu = sprintf("picrwarp%03d.ppm", $counter);
        $fileu = sprintf("o%03d.ppm", $counter);
        $filev = sprintf("levis4%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 4 630 470 $fileu > pork.ppm`; # used so far by: {baybank,
                                                  # laverdes,ttt_retreat}
        #`pnmcut  2 2 620 370 $fileu > pork.ppm`; # kids room
        # minimal levi's crop
        # `pnmcut 0 5 639 235 $fileu > pork.ppm`; # levi's
        # severe levi's crop, just to be really careful to get rid of any bads
        `pnmcut 5 7 630 230 $fileu > pork.ppm`; # levi's
        `/mann/a/a/bigu/bin/cjpeg -Q 95 pork.ppm > $filev`
}