Changeset 4440 for trunk/gui

Timestamp:

Jun 25, 2014 8:48:03 PM (10 years ago)

Author:

ldelgass

Message:

Minor fixes for isosurface viewer

File:

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

trunk/gui/scripts/vtkisosurfaceviewer.tcl

@@ -223 +223 @@
         -axesvisible                    1
         -axislabelsvisible              1
-        -background                     black
-        -colormap                       BCGYR
-        -colormapvisible                1
+        -axismode                       "static"
+        -background                     black
+        -colormap                       BCGYR
+        -colormapvisible                1
         -cutplaneedges                  0
         -cutplanelighting               1
@@ -232 +233 @@
         -cutplanesvisible               0
         -cutplanewireframe              0
-        -field                          "Default"
-        -isolinecolor                   white
+        -field                          "Default"
+        -isolinecolor                   white
         -isosurfaceedges                0
         -isosurfacelighting             1
@@ -253 +254 @@
     }
     array set _changed {
+        -colormap                0
         -isosurfaceopacity       0
-        -colormap                0
         -numcontours             0
     }
@@ -1398 +1399 @@
         }
         "-colormap" {
-            set _changed(-colormap) 1
+            set _changed($what) 1
             StartBufferingCommands
             set color [$itk_component(colormap) value]
@@ -1780 +1781 @@
         "furthest_triad"  "farthest" \
         "outer_edges"     "outer"         
-    $itk_component(axisMode) value "static"
+    $itk_component(axisMode) value $_settings(-axismode)
     bind $inner.mode <<Value>> [itcl::code $this AdjustSetting -axismode]
 
@@ -2132 +2133 @@
         set style(-opacity) 1
     }
-    SendCmd "cutplane add $tag"
-    SendCmd "cutplane visible 0 $tag"
 
     # This is too complicated.  We want to set the colormap, number of
@@ -2172 +2171 @@
     set _settings(-ycutplaneposition) $style(-ycutplaneposition)
     set _settings(-zcutplaneposition) $style(-zcutplaneposition)
- 
-    SendCmd [list contour3d add contourlist $_contourList $tag]
-    SendCmd "contour3d edges $style(-edges) $tag"
+
+    SendCmd "cutplane add $tag"
+    SendCmd "cutplane visible $style(-cutplanesvisible) $tag"
+
     SendCmd "outline add $tag"
     SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag"
     SendCmd "outline visible $style(-outline) $tag"
     set _settings(-outline) $style(-outline)
+ 
+    SendCmd [list contour3d add contourlist $_contourList $tag]
+    SendCmd "contour3d visible $style(-isosurfacevisible) $tag"
+    SendCmd "contour3d edges $style(-edges) $tag"
     set _settings(-isosurfaceedges) $style(-edges)
     #SendCmd "contour3d color [Color2RGB $settings(-color)] $tag"