diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-03-04 18:39:45 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-03-04 18:39:45 (GMT) |
commit | 85cc6674102c410c2a0fa1dfeee328f7dc3d62d5 (patch) | |
tree | 19d85c0962ec5784a974becdc6f1f56d6160635a /ds9/library/contour.tcl | |
parent | 47e701a6b5fe86c0a8d799b26b1e9916a35b0d4b (diff) | |
download | blt-85cc6674102c410c2a0fa1dfeee328f7dc3d62d5.zip blt-85cc6674102c410c2a0fa1dfeee328f7dc3d62d5.tar.gz blt-85cc6674102c410c2a0fa1dfeee328f7dc3d62d5.tar.bz2 |
rm debug statements
Diffstat (limited to 'ds9/library/contour.tcl')
-rw-r--r-- | ds9/library/contour.tcl | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/ds9/library/contour.tcl b/ds9/library/contour.tcl index 7e7876b..ee57aef 100644 --- a/ds9/library/contour.tcl +++ b/ds9/library/contour.tcl @@ -85,8 +85,7 @@ proc UpdateContour {} { } if {$levels != {} && [ContourCheckMinMax]} { - puts stderr "a: $contour(min) $contour(max)" - $current(frame) contour create \ + $current(frame) contour create \ $contour(color) $contour(width) $contour(dash) \ $contour(method) $contour(numlevel) $contour(smooth) \ $contour(scale) $contour(log) $contour(mode) \ @@ -102,7 +101,6 @@ proc UpdateContour {} { set contour(max) [lindex $limits 1] if {[ContourCheckMinMax]} { - puts stderr "b: $contour(min) $contour(max)" $current(frame) contour create \ $contour(color) $contour(width) $contour(dash) \ $contour(method) $contour(numlevel) $contour(smooth) \ @@ -343,7 +341,6 @@ proc ContourGenerateDialog {} { $dcontour(txt) delete 1.0 end if {$current(frame) != {}} { if {([$current(frame) has fits]) && [ContourCheckMinMax]} { - puts stderr "c: $contour(min) $contour(max)" set ll [$current(frame) get colorscale level $contour(numlevel) \ $contour(min) $contour(max) \ $contour(scale) $contour(log)] @@ -516,7 +513,6 @@ proc ContourModeDialog {} { set limits [$current(frame) get clip $contour(mode)] set contour(min) [lindex $limits 0] set contour(max) [lindex $limits 1] - puts stderr "d: $contour(min) $contour(max)" } } @@ -892,7 +888,6 @@ proc UpdateContourScale {} { set limits [$current(frame) get clip $contour(mode)] set contour(min) [lindex $limits 0] set contour(max) [lindex $limits 1] - puts stderr "e: $contour(min) $contour(max)" } else { if {!($ds9(init) && $contour(init,scale))} { set contour(scale) [$current(frame) get colorscale] |