#!/usr/bin/perl

$Ps = sprintf("Parameters_pairwise.txt"); # cumulative
$P = sprintf("Parameters_pairwise.txt"); # cumulative

$lastframe=33;  # e.g. if there are 34 frames numbered 0 to 33, enter 33
# in this case Parameters should have 34 entries

$firstframe=0;  # always 0 for now

printf("\n");
for ($counter=$firstframe; $counter<=$lastframe; $counter++) {
  head - $counter+1 | tail -1 $Ps > $P

  $filein = sprintf("orbit2/v%04d.jpg", $counter);

  $fileout = sprintf("orbit2/v%04d.ppm", $counter);

  printf("about to djpeg $filein\n");
  `djpeg $filein > deleteme_deletemea.ppm`;
  printf("about to pchirp2nocrop\n");

#usage: pchirp2nocrop [input .ppm filename] [output .ppm filename]
#                     [8 pchirp parameters]
  `aaaa deleteme_deletemea.pgm deleteme_deletemeb.pgm -outp $fileo -display $steps > pork_stdout.txt`;

  # cat files together
  `tail -1 $fileo > porkparameter`;
  `cat porkparameter >> $fileO`;

}