Changeset 17519

Timestamp:

May 4, 2008, 2:13:20 PM (18 years ago)

Author:

eugene

Message:

write out astrometry file

File:

• trunk/ippScripts/scripts/warp_skycell.pl (modified) (2 diffs)

trunk/ippScripts/scripts/warp_skycell.pl

@@ -137 +137 @@
 my ($astromFile, $astromName) = tempfile( "$outrootResolved.astrom.list.XXXX", UNLINK => !$save_temps);
 
+my $wrote_astrom = 0;
 foreach my $imfile (@$imfiles) {
     my $image = $imfile->{uri}; # Image name
@@ -159 +160 @@
     print $maskFile   "$mask\n";
     print $weightFile "$weight\n";
-    print $astromFile "$astrom\n";
+    
+    if (!$wrote_astrom) {
+        print $astromFile "$astrom\n";
+        # XXX simplify this?  only ever have one file for astrometry (must be MEF)
+        if ($astromSource eq 'PSASTRO.OUTPUT.MEF') { 
+            $wrote_astrom = 1;
+        }
+    }
 }
 close $imageFile;