Index: /trunk/ippScripts/scripts/gpc_seeing.pl
===================================================================
--- /trunk/ippScripts/scripts/gpc_seeing.pl	(revision 13197)
+++ /trunk/ippScripts/scripts/gpc_seeing.pl	(revision 13197)
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+# basic ISP transmission analysis:
+
+if (@ARGV != 1) { die "USAGE: gpc_seeing.pl (input.fits)\n"; }
+$input = $ARGV[0];
+
+# for input file /path/foo.fits, use /path/foo for output
+
+@words = split ('\.', $input);
+if (@words > 1) { pop @words; }
+$output = join (".", @words);
+
+# use constant RECIPE => 'PPIMAGE_OBDSFRA'; # Recipe to use
+$RECIPE_PPIMAGE  = 'PPIMAGE_OP';
+$RECIPE_PSPHOT   = 'PSPHOT.SEEING';
+
+# recommend only processing to PSFMODEL
+vsystem ("ppImage -file $input $output -recipe PPIMAGE $RECIPE_PPIMAGE -recipe PSPHOT $RECIPE_PSPHOT");
+if ($status) { die "failure running ppImage\n"; }
+
+# XXX otis can read the output psf model, or we can supply a program to interpret the model
+
+sub vsystem {
+    print STDERR "@_\n";
+    my $status = system ("@_");
+    $status;
+}
+
Index: /trunk/ippScripts/scripts/isp_trans.pl
===================================================================
--- /trunk/ippScripts/scripts/isp_trans.pl	(revision 13196)
+++ /trunk/ippScripts/scripts/isp_trans.pl	(revision 13197)
@@ -11,13 +11,11 @@
 $output = join (".", @words);
 
-print "input: $input\n";
-print "output: $output\n";
-
 # use constant RECIPE => 'PPIMAGE_OBDSFRA'; # Recipe to use
-$RECIPE  = 'PPIMAGE_OA'; # Recipe to use (switch to OBDSFRA when detrend images are ready)
+$RECIPE_PPIMAGE  = 'PPIMAGE_OA'; # Recipe to use (switch to OBDSFRA when detrend images are ready)
+$RECIPE_PSPHOT   = 'PSPHOT.SUMMIT'; 
 $CALDIR  = '/data/alala.0/ipp/ippRefs/catdir.synth.bright'; # source of photometric calibration data
 $IMTABLE = 'images.dat'; # source of photometric calibration data
 
-vsystem ("ppImage -file $input $output -recipe PPIMAGE $RECIPE -recipe PSPHOT PSPHOT.SUMMIT -trace psModules.astrom.pmAstromMatchFit 3");
+vsystem ("ppImage -file $input $output -recipe PPIMAGE $RECIPE_PPIMAGE -recipe PSPHOT $RECIPE_PSPHOT");
 if ($status) { die "failure running ppImage\n"; }