Changeset 4429 for branches/1.3
- Timestamp:
- Jun 25, 2014, 1:25:10 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl
r4428 r4429 251 251 -isosurfacelighting 1 252 252 -isosurfaceopacity 60 253 -isosurfaceoutline 0254 253 -isosurfacevisible 1 255 254 -isosurfacewireframe 0 256 255 -legendvisible 1 257 256 -numcontours 10 258 - xgrid0257 -outline 0 259 258 -xcutplaneposition 50 260 259 -xcutplanevisible 1 261 - ygrid 0260 -xgrid 0 262 261 -ycutplaneposition 50 263 262 -ycutplanevisible 1 264 - zgrid 0263 -ygrid 0 265 264 -zcutplaneposition 50 266 265 -zcutplanevisible 1 266 -zgrid 0 267 267 } 268 268 array set _changed { … … 1079 1079 } 1080 1080 } 1081 InitSettings -cutplanesvisible -isosurfacevisible - isosurfaceoutline1081 InitSettings -cutplanesvisible -isosurfacevisible -outline 1082 1082 if { $_reset } { 1083 1083 # These are settings that rely on a dataset being loaded. … … 1495 1495 SendCmd "contour3d edges $bool" 1496 1496 } 1497 "- isosurfaceoutline" {1497 "-outline" { 1498 1498 set bool $_settings($what) 1499 1499 SendCmd "outline visible 0" … … 1671 1671 checkbutton $inner.outline \ 1672 1672 -text "Outline" \ 1673 -variable [itcl::scope _settings(- isosurfaceoutline)] \1674 -command [itcl::code $this AdjustSetting - isosurfaceoutline] \1673 -variable [itcl::scope _settings(-outline)] \ 1674 -command [itcl::code $this AdjustSetting -outline] \ 1675 1675 -font "Arial 9" 1676 1676 … … 2245 2245 SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag" 2246 2246 SendCmd "outline visible $style(-outline) $tag" 2247 set _settings(- isosurfaceoutline) $style(-outline)2247 set _settings(-outline) $style(-outline) 2248 2248 set _settings(-isosurfaceedges) $style(-edges) 2249 2249 #SendCmd "contour3d color [Color2RGB $settings(-color)] $tag"
Note: See TracChangeset
for help on using the changeset viewer.