Changeset 4440 for trunk/gui/scripts
- Timestamp:
- Jun 25, 2014, 8:48:03 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkisosurfaceviewer.tcl
r4430 r4440 223 223 -axesvisible 1 224 224 -axislabelsvisible 1 225 -background black 226 -colormap BCGYR 227 -colormapvisible 1 225 -axismode "static" 226 -background black 227 -colormap BCGYR 228 -colormapvisible 1 228 229 -cutplaneedges 0 229 230 -cutplanelighting 1 … … 232 233 -cutplanesvisible 0 233 234 -cutplanewireframe 0 234 235 235 -field "Default" 236 -isolinecolor white 236 237 -isosurfaceedges 0 237 238 -isosurfacelighting 1 … … 253 254 } 254 255 array set _changed { 256 -colormap 0 255 257 -isosurfaceopacity 0 256 -colormap 0257 258 -numcontours 0 258 259 } … … 1398 1399 } 1399 1400 "-colormap" { 1400 set _changed( -colormap) 11401 set _changed($what) 1 1401 1402 StartBufferingCommands 1402 1403 set color [$itk_component(colormap) value] … … 1780 1781 "furthest_triad" "farthest" \ 1781 1782 "outer_edges" "outer" 1782 $itk_component(axisMode) value "static"1783 $itk_component(axisMode) value $_settings(-axismode) 1783 1784 bind $inner.mode <<Value>> [itcl::code $this AdjustSetting -axismode] 1784 1785 … … 2132 2133 set style(-opacity) 1 2133 2134 } 2134 SendCmd "cutplane add $tag"2135 SendCmd "cutplane visible 0 $tag"2136 2135 2137 2136 # This is too complicated. We want to set the colormap, number of … … 2172 2171 set _settings(-ycutplaneposition) $style(-ycutplaneposition) 2173 2172 set _settings(-zcutplaneposition) $style(-zcutplaneposition) 2174 2175 SendCmd [list contour3d add contourlist $_contourList $tag] 2176 SendCmd "contour3d edges $style(-edges) $tag" 2173 2174 SendCmd "cutplane add $tag" 2175 SendCmd "cutplane visible $style(-cutplanesvisible) $tag" 2176 2177 2177 SendCmd "outline add $tag" 2178 2178 SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag" 2179 2179 SendCmd "outline visible $style(-outline) $tag" 2180 2180 set _settings(-outline) $style(-outline) 2181 2182 SendCmd [list contour3d add contourlist $_contourList $tag] 2183 SendCmd "contour3d visible $style(-isosurfacevisible) $tag" 2184 SendCmd "contour3d edges $style(-edges) $tag" 2181 2185 set _settings(-isosurfaceedges) $style(-edges) 2182 2186 #SendCmd "contour3d color [Color2RGB $settings(-color)] $tag"
Note: See TracChangeset
for help on using the changeset viewer.