Changeset 4964

Timestamp:

Jan 30, 2015 9:02:42 AM (9 years ago)

Author:

ldelgass

Message:

Initialize x,y,z cutplane position/state from style in vtkisosurfacevewier's
SetObjectStyle? method. Should fix nanohub ticket #272677

File:

• trunk/gui/scripts/vtkisosurfaceviewer.tcl (modified) (1 diff)

trunk/gui/scripts/vtkisosurfaceviewer.tcl

@@ -2197 +2197 @@
     SendCmd "cutplane add $tag"
     SendCmd "cutplane color [Color2RGB $itk_option(-plotforeground)] $tag"
+    foreach axis {x y z} {
+        set pos [expr $_settings(-${axis}cutplaneposition) * 0.01]
+        set visible $_settings(-${axis}cutplanevisible)
+        SendCmd "cutplane slice $axis $pos"
+        SendCmd "cutplane axis $axis $visible"
+    }
     SendCmd "cutplane visible $style(-cutplanesvisible) $tag"