Changeset 4151 for trunk/gui/scripts

Timestamp:

Jan 27, 2014 7:53:06 PM (10 years ago)

Author:

ldelgass

Message:

Add style options to vtk glyph viewer for e.g. setting shape for glyphing non-
vector data. Also disable writing debug vtk file.

File:

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

trunk/gui/scripts/vtkglyphviewer.tcl

@@ -970 +970 @@
             if { ![info exists _datasets($tag)] } {
                 set bytes [$dataobj vtkdata $comp]
-                if 1 { 
+                if 0 { 
                     set f [open "/tmp/glyph.vtk" "w"]
                     puts $f $bytes
@@ -2053 +2053 @@
         -edgecolor black
         -linewidth 1.0
+        -ptsize 1.0
         -opacity 1.0
         -wireframe 0
         -lighting 1
         -outline 0
-        -levels 10
+        -shape "arrow"
+        -orientGlyphs 1
+        -scaleMode "vmag"
+        -quality 1
+    }
+    set numComponents [$dataobj numComponents $comp]
+    if {$numComponents == 3} {
+        set style(-shape) "arrow"
+        set style(-orientGlyphs) 1
+        set style(-scaleMode) "vmag"
+    } else {
+        set style(-shape) "sphere"
+        set style(-orientGlyphs) 0
+        set style(-scaleMode) "scalar"
     }
     array set style [$dataobj style $comp]
     if { $dataobj != $_first } {
         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)
     }
     if 0 {
@@ -2095 +2100 @@
     }
     set _currentOpacity $style(-opacity)
-    SendCmd "glyphs add arrow $tag"
+    SendCmd "glyphs add $style(-shape) $tag"
     SendCmd "glyphs edges $style(-edges) $tag"
     # normscale=1 and gscale=1 are defaults
@@ -2107 +2112 @@
     set _settings(glyphEdges) $style(-edges)
     #SendCmd "glyphs color [Color2RGB $settings(-color)] $tag"
+    # Omitting field name for gorient and smode commands
+    # defaults to active scalars or vectors depending on mode
+    SendCmd "glyphs gorient $style(-orientGlyphs) {} $tag"
+    SendCmd "glyphs smode $style(-scaleMode) {} $tag"
+    SendCmd "glyphs quality $style(-quality) $tag"
     SendCmd "glyphs lighting $style(-lighting) $tag"
     set _settings(glyphLighting) $style(-lighting)
     SendCmd "glyphs linecolor [Color2RGB $style(-edgecolor)] $tag"
     SendCmd "glyphs linewidth $style(-linewidth) $tag"
+    SendCmd "glyphs ptsize $style(-ptsize) $tag"
     SendCmd "glyphs opacity $_currentOpacity $tag"
     set _settings(glyphOpacity) $style(-opacity)