Changeset 37

Timestamp:

Feb 14, 2003, 1:53:32 AM (23 years ago)

Author:

eugene

Message:

upgrades for megacam

File:

• trunk/Ohana/src/perl/src/fr.select (modified) (2 diffs)

trunk/Ohana/src/perl/src/fr.select

@@ -23 +23 @@
 if ($filter eq "NB920") { $MIN_CNTS = 180; $MIN_FLUX = 0.3; }
 
+# relevant camera parameters
 $Nccd = `cameraconfig -Nccd`; chop ($Nccd);
-$line = `cameraconfig -axes`; chop ($line);
-($Naxis1, $Naxis2) = split (" ", $line);
+if ($?) { die "error in config\n"; }
+
+($Naxis1, $Naxis2) = split (" ", `cameraconfig -axes`);
+if ($?) { die "error in config\n"; }
+
+@ccds = split (" ", `cameraconfig -ccds`);
+if ($?) { die "error in config\n"; }
 
 @good = ();
@@ -46 +52 @@
 @list = ();
 foreach $line (@filtline) {
-    @tlist = `imsearch -ccd 0 $line`;
+    @tlist = `imsearch -ccd $ccds[0] $line`;
     @list = (@list, @tlist);
 }