Changeset 5447 for branches/1.4
- Timestamp:
- May 6, 2015, 7:23:07 PM (9 years ago)
- Location:
- branches/1.4
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/vtkglyphviewer.tcl
r5349 r5447 2151 2151 -normscale 1 2152 2152 -opacity 1.0 2153 -orient Glyphs 12153 -orientglyphs 1 2154 2154 -outline 0 2155 2155 -ptsize 1.0 2156 2156 -quality 1 2157 -scale Mode "vmag"2157 -scalemode "vmag" 2158 2158 -shape "arrow" 2159 2159 -wireframe 0 … … 2162 2162 if {$numComponents == 3} { 2163 2163 set style(-shape) "arrow" 2164 set style(-orient Glyphs) 12165 set style(-scale Mode) "vmag"2164 set style(-orientglyphs) 1 2165 set style(-scalemode) "vmag" 2166 2166 } else { 2167 2167 set style(-shape) "sphere" 2168 set style(-orient Glyphs) 02169 set style(-scale Mode) "scalar"2168 set style(-orientglyphs) 0 2169 set style(-scalemode) "scalar" 2170 2170 } 2171 2171 array set style [$dataobj style $comp] 2172 # Backwards compat with camel case style option 2173 if { [info exists style(-orientGlyphs)] } { 2174 set style(-orientglyphs) $style(-orientGlyphs) 2175 array unset style -orientGlyphs 2176 } 2177 # Backwards compat with camel case style option 2178 if { [info exists style(-scaleMode)] } { 2179 set style(-scalemode) $style(-scaleMode) 2180 array unset style -scaleMode 2181 } 2172 2182 if { $dataobj != $_first } { 2173 2183 set style(-opacity) 1 … … 2221 2231 # Omitting field name for gorient and smode commands 2222 2232 # defaults to active scalars or vectors depending on mode 2223 SendCmd "glyphs gorient $style(-orient Glyphs) {} $tag"2224 set _settings(-glyphorient) $style(-orient Glyphs)2225 SendCmd "glyphs smode $style(-scale Mode) {} $tag"2226 set _settings(-glyphscalemode) $style(-scale Mode)2227 $itk_component(scaleMode) value "[$itk_component(scaleMode) label $style(-scale Mode)]"2233 SendCmd "glyphs gorient $style(-orientglyphs) {} $tag" 2234 set _settings(-glyphorient) $style(-orientglyphs) 2235 SendCmd "glyphs smode $style(-scalemode) {} $tag" 2236 set _settings(-glyphscalemode) $style(-scalemode) 2237 $itk_component(scaleMode) value "[$itk_component(scaleMode) label $style(-scalemode)]" 2228 2238 SendCmd "glyphs quality $style(-quality) $tag" 2229 2239 SendCmd "glyphs lighting $style(-lighting) $tag"
Note: See TracChangeset
for help on using the changeset viewer.