Changeset 6462
- Timestamp:
- Aug 2, 2016, 11:55:35 PM (8 years ago)
- Location:
- branches/1.7
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.7
-
branches/1.7/gui/scripts/vtkisosurfaceviewer.tcl
r6411 r6462 2359 2359 SendCmd "contour3d edges $style(-edges) $tag" 2360 2360 set _settings(-isosurfaceedges) $style(-edges) 2361 #SendCmd "contour3d color [Color2RGB $style(-constcolor)] $tag"2361 SendCmd "contour3d color [Color2RGB $style(-constcolor)] $tag" 2362 2362 SendCmd "contour3d lighting $style(-lighting) $tag" 2363 2363 set _settings(-isosurfacelighting) $style(-lighting) -
branches/1.7/gui/scripts/vtkmeshviewer.tcl
r6364 r6462 1512 1512 -opacity 1.0 1513 1513 -outline 0 1514 -ptsize 1.0 1514 1515 -visible 1 1515 1516 -wireframe 0 … … 1541 1542 SendCmd "polydata linecolor [Color2RGB $style(-edgecolor)] $tag" 1542 1543 SendCmd "polydata linewidth $style(-linewidth) $tag" 1544 SendCmd "polydata ptsize $style(-ptsize) $tag" 1543 1545 SendCmd "polydata opacity $style(-opacity) $tag" 1544 1546 set _settings(-polydataopacity) $style(-opacity) -
branches/1.7/gui/scripts/vtkstreamlinesviewer.tcl
r6411 r6462 2094 2094 -visible 1 2095 2095 } 2096 set style(-constcolor) $itk_option(-plotforeground) 2096 2097 array set style [$dataobj style $comp] 2097 2098 -
branches/1.7/gui/scripts/vtksurfaceviewer.tcl
r6457 r6462 1893 1893 -opacity 1.0 1894 1894 -outline 0 1895 -ptsize 1.0 1895 1896 -surfacevisible 1 1896 1897 -wireframe 0 1897 1898 } 1899 set style(-constcolor) $itk_option(-plotforeground) 1898 1900 array set style [$dataobj style $comp] 1899 1901 … … 1947 1949 1948 1950 SendCmd "outline add $tag" 1949 SendCmd "outline color [Color2RGB $ itk_option(-plotforeground)] $tag"1951 SendCmd "outline color [Color2RGB $style(-constcolor)] $tag" 1950 1952 SendCmd "outline visible $style(-outline) $tag" 1951 1953 … … 1961 1963 SendCmd "polydata linecolor [Color2RGB $style(-edgecolor)] $tag" 1962 1964 SendCmd "polydata linewidth $style(-linewidth) $tag" 1965 SendCmd "polydata ptsize $style(-ptsize) $tag" 1963 1966 SendCmd "polydata opacity $style(-opacity) $tag" 1964 1967 set _settings(-surfaceopacity) [expr $style(-opacity) * 100.0] -
branches/1.7/gui/scripts/vtkviewer.tcl
r6455 r6462 2740 2740 2741 2741 SendCmd "outline add $tag" 2742 SendCmd "outline color [Color2RGB white] $tag"2742 SendCmd "outline color [Color2RGB $settings(-constcolor)] $tag" 2743 2743 SendCmd "outline visible $settings(-outline) $tag" 2744 2744 set _settings(molecule-outline) $settings(-outline)
Note: See TracChangeset
for help on using the changeset viewer.