Changeset 13711 for trunk/ippScripts/scripts/warp_skycell.pl

Timestamp:

Jun 7, 2007, 3:59:50 PM (19 years ago)

Author:

Paul Price

Message:

Using camera-level astrometry file to perform warping, rather than WCS.

File:

• trunk/ippScripts/scripts/warp_skycell.pl (modified) (1 diff)

trunk/ippScripts/scripts/warp_skycell.pl

@@ -97 +97 @@
 my ($list1File, $list1Name) = tempfile( "$tess_id.$skycell_id.wrp$warp_id.image.list.XXXX", UNLINK => 1);
 my ($list2File, $list2Name) = tempfile( "$tess_id.$skycell_id.wrp$warp_id.mask.list.XXXX", UNLINK => 1);
+my ($list3File, $list3Name) = tempfile( "$tess_id.$skycell_id.wrp$warp_id.astrom.list.XXXX", UNLINK => 1);
 foreach my $imfile (@$imfiles) {
     my $image = $imfile->{uri}; # Image name
-    my $mask = $ipprc->filename("PPIMAGE.OUTPUT.MASK", $imfile->{path_base}, $imfile->{class_id}); # Mask name
+    my $mask = $ipprc->filename("PPIMAGE.OUTPUT.MASK", $imfile->{chip_path_base}, $imfile->{class_id}); # Mask name
+    my $astrom = $ipprc->filename("PSASTRO.OUTPUT.MEF", $imfile->{cam_path_base}); # Astrometry file name
+
     &my_die("Couldn't find input file: $image", $warp_id, $skycell_id, $tess_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($image);
     &my_die("Couldn't find input file: $mask", $warp_id, $skycell_id, $tess_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($mask);
+    &my_die("Couldn't find input file: $astrom", $warp_id, $skycell_id, $tess_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($astrom);
 
     print $list1File ( $image . "\n");
     print $list2File ( $mask  . "\n");
+    print $list3File ( $astrom  . "\n");
 }
 close $list1File;
 close $list2File;
+close $list3File;
 
 # Run pswarp
 my $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
 unless ($no_op) {
-    my $command = "$pswarp -list $list1Name -masklist $list2Name $outputRoot $skyFile -stat $outputStats"; # Command to run pswarp
+    my $command = "$pswarp -list $list1Name -masklist $list2Name -astromlist $list3Name $outputRoot $skyFile -stat $outputStats"; # Command to run pswarp
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => 1);