- Timestamp:
- Jul 11, 2014, 10:41:04 PM (10 years ago)
- Location:
- branches/1.3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3
-
branches/1.3/gui/scripts/vtksurfaceviewer.tcl
r4481 r4487 117 117 private variable _currentColormap "" 118 118 private variable _currentNumContours -1 119 private variable _currentOpacity ""120 119 121 120 private variable _dataset2style ;# maps dataobj-component to transfunc … … 398 397 EnableWaitDialog 500 399 398 Connect 400 update401 399 } 402 400 … … 1906 1904 1907 1905 if { $_changed(-surfaceopacity) } { 1908 set style(-opacity) $_settings(-surfaceopacity)1906 set style(-opacity) [expr $_settings(-surfaceopacity) * 0.01] 1909 1907 } 1910 1908 if { $_changed(-numcontours) } { … … 1918 1916 $itk_component(colormap) value $style(-color) 1919 1917 } 1920 set _currentOpacity $style(-opacity)1921 1918 if { $_currentNumContours != $style(-levels) } { 1922 1919 set _currentNumContours $style(-levels) … … 1944 1941 SendCmd "polydata linecolor [Color2RGB $style(-edgecolor)] $tag" 1945 1942 SendCmd "polydata linewidth $style(-linewidth) $tag" 1946 SendCmd "polydata opacity $ _currentOpacity$tag"1947 set _settings(-surfaceopacity) $style(-opacity)1943 SendCmd "polydata opacity $style(-opacity) $tag" 1944 set _settings(-surfaceopacity) [expr $style(-opacity) * 100.0] 1948 1945 SetCurrentColormap $style(-color) 1949 1946 SendCmd "polydata wireframe $style(-wireframe) $tag" 1950 1947 set _settings(-surfacewireframe) $style(-wireframe) 1951 set _settings(-surfaceopacity) [expr $style(-opacity) * 100.0]1952 1948 } 1953 1949
Note: See TracChangeset
for help on using the changeset viewer.