Changeset 3899 for trunk/gui/scripts/nanovisviewer.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/nanovisviewer.tcl (modified) (7 diffs)

trunk/gui/scripts/nanovisviewer.tcl

@@ -220 +220 @@
         $this-ypan              $_view(ypan)
         $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
     }]
@@ -285 +286 @@
         "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 {
@@ -944 +956 @@
         PanCamera
         SendCmd "camera zoom $_view(zoom)"
-        InitSettings light2side light transp isosurface grid axes 
-        
+
         foreach axis {x y z} {
             # Turn off cutplanes for all volumes
             SendCmd "cutplane state 0 $axis"
         }
+
+        InitSettings light2side light transp isosurface grid axes \
+            cutplaneVisible xcutplane ycutplane zcutplane
+
         if {"" != $_first} {
             set axis [$_first hints updir]
@@ -1268 +1283 @@
             set datasets [CurrentDatasets -cutplanes] 
             SendCmd "volume data state $_settings($this-volume) $datasets"
+        }
+        "cutplaneVisible" {
+            set bool $_settings($this-$what)
+            set datasets [CurrentDatasets -cutplanes]
+            set tag [lindex $datasets 0]
+            SendCmd "cutplane visible $bool $tag"
         }
         "xcutplane" - "ycutplane" - "zcutplane" {
@@ -1826 +1847 @@
     Rappture::Tooltip::for $itk_component(xCutButton) \
         "Toggle the X cut plane on/off"
+    $itk_component(xCutButton) select
 
     itk_component add xCutScale {
@@ -1853 +1875 @@
     Rappture::Tooltip::for $itk_component(yCutButton) \
         "Toggle the Y cut plane on/off"
+    $itk_component(yCutButton) select
 
     itk_component add yCutScale {
@@ -1880 +1903 @@
     Rappture::Tooltip::for $itk_component(zCutButton) \
         "Toggle the Z cut plane on/off"
+    $itk_component(zCutButton) select
 
     itk_component add zCutScale {