Changeset 6445 for trunk/gui

Timestamp:

Jul 27, 2016, 1:30:08 PM (8 years ago)

Author:

ldelgass

Message:

Fix "-color" setting for setting the colormap name for glyphs or polydata in the
vtkviewer. Make the constant colormode setting "-constcolor".

File:

• trunk/gui/scripts/vtkviewer.tcl (modified) (6 diffs)

trunk/gui/scripts/vtkviewer.tcl

@@ -2631 +2631 @@
         "glyphs" {
             array set settings {
-                -color white
+                -color BCGYR
+                -constcolor white
                 -edgecolor black
                 -edges 0
@@ -2664 +2665 @@
             }
             SendCmd "outline add $tag"
-            SendCmd "outline color [Color2RGB $settings(-color)] $tag"
+            SendCmd "outline color [Color2RGB $settings(-constcolor)] $tag"
             SendCmd "outline visible $settings(-outline) $tag"
             set _settings(glyphs-outline) $settings(-outline)
@@ -2672 +2673 @@
             SendCmd "glyphs gscale $settings(-gscale) $tag"
             SendCmd "glyphs wireframe $settings(-wireframe) $tag"
-            SendCmd "glyphs color [Color2RGB $settings(-color)] $tag"
+            SendCmd "glyphs color [Color2RGB $settings(-constcolor)] $tag"
             #SendCmd "glyphs colormode constant {} $tag"
             # Omitting field name for gorient and smode commands
@@ -2834 +2835 @@
             array set settings {
                 -cloudstyle "mesh"
-                -color white
+                -color BCGYR
+                -constcolor white
                 -edgecolor black
                 -edges 1
@@ -2847 +2849 @@
 
             SendCmd "outline add $tag"
-            SendCmd "outline color [Color2RGB $settings(-color)] $tag"
+            SendCmd "outline color [Color2RGB $settings(-constcolor)] $tag"
             SendCmd "outline visible $settings(-outline) $tag"
             set _settings(polydata-outline) $settings(-outline)
@@ -2857 +2859 @@
             set _settings(polydata-edges) $settings(-edges)
             SendCmd "polydata cloudstyle $settings(-cloudstyle) $tag"
-            SendCmd "polydata color [Color2RGB $settings(-color)] $tag"
+            SendCmd "polydata color [Color2RGB $settings(-constcolor)] $tag"
             #SendCmd "polydata colormode constant {} $tag"
             SendCmd "polydata lighting $settings(-lighting) $tag"