- Timestamp:
- Jul 17, 2014, 2:07:05 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtksurfaceviewer.tcl
r4454 r4537 215 215 -surfacelighting 1 216 216 -surfaceopacity 100 217 - surfaceoutline0217 -outline 0 218 218 -surfacevisible 1 219 219 -surfacewireframe 0 … … 984 984 $itk_component(field) value $_curFldLabel 985 985 } 986 InitSettings -isolinesvisible -surfacevisible - surfaceoutline986 InitSettings -isolinesvisible -surfacevisible -outline 987 987 if { $_reset } { 988 988 # These are settings that rely on a dataset being loaded. … … 1368 1368 SendCmd "polydata edges $bool" 1369 1369 } 1370 "- surfaceoutline" {1370 "-outline" { 1371 1371 set bool $_settings($what) 1372 1372 SendCmd "outline visible $bool" … … 1551 1551 checkbutton $inner.outline \ 1552 1552 -text "Outline" \ 1553 -variable [itcl::scope _settings(- surfaceoutline)] \1554 -command [itcl::code $this AdjustSetting - surfaceoutline] \1553 -variable [itcl::scope _settings(-outline)] \ 1554 -command [itcl::code $this AdjustSetting -outline] \ 1555 1555 -font "Arial 9" 1556 1556 … … 1926 1926 set _settings(-surfacevisible) $style(-surfacevisible) 1927 1927 1928 SendCmd "polydata add $tag"1929 SendCmd "polydata edges $style(-edges) $tag"1930 SendCmd [list contour2d add contourlist $_contourList $tag]1931 SendCmd "contour2d colormode constant {} $tag"1932 SendCmd "contour2d color [Color2RGB $style(-isolinecolor)] $tag"1933 1928 SendCmd "outline add $tag" 1934 1929 SendCmd "outline color [Color2RGB $itk_option(-plotforeground)] $tag" 1935 1930 SendCmd "outline visible $style(-outline) $tag" 1936 set _settings(-surfaceoutline) $style(-outline) 1931 set _settings(-outline) $style(-outline) 1932 1933 SendCmd "polydata add $tag" 1934 SendCmd "polydata edges $style(-edges) $tag" 1937 1935 set _settings(-surfaceedges) $style(-edges) 1938 1936 #SendCmd "polydata color [Color2RGB $settings(-color)] $tag" … … 1946 1944 SendCmd "polydata wireframe $style(-wireframe) $tag" 1947 1945 set _settings(-surfacewireframe) $style(-wireframe) 1946 1947 SendCmd [list contour2d add contourlist $_contourList $tag] 1948 SendCmd "contour2d colormode constant {} $tag" 1949 SendCmd "contour2d color [Color2RGB $style(-isolinecolor)] $tag" 1948 1950 } 1949 1951
Note: See TracChangeset
for help on using the changeset viewer.