Changeset 24191 for trunk/ippScripts/scripts/ipp_mops_translate.pl

Timestamp:

May 14, 2009, 5:01:49 PM (17 years ago)

Author:

Paul Price

Message:

Fixing bugs found when testing.

File:

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

trunk/ippScripts/scripts/ipp_mops_translate.pl

@@ -78 +78 @@
 check_fitsio($status);
 
-# Plate scales
-my $cdelt1 = $$inHeader{'CDELT1'} or die("Can't find CDELT1");
-my $cdelt2 = $$inHeader{'CDELT2'} or die("Can't find CDELT2");
-
 # Read table data
 $inFits->movnam_hdu(BINARY_TBL, $extname, 0, $status) and check_fitsio($status);
@@ -109 +105 @@
 }
 
+# Plate scales
+#my $cdelt1 = $$inHeader{'CDELT1'} or die("Can't find CDELT1");
+#my $cdelt2 = $$inHeader{'CDELT2'} or die("Can't find CDELT2");
+### XXX WCS wasn't being set in inverse diffs, but it's available elsewhere
+my $cdelt1 = $$scale[0] / 3600;
+my $cdelt2 = $$scale[1] / 3600;
 
 # Parse the list of columns