Changeset 4352 for trunk/gui/scripts/vtkisosurfaceviewer.tcl

Timestamp:

Apr 29, 2014 1:23:42 PM (10 years ago)

Author:

gah

Message:

bug fix: -isosurfacevisible sets all surfaces to visible

File:

• trunk/gui/scripts/vtkisosurfaceviewer.tcl (modified) (4 diffs)

trunk/gui/scripts/vtkisosurfaceviewer.tcl

@@ -969 +969 @@
     }
     set _first ""
-    SendCmd "dataset visible 0"
+    SendCmd "contour3d visible 0"
     foreach dataobj [get -objects] {
         if { [info exists _obj2ovride($dataobj-raise)] &&  $_first == "" } {
@@ -1005 +1005 @@
                 # Setting dataset visible enables outline
                 # and contour3d
-                SendCmd "dataset visible 1 $tag"
+                SendCmd "contour3d visible 1 $tag"
             }
         }
@@ -1419 +1419 @@
         "-isosurfacevisible" {
             set bool $_settings($what)
-            SendCmd "contour3d visible $bool"
+            SendCmd "contour3d visible 0"
+            if { $bool } {
+                foreach tag [CurrentDatasets -visible] {
+                    SendCmd "contour3d visible $bool $tag"
+                }
+            }
             if { $bool } {
                 Rappture::Tooltip::for $itk_component(contour) \
@@ -2099 +2104 @@
         -opacity 0.6
         -outline 0
+        -wireframe 0
+        -xcutplaneposition 50
         -xcutplanevisible 1
-        -xcutplaneposition 50
+        -ycutplaneposition 50
         -ycutplanevisible 1
-        -ycutplaneposition 50
+        -zcutplaneposition 50
         -zcutplanevisible 1
-        -zcutplaneposition 50
-        -wireframe 0
     }
     array set style [$dataobj style $comp]