Changeset 14898 for trunk/ippScripts/scripts/stack_skycell.pl

Timestamp:

Sep 19, 2007, 2:04:03 PM (19 years ago)

Author:

Paul Price

Message:

Adding input source list, output source list.

File:

• trunk/ippScripts/scripts/stack_skycell.pl (modified) (5 diffs)

trunk/ippScripts/scripts/stack_skycell.pl

@@ -120 +120 @@
                                       UNLINK => !$save_temps );
 my $num = 0;
+my $inputSources;               # Sources to use as stamps
 foreach my $file (@$files) {
     print $listFile "INPUT$num\tMETADATA\n";
@@ -141 +142 @@
 
     print $listFile "END\n\n";
+
+    unless (defined $inputSources) {
+        $inputSources = $ipprc->filename("PSWARP.OUTPUT.SOURCES", $file->{path_base});
+        &my_die("Source file $inputSources does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $inputSources );
+    }
+        
 }
 
@@ -149 +156 @@
 my $outputMask = $ipprc->filename("PPSTACK.OUTPUT.MASK", $outputRoot);
 my $outputWeight = $ipprc->filename("PPSTACK.OUTPUT.WEIGHT", $outputRoot);
+my $outputSources = $ipprc->filename("PPSTACK.OUTPUT.SOURCES", $outputRoot);
 #my $bin1Name =  $ipprc->filename("PPSTACK.BIN1", $outputRoot);
 #my $bin2Name =  $ipprc->filename("PPSTACK.BIN2", $outputRoot);
@@ -158 +166 @@
     $command .= " -stats $outputStats";
     $command .= " -recipe PPSTATS WARPSTATS";
+    $command .= " -sources $inputSources";
+    $command .= " -target 5.0";
+    $command .= " -photometry";
+
+    print "\n\nWARNING: Convolving to 1 arcsec FWHM seeing!\n\n";
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -168 +181 @@
     &my_die("Couldn't find expected output file: $outputMask", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputMask);
     &my_die("Couldn't find expected output file: $outputWeight", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputWeight);
+    &my_die("Couldn't find expected output file: $outputSources", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputSources);
 #    &my_die("Couldn't find expected output file: $bin1Name",    $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($bin1Name);
 #    &my_die("Couldn't find expected output file: $bin2Name",    $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($bin2Name);