Changeset 4190

Timestamp:

Feb 20, 2014 7:40:21 PM (10 years ago)

Author:

ldelgass

Message:

Apply -normscale -gscale settings

File:

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

trunk/gui/scripts/vtkglyphviewer.tcl

@@ -2050 +2050 @@
     array set style {
         -color BCGYR
+        -edgecolor black
         -edges 0
-        -edgecolor black
+        -gscale 1
+        -lighting 1
         -linewidth 1.0
+        -normscale 1
+        -opacity 1.0
+        -orientGlyphs 1
+        -outline 0
         -ptsize 1.0
-        -opacity 1.0
+        -quality 1
+        -scaleMode "vmag"
+        -shape "arrow"
         -wireframe 0
-        -lighting 1
-        -outline 0
-        -shape "arrow"
-        -orientGlyphs 1
-        -scaleMode "vmag"
-        -quality 1
     }
     set numComponents [$dataobj numComponents $comp]
@@ -2103 +2105 @@
     SendCmd "glyphs edges $style(-edges) $tag"
     # normscale=1 and gscale=1 are defaults
-    #SendCmd "glyphs normscale 1 $tag"
-    #SendCmd "glyphs gscale 1 $tag"
-
+    if {$style(-normscale) != 1} {
+        SendCmd "glyphs normscale $style(-normscale) $tag"
+    }
+    if {$style(-gscale) != 1} {
+        SendCmd "glyphs gscale $style(-gscale) $tag"
+    }
     SendCmd "outline add $tag"
     SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag"
@@ -2111 +2116 @@
     set _settings(glyphOutline) $style(-outline)
     set _settings(glyphEdges) $style(-edges)
-    #SendCmd "glyphs color [Color2RGB $settings(-color)] $tag"
+    # constant color only used if colormode set to constant
+    SendCmd "glyphs color [Color2RGB $itk_option(-plotforeground)] $tag"
     # Omitting field name for gorient and smode commands
     # defaults to active scalars or vectors depending on mode