Changeset 6454 for trunk

Timestamp:

Jul 29, 2016, 3:16:15 PM (8 years ago)

Author:

ldelgass

Message:

Add -constcolor style to surface viewer

File:

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

trunk/gui/scripts/vtksurfaceviewer.tcl

@@ -1883 +1883 @@
     array set style {
         -color           BCGYR
+        -constcolor      white
         -edgecolor       black
         -edges           0
@@ -1955 +1956 @@
     SendCmd "polydata edges $style(-edges) $tag"
     set _settings(-surfaceedges) $style(-edges)
-    #SendCmd "polydata color [Color2RGB $settings(-color)] $tag"
+    SendCmd "polydata color [Color2RGB $settings(-constcolor)] $tag"
     SendCmd "polydata lighting $style(-lighting) $tag"
     set _settings(-surfacelighting) $style(-lighting)
@@ -2254 +2255 @@
 itcl::body Rappture::VtkSurfaceViewer::SetCurrentColormap { name } {
     # Keep track of the colormaps that we build.
-    if { ![info exists _colormaps($name)] } {
+    if { $name != "none" && ![info exists _colormaps($name)] } {
         BuildColormap $name
         set _colormaps($name) 1