From 577979edc42a395c12bd1c1b7b3cd4b8a7efb508 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 14 Dec 2018 16:50:56 -0500
Subject: PLOT3D: verify 3D WCS, reset to IMAGE if not available

---
 ds9/doc/release/r8.1.html            | 1 +
 ds9/library/markeranalysisplot3d.tcl | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/ds9/doc/release/r8.1.html b/ds9/doc/release/r8.1.html
index 9686a6e..d3bf697 100644
--- a/ds9/doc/release/r8.1.html
+++ b/ds9/doc/release/r8.1.html
@@ -23,6 +23,7 @@
 <li><tt>12.10.2018 CONTOUR: LEVELS command now takes one numeric in addition to a string.</tt></li>
 <li><tt>12.14.2018 GRID: add checks to avoid NULL pointers in cases of odd WCS defs.</tt></li>
 <li><tt>12.14.2018 BINNING: bring forward any 3rd column WCS defines for binned 3d cubes.</tt></li>
+<li><tt>12.14.2018 PLOT3D: verify 3D WCS, reset to IMAGE if not available.</tt></li>
 <li><tt><b>xx.xx.2018 RELEASE version 8.1b1</b></tt></li>
 </ol>
 </div>
diff --git a/ds9/library/markeranalysisplot3d.tcl b/ds9/library/markeranalysisplot3d.tcl
index e26dd0b..2b93cbc 100644
--- a/ds9/library/markeranalysisplot3d.tcl
+++ b/ds9/library/markeranalysisplot3d.tcl
@@ -144,6 +144,11 @@ proc MarkerAnalysisPlot3dCB {frame id} {
 	set vvar(method) average
     }
 
+    # sanity check
+    if {![$frame has wcs 3d $vvar(system)]} {
+	set vvar(system) image
+    }
+
     set xdata ${vvarname}x
     set ydata ${vvarname}y
     global $xdata $ydata
-- 
cgit v0.12