Changeset 24343

Timestamp:

Jun 5, 2009, 12:54:04 PM (17 years ago)

Author:

Paul Price

Message:

Removing debugging statements.

File:

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

trunk/ippScripts/scripts/ds9_cmf_regions.pl

@@ -97 +97 @@
 my $numBad = 0;                 # Number of bad sources
 my $radius_scale = $radius / ($mag_min - $mag_max + 1.0); # Scaling for radius
-print "Scaling: $mag_min --> $mag_max ==> $radius_scale\n";
 for (my $i = 0; $i < $numRows; $i++) {
     my $col;                    # Colour to use
@@ -111 +110 @@
     $r -= ($$mag[$i] - $mag_min) * $radius_scale if defined $mag_radius;
     print $coordFile "image; circle(" . ($$x[$i] + 1) . ',' . ($$y[$i] + 1) . ",$r) \# color = $col\n";
-    print "image; circle(" . ($$x[$i] + 1) . ',' . ($$y[$i] + 1) . ",$r) \# color = $col\n";
 }
 close $coordFile;