#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
printf("\n");
for ($counter=000; $counter<=186; $counter++) {
        # create filenames
        $fileu = sprintf("images/picrwarp%03d.ppm", $counter);
        $filev = sprintf("images/circuitcity_deinterlaced_dewarped%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}
        `cjpeg -Q 80 pork.ppm > $filev`
}
# loadframe that was used for temp_circuit_city parameter estimation
#r=r(2+1:486-8,7+1:646-7);    = 7,2,632,476
#g=g(2+1:486-8,7+1:646-7);
#b=b(2+1:486-8,7+1:646-7);