Changeset 4563 for branches/1.3/gui/scripts
- Timestamp:
- Jul 17, 2014, 10:59:23 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/nanovisviewer.tcl
r4562 r4563 150 150 private variable _settings 151 151 private variable _alphamap 152 private variable _widget153 152 154 153 private variable _first "" ; # This is the topmost volume. … … 230 229 -light 40 231 230 -light2side 1 231 -opacity 50 232 232 -outlinevisible 0 233 233 -qw 0.853553 … … 237 237 -thickness 350 238 238 -volume 1 239 -volumeopacity 0.5240 239 -volumevisible 1 241 240 -xcutplaneposition 50 … … 248 247 -zcutplanevisible 1 249 248 -zoom 1.0 250 }251 array set _widget {252 -volumeopacity 50253 249 } 254 250 itk_component add 3dview { … … 960 956 } 961 957 962 InitSettings -light2side -light - volumeopacity \958 InitSettings -light2side -light -opacity \ 963 959 -isosurfaceshading -gridvisible -axesvisible \ 964 960 -current … … 1291 1287 } 1292 1288 } 1293 "-volumeopacity" { 1294 set _settings($what) [expr $_widget($what) * 0.01] 1289 "-opacity" { 1295 1290 set _settings($_current${what}) $_settings($what) 1296 1291 foreach tag [GetDatasetsWithComponent $_current] { … … 1708 1703 label $inner.fog -text "Clear" -font $fg 1709 1704 ::scale $inner.transp -from 0 -to 100 -orient horizontal \ 1710 -variable [itcl::scope _ widget(-volumeopacity)] \1705 -variable [itcl::scope _settings(-opacity)] \ 1711 1706 -width 10 \ 1712 -showvalue off -command [itcl::code $this AdjustSetting - volumeopacity]1707 -showvalue off -command [itcl::code $this AdjustSetting -opacity] 1713 1708 label $inner.plastic -text "Opaque" -font $fg 1714 1709 … … 2106 2101 $cname-light 40 2107 2102 $cname-light2side 1 2108 $cname- volumeopacity 0.52103 $cname-opacity 50 2109 2104 $cname-thickness 350 2110 2105 $cname-volumevisible 1 … … 2127 2122 set _settings(-light) $_settings($cname-light) 2128 2123 set _settings(-light2side) $_settings($cname-light2side) 2124 set _settings(-opacity) $_settings($cname-opacity) 2129 2125 set _settings(-thickness) $_settings($cname-thickness) 2130 set _settings(-volumeopacity) $_settings($cname-volumeopacity)2131 2126 set _settings(-volumevisible) $_settings($cname-volumevisible) 2132 2127 $itk_component(colormap) value $_settings($cname-colormap)
Note: See TracChangeset
for help on using the changeset viewer.