Changeset 24691 for trunk/ippScripts/scripts/magic_destreak.pl

Timestamp:

Jul 6, 2009, 4:24:20 PM (17 years ago)

Author:

bills

Message:

when destreaking warp and diff skyfiles, censor any sources whose coordinates are masked

File:

• trunk/ippScripts/scripts/magic_destreak.pl (modified) (4 diffs)

trunk/ippScripts/scripts/magic_destreak.pl

@@ -194 +194 @@
     }
 
-    my ($image, $mask, $ch_mask, $weight, $astrom);
+    my ($image, $mask, $ch_mask, $weight, $astrom, $sources);
 
     if ($stage eq "raw") {
@@ -211 +211 @@
         $mask   = $ipprc->filename("PSWARP.OUTPUT.MASK", $path_base);
         $weight = $ipprc->filename("PSWARP.OUTPUT.VARIANCE", $path_base);
+        $sources    = $ipprc->filename("PSWARP.OUTPUT.SOURCES", $path_base);
     } elsif ($stage eq "diff") {
         my $name = $inverse ? "PPSUB.INVERSE" : "PPSUB.OUTPUT"; # Base name for images
@@ -216 +217 @@
         $mask   = $ipprc->filename("$name.MASK", $path_base);
         $weight = $ipprc->filename("$name.VARIANCE", $path_base);
+        $sources    = $ipprc->filename("PPSUB.OUTPUT.SOURCES", $path_base);
     }
 
@@ -227 +229 @@
         $command .= " -chip_mask $ch_mask" if defined $ch_mask;
         $command .= " -weight $weight" if defined $weight;
+        $command .= " -sources $sources" if defined $sources;
         $command .= " -skycelllist $skycell_list" if defined $skycell_list;
         $command .= " -replace" if $replace;