#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
printf("\n");
for ($counter=000; $counter<=311; $counter++) {
        # create filenames
        $fileu = sprintf("images/pic%03d.ppm", $counter);
        $filev = sprintf("images/picrwarp%03d.ppm", $counter);
        ### printf("about to delete $fileu\n");
        ### `rm $fileu`
        printf("about to rwarp $fileu\n");
        `/mas/vision/users/steve/mnt/steve/temp_circuit_city/ptrwarp $fileu -w -x 336.00 -y 274.69 -a 9.826702635e-01 -b 2.333436093e-07 -c -1.157903449e-13 -o $filev`
}