Changeset 5203 for branches/1.4/gui/scripts

Timestamp:

Apr 13, 2015, 2:27:03 PM (9 years ago)

Author:

ldelgass

Message:

sync with trunk (use cutplanes visible command in nanovis)

File:

• branches/1.4/gui/scripts/nanovisviewer.tcl (modified) (3 diffs)

branches/1.4/gui/scripts/nanovisviewer.tcl

@@ -970 +970 @@
         SendCmd "camera zoom $_view(-zoom)"
 
-        #cutplane state 0 all
+        # Turn off cutplanes for all volumes
         foreach axis {x y z} {
-            # Turn off cutplanes for all volumes
             SendCmd "cutplane state 0 $axis"
         }
@@ -1251 +1250 @@
             set datasets [CurrentDatasets -cutplanes]
             set tag [lindex $datasets 0]
-            if { $bool } {
-                foreach axis { x y z } {
-                    if { $_settings(-${axis}cutplanevisible) } {
-                        SendCmd "cutplane state 1 $axis $tag"
-                    }
-                }
-            } else {
-                foreach axis { x y z } {
-                    SendCmd "cutplane state 0 $axis $tag"
-                }
-            }
+            SendCmd "cutplane visible $bool $tag"
         }
         "-gridvisible" {
@@ -1342 +1331 @@
             set datasets [CurrentDatasets -cutplanes]
             set tag [lindex $datasets 0]
-            if { $_settings(-cutplanesvisible) } {
-                SendCmd "cutplane state $bool $axis $tag"
-            }
+            SendCmd "cutplane state $bool $axis $tag"
             if { $bool } {
                 $itk_component(${axis}CutScale) configure -state normal \