diff options
Diffstat (limited to 'ds9/library/markeranalysisplot3d.tcl')
-rw-r--r-- | ds9/library/markeranalysisplot3d.tcl | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/ds9/library/markeranalysisplot3d.tcl b/ds9/library/markeranalysisplot3d.tcl index 19f57f3..5f5f178 100644 --- a/ds9/library/markeranalysisplot3d.tcl +++ b/ds9/library/markeranalysisplot3d.tcl @@ -165,11 +165,10 @@ proc MarkerAnalysisPlot3dCB {frame id} { MarkerAnalysisPlot3dXAxisTitle $vvarname MarkerAnalysisPlot3dYAxisTitle $vvarname - set cc $vvar(graph,current) - set vvar(markerslice) [$vvar($cc) marker create line -element bar1 \ + set vvar(markerslice) [$vvar(graph) marker create line -element bar1 \ -outline cyan -linewidth 2 \ -bindtags [list slice]] - $vvar($cc) marker bind slice <B1-Motion> \ + $vvar(graph) marker bind slice <B1-Motion> \ [list MarkerAnalysisPlot3dMotion $vvarname %x %y] set vvar(mode) pointer @@ -206,8 +205,7 @@ proc MarkerAnalysisPlot3dMotion {vvarname xx yy} { return } - set cc $vvar(graph,current) - set vvar(slice) [lindex [$vvar($cc) invtransform $xx $yy] 0] + set vvar(slice) [lindex [$vvar(graph) invtransform $xx $yy] 0] $vvar(frame) update fits slice $vvar(slice) $vvar(system) $vvar(sky) MarkerAnalysisPlot3dMarker $vvarname @@ -237,8 +235,7 @@ proc MarkerAnalysisPlot3dMarker {vvarname} { set vvar(slice) [expr $max-$delta] } - set cc $vvar(graph,current) - $vvar($cc) marker configure $vvar(markerslice) \ + $vvar(graph) marker configure $vvar(markerslice) \ -coords "$vvar(slice) -Inf $vvar(slice) Inf" } @@ -302,8 +299,7 @@ proc MarkerAnalysisPlot3dXAxisTitle {vvarname} { set vvar(graph,axis,x,title) $xtitle # update now (may not make it into plot code) - set cc $vvar(graph,current) - $vvar($cc) xaxis configure -title $xtitle + $vvar(graph) xaxis configure -title $xtitle } proc MarkerAnalysisPlot3dYAxisTitle {vvarname} { @@ -314,6 +310,5 @@ proc MarkerAnalysisPlot3dYAxisTitle {vvarname} { set vvar(graph,axis,y,title) "$vvar(bunit) [string totitle $vvar(method)]" # update now (may not make it into plot code) - set cc $vvar(graph,current) - $vvar($cc) yaxis configure -title $vvar(graph,axis,y,title) + $vvar(graph) yaxis configure -title $vvar(graph,axis,y,title) } |