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

Timestamp:

Sep 24, 2008, 8:44:54 AM (18 years ago)

Author:

Paul Price

Message:

Normalise ra,dec between 0 and 360.

File:

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

trunk/ippScripts/scripts/ipp_mops_translate.pl

@@ -256 +256 @@
     my $dec = asin(sin($theta) * sin($crval2) - cos($theta) * cos($crval2) * cos($phi));
 
-    return (rad2deg($ra), rad2deg($dec));
+    $ra = rad2deg($ra);
+    $dec = rad2deg($dec);
+
+    $ra += 360 if $ra < 0;
+    $dec += 360 if $dec < 0;
+    $ra -= 360 if $ra >= 360;
+    $dec -= 360 if $dec >= 360;
+
+    return ($ra, $dec);
 }