Changeset 5670 for trunk/gui/scripts
- Timestamp:
- Jun 7, 2015, 2:58:11 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkviewer.tcl
r5347 r5670 2665 2665 -normscale 0 2666 2666 -opacity 1.0 2667 -orient Glyphs 02667 -orientglyphs 0 2668 2668 -outline 0 2669 2669 -ptsize 1.0 2670 2670 -quality 1 2671 -scale Mode "vcomp"2671 -scalemode "vcomp" 2672 2672 -shape "sphere" 2673 2673 -visible 1 … … 2678 2678 if {$shape != ""} { 2679 2679 set settings(-shape) $shape 2680 } 2681 # Backwards compat with camel case style option 2682 if { [info exists settings(-orientGlyphs)] } { 2683 set settings(-orientglyphs) $settings(-orientGlyphs) 2684 array unset settings -orientGlyphs 2685 } 2686 # Backwards compat with camel case style option 2687 if { [info exists settings(-scaleMode)] } { 2688 set settings(-scalemode) $settings(-scaleMode) 2689 array unset settings -scaleMode 2680 2690 } 2681 2691 SendCmd "outline add $tag" … … 2692 2702 # Omitting field name for gorient and smode commands 2693 2703 # defaults to active scalars or vectors depending on mode 2694 SendCmd "glyphs gorient $settings(-orient Glyphs) {} $tag"2695 SendCmd "glyphs smode $settings(-scale Mode) {} $tag"2704 SendCmd "glyphs gorient $settings(-orientglyphs) {} $tag" 2705 SendCmd "glyphs smode $settings(-scalemode) {} $tag" 2696 2706 SendCmd "glyphs edges $settings(-edges) $tag" 2697 2707 SendCmd "glyphs linecolor [Color2RGB $settings(-edgecolor)] $tag"
Note: See TracChangeset
for help on using the changeset viewer.