From 6ed14079b7fc605d2a3e83216ece39cac613aabf Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Mon, 1 Jul 2019 16:52:10 -0400
Subject: PLOT3D: simplify code for generating plot3d cursor

---
 ds9/doc/release/r8.1.html            |  1 +
 ds9/library/markeranalysisplot3d.tcl | 11 -----------
 2 files changed, 1 insertion(+), 11 deletions(-)

diff --git a/ds9/doc/release/r8.1.html b/ds9/doc/release/r8.1.html
index fd257ef..90e4cc2 100644
--- a/ds9/doc/release/r8.1.html
+++ b/ds9/doc/release/r8.1.html
@@ -85,6 +85,7 @@
 <li><tt>06.19.2019 RGB: fixed an issue introduced in 8.1b1 in which a bad fits file loaded into RGB frame would not generate an error message.</tt></li>
 <li><tt>06.19.2019 PREFS: screen for old pbuttons vars which may have been passed along from previous prefs files before processing the buttons.</tt></li>
 <li><tt>07.01.2019 SKYBOT: fixed an issue with keyword EXPTIME/EXP_TIME if present.</tt></li>
+<li><tt>07.01.2019 PLOT3D: simplify code for generating plot3d cursor.</tt></li>
 <li><tt><b>xx.xx.2019 RELEASE version 8.1b2</b></tt></li>
 </ol>
 </div>
diff --git a/ds9/library/markeranalysisplot3d.tcl b/ds9/library/markeranalysisplot3d.tcl
index 2b93cbc..5a12851 100644
--- a/ds9/library/markeranalysisplot3d.tcl
+++ b/ds9/library/markeranalysisplot3d.tcl
@@ -207,7 +207,6 @@ proc MarkerAnalysisPlot3dMotion {vvarname xx yy} {
 
     set vvar(slice) [lindex [$vvar(graph) invtransform $xx $yy] 0]
     $vvar(frame) update fits slice $vvar(slice) $vvar(system) $vvar(sky)
-
     MarkerAnalysisPlot3dMarker $vvarname
 
     # current frame only
@@ -224,16 +223,6 @@ proc MarkerAnalysisPlot3dMarker {vvarname} {
     upvar #0 $vvarname vvar
     global $vvarname
 
-    set ss [$vvar(frame) get crop 3d $vvar(system) $vvar(sky)]
-    set min [lindex $ss 0]
-    set max [lindex $ss 1]
-    set delta [expr ($max-$min)*.0001]
-    if {[::math::fuzzy::tle $vvar(slice) $min]} {
-	set vvar(slice) [expr $min+$delta]
-    }
-    if {[::math::fuzzy::tge $vvar(slice) $max]} {
-	set vvar(slice) [expr $max-$delta]
-    }
     $vvar(graph) marker configure $vvar(markerslice) \
 	-coords "$vvar(slice) -Inf $vvar(slice) Inf"
 }
-- 
cgit v0.12