Changeset 114

Timestamp:

Oct 8, 2003, 12:03:03 AM (23 years ago)

Author:

eugene

Message:

added meganorth entry
better handling of offset number formatting
fixed tcs calls (require clicmd)

File:

• trunk/Ohana/src/perl/src/megacenter (modified) (4 diffs)

trunk/Ohana/src/perl/src/megacenter

@@ -2 +2 @@
 
 if (@ARGV != 1) { die "USAGE: megacenter (filename)\n"; }
-$ENV{'PATH'} = "$ENV{'PATH'}:/apps/elixir/bin";
+$ENV{'PATH'} = "/apps/elixir/bin:$ENV{'PATH'}";
 
 # currently we keep things hardwired:
 
 $input = $ARGV[0];
-$ccd   = "amp44";
-$Xref  = 973;
-$Yref  = 4560;
+$camera = `gconfig CAMERA`; chop $camera;
+if ($camera eq "megacam") {
+    $ccd   = "amp44";
+    $Xref  = 973;
+    $Yref  = 4560;
+}
+if ($camera eq "meganorth") {
+    $ccd   = "amp26";
+    $Xref  = 1140;
+    $Yref  = 4717;
+}
+if ($ccd eq "") { die "ERROR: camera $camera not found\n"; }
 
 $temp = `mktemp /tmp/center.XXXXXX`; chop ($temp);
@@ -44 +53 @@
 if ($Rreq > 360.0) { $Rreq -= 360.0 }
 
-$dR = 3600.0 * ($Rreq - $Robs) * cos ($Dobs*3.141592643589/180.0);
-$dD = 3600.0 * ($Dreq - $Dobs);
+$dR = sprintf "%.2f", 3600.0 * ($Rreq - $Robs) * cos ($Dobs*3.141592643589/180.0);
+$dD = sprintf "%.2f", 3600.0 * ($Dreq - $Dobs);
 
 $obscoords = `echo $Rreq $Dreq | radec -hh`; chop $obscoords;
@@ -55 +64 @@
 printf STDOUT "REQ COORDS: %10.6f %10.6f ($reqcoords )\n", $Rreq, $Dreq;
 printf STDOUT "OBS COORDS: %10.6f %10.6f ($obscoords )\n", $Robs, $Dobs;
-printf STDOUT "OFFSET IS: %.2f %.2f (arcsec)\n", $dR, $dD;
+printf STDOUT "OFFSET IS: $dR $dD (arcsec)\n";
 
 if ($Nastro == 0) { 
@@ -75 +84 @@
 }
 
-system ("ocoords rel t $dR $dD\n");
-system ("tcs.offset\n");
+system ("clicmd ocoords rel t $dR $dD\n");
+system ("clicmd tcs.offset\n");
 
 escape: