Changeset 20555

Timestamp:

Nov 5, 2008, 3:23:14 PM (18 years ago)

Author:

Paul Price

Message:

Print number of good and bad.

File:

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

trunk/ippScripts/scripts/ds9_cmf_regions.pl

@@ -69 +69 @@
 
 my ($coordFile, $coordName) = tempfile( "/tmp/ds9_cmf_regions.XXXX", UNLINK => !$save_temps );
+my $numGood = 0;                # Number of good sources
+my $numBad = 0;                 # Number of bad sources
 for (my $i = 0; $i < $numRows; $i++) {
-    print $coordFile "image; circle(" . ($$x[$i] + 1) . ',' . ($$y[$i] + 1) . ",$radius) \# color = " .
-        (($$flags[$i] & $flag) ? $flag_colour : $colour) . "\n";
+    my $col;                    # Colour to use
+    if ($$flags[$i] & $flag) {
+        $numBad++;
+        $col = $flag_colour;
+    } else {
+        $numGood++;
+        $col = $colour;
+    }
+    print $coordFile "image; circle(" . ($$x[$i] + 1) . ',' . ($$y[$i] + 1) . ",$radius) \# color = $col\n";
 }
 close $coordFile;
@@ -85 +94 @@
 xpaset(@settings);
 
-print "Plotted $numRows sources.\n";
+print "Plotted $numRows ($numGood good, $numBad bad) sources.\n";
 
 ### Pau.