diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-08-20 21:21:35 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-08-20 21:21:35 (GMT) |
commit | dfd89d763cadd734210f30a557ccff9f36ecd84c (patch) | |
tree | a2b7180e9a467f0ae58acc1b4c185100513a106b /ds9 | |
parent | 0ec7118526cb66c95bcf844262d22937c75f97c0 (diff) | |
download | blt-dfd89d763cadd734210f30a557ccff9f36ecd84c.zip blt-dfd89d763cadd734210f30a557ccff9f36ecd84c.tar.gz blt-dfd89d763cadd734210f30a557ccff9f36ecd84c.tar.bz2 |
simplify wcs code
Diffstat (limited to 'ds9')
-rw-r--r-- | ds9/library/markeranalysisplot3d.tcl | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/ds9/library/markeranalysisplot3d.tcl b/ds9/library/markeranalysisplot3d.tcl index 1c687b4..e448249 100644 --- a/ds9/library/markeranalysisplot3d.tcl +++ b/ds9/library/markeranalysisplot3d.tcl @@ -196,11 +196,8 @@ proc MarkerAnalysisPlot3dMotion {vvarname xx yy} { return } - puts "motion xform: [lindex [$vvar(graph) invtransform $xx $yy] 0] [$vvar(frame) get fits slice]" set vvar(slice) [lindex [$vvar(graph) invtransform $xx $yy] 0] - puts "motion set slice: $vvar(slice) [$vvar(frame) get fits slice]" $vvar(frame) update fits slice $vvar(slice) $vvar(system) $vvar(sky) - puts "motion get slice: [$vvar(frame) get fits slice from image $vvar(system) $vvar(sky)] [$vvar(frame) get fits slice]" MarkerAnalysisPlot3dMarker $vvarname @@ -223,12 +220,11 @@ proc MarkerAnalysisPlot3dMarker {vvarname} { set max [lindex $ss 1] set delta [expr ($max-$min)*.0001] if {[::math::fuzzy::tle $vvar(slice) $min]} { -# set vvar(slice) [expr $min+$delta] + set vvar(slice) [expr $min+$delta] } if {[::math::fuzzy::tge $vvar(slice) $max]} { -# set vvar(slice) [expr $max-$delta] + set vvar(slice) [expr $max-$delta] } - puts "marker slice: $vvar(slice) [$vvar(frame) get fits slice]" $vvar(graph) marker configure $vvar(markerslice) \ -coords "$vvar(slice) -Inf $vvar(slice) Inf" } @@ -247,7 +243,6 @@ proc MarkerAnalysisPlot3dSliceCB {frame id} { if {[info exists ${vvarname}(system)]} { set vvar(slice) \ [$frame get fits slice from image $vvar(system) $vvar(sky)] - puts "cb slice $vvar(slice) [$vvar(frame) get fits slice]" MarkerAnalysisPlot3dMarker $vvarname } } |