#!/usr/local/bin/perl
#this file derived from n1nlf-1:~> /usr/bin/perl rotate.pl 
# example: 4 4 3 2 1   does 4 then 3 then 2, then 1 (1 means none)
#          4 3 3 3 3   does 3 iterations at each of the 4 levels

$lastframe=3;  # e.g. if there are 250 frames numbered 0 to 249, enter 249

printf("\n");
for ($counter=002; $counter<=$lastframe; $counter++) {
  $filea = sprintf("images/v%03d.jpg", $counter-1);
  $fileb = sprintf("images/v%03d.jpg", $counter);

  printf("about to djpeg $filea and $fileb\n");
  `djpeg -g $filea > deleteme_deletemea.pgm`;
  `djpeg -g $fileb > deleteme_deletemeb.pgm`;
  $corrfile = sprintf("correspondences-%d%d.txt", $counter, $counter-1);
  $paramfile = sprintf("parameters-%d%d.txt", $counter, $counter-1);
  printf("getting user input\n");
  `click_image.tcl deleteme_deletemea.pgm deleteme_deletemeb.pgm 4 > $corrfile`;
  printf("computing parameters\n");
  `corr2p $corrfile $paramfile`;
}