Changeset 3686 for trunk/gui/scripts

Timestamp:

Jun 14, 2013 2:42:39 PM (11 years ago)

Author:

gah

Message:

add initial implementation of glyph viewer (temporary, to be folded into streamlines viewer)

Location:

trunk/gui/scripts

Files:

• field.tcl (modified) (1 diff)
• vtkglyphviewer.tcl (modified) (1 diff)

trunk/gui/scripts/field.tcl

@@ -1342 +1342 @@
         append out "$vtkassoc $numValues\n"
         if { $_comp2type($cname) == "scalar" } {
-            set vtktype "SCALARS"
+            append out "SCALARS $label double $elemSize\n"
+            append out "LOOKUP_TABLE default\n"
         } elseif { $_comp2type($cname) == "vector" } {
-            set vtktype "VECTORS"
+            append out "VECTORS $label double $elemSize\n"
         } else {
             error "unknown element type \"$_comp2type($cname)\""
         }
-        append out "$vtktype $label double $elemSize\n"
-        append out "LOOKUP_TABLE default\n"
         append out "[$vector range 0 end]\n"
         if 0 {

trunk/gui/scripts/vtkglyphviewer.tcl

@@ -2117 +2117 @@
     SendCmd "glyphs add arrow $tag"
     SendCmd "glyphs edges $style(-edges) $tag"
-    SendCmd "glyphs gscale 10 $tag"
+    SendCmd "glyphs gscale 20 $tag"
     SendCmd "outline add $tag"
     SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag"