Changeset 3899 for trunk/gui/scripts/flowvisviewer.tcl

Timestamp:

Aug 27, 2013 12:38:22 PM (8 years ago)

Author:

ldelgass

Message:

Add cutplane visibility button to nanovis viewers.

File:

• trunk/gui/scripts/flowvisviewer.tcl (modified) (8 diffs)

trunk/gui/scripts/flowvisviewer.tcl

@@ -253 +253 @@
         $this-streams           0
         $this-volume            1
-        $this-xcutplane         0
+        $this-cutplaneVisible   0
+        $this-xcutplane         1
         $this-xcutposition      0
-        $this-ycutplane         0
+        $this-ycutplane         1
         $this-ycutposition      0
-        $this-zcutplane         0
+        $this-zcutplane         1
         $this-zcutposition      0
     }]
@@ -318 +319 @@
         "Toggle the volume cloud on/off"
     pack $itk_component(volume) -padx 2 -pady 2
+
+    itk_component add cutplane {
+        Rappture::PushButton $f.cutplane \
+            -onimage [Rappture::icon cutbutton] \
+            -offimage [Rappture::icon cutbutton] \
+            -variable [itcl::scope _settings($this-cutplaneVisible)] \
+            -command [itcl::code $this AdjustSetting cutplaneVisible] 
+    }
+    Rappture::Tooltip::for $itk_component(cutplane) \
+        "Show/Hide cutplanes"
+    pack $itk_component(cutplane) -padx 2 -pady 2
 
     if { [catch {
@@ -1238 +1250 @@
     set _first [lindex [get] 0]
 
+    foreach axis {x y z} {
+        # Turn off cutplanes for all volumes
+        SendCmd "cutplane state 0 $axis"
+    }
+
     # Reset the camera and other view parameters
-    InitSettings light2side light transp isosurface grid axes volume outline
+    InitSettings light2side light transp isosurface grid axes volume outline \
+        cutplaneVisible xcutplane ycutplane zcutplane
     
     # nothing to send -- activate the proper volume
@@ -1295 +1313 @@
     set vols [CurrentVolumeIds -cutplanes]
     foreach axis {x y z} {
-        SendCmd "cutplane state $_settings($this-${axis}cutplane) $axis $vols"
         set pos [expr {0.01*$_settings($this-${axis}cutposition)}]
         SendCmd "cutplane position $pos $axis $vols"
@@ -1707 +1724 @@
             }
         }
+        "cutplaneVisible" {
+            set bool $_settings($this-$what)
+            set datasets [CurrentVolumeIds -cutplanes]
+            set tag [lindex $datasets 0]
+            SendCmd "cutplane visible $bool $tag"
+        }
         "xcutplane" - "ycutplane" - "zcutplane" {
             set axis [string range $what 0 0]
@@ -2304 +2327 @@
     Rappture::Tooltip::for $itk_component(xCutButton) \
         "Toggle the X cut plane on/off"
+    $itk_component(xCutButton) select
 
     itk_component add xCutScale {
@@ -2331 +2355 @@
     Rappture::Tooltip::for $itk_component(yCutButton) \
         "Toggle the Y cut plane on/off"
+    $itk_component(yCutButton) select
 
     itk_component add yCutScale {
@@ -2358 +2383 @@
     Rappture::Tooltip::for $itk_component(zCutButton) \
         "Toggle the Z cut plane on/off"
+    $itk_component(zCutButton) select
 
     itk_component add zCutScale {