Index: trunk/ippScripts/scripts/ds9_cmf_regions.pl
===================================================================
--- trunk/ippScripts/scripts/ds9_cmf_regions.pl	(revision 19212)
+++ trunk/ippScripts/scripts/ds9_cmf_regions.pl	(revision 20555)
@@ -69,7 +69,16 @@
 
 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,5 +94,5 @@
 xpaset(@settings);
 
-print "Plotted $numRows sources.\n";
+print "Plotted $numRows ($numGood good, $numBad bad) sources.\n";
 
 ### Pau.