Changeset 3966 for trunk/gui/scripts/vtkisosurfaceviewer.tcl

Timestamp:

Sep 30, 2013 6:29:29 PM (11 years ago)

Author:

ldelgass

Message:

Allow overriding viewer for DICOM (with about.view), fixes for styles in
isosurface viewer. Also, make isosurface opaque if there is only one level
as translucency is expensive to render.

File:

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

trunk/gui/scripts/vtkisosurfaceviewer.tcl

@@ -2117 +2117 @@
     }
     array set style [$dataobj style $comp]
-    if { $dataobj != $_first } {
+    if { $dataobj != $_first || $style(-levels) == 1 } {
         set style(-opacity) 1
-    }
-    if { $_currentColormap == "" } {
-        set stylelist [$dataobj style $comp]
-        if { $stylelist != "" } {
-            array set style $stylelist
-            set stylelist [array get style]
-            SetCurrentColormap $stylelist
-        }
-        $itk_component(colormap) value $style(-color)
     }
     SendCmd "cutplane add $tag"
@@ -2151 +2142 @@
     }
     if { $_currentColormap == "" } {
+        SetCurrentColormap $style(-color)
         $itk_component(colormap) value $style(-color)
     }
@@ -2497 +2489 @@
     set _currentColormap $name
     SendCmd "contour3d colormap $_currentColormap"
+    SendCmd "cutplane colormap $_currentColormap"
 }