- Timestamp:
- Nov 17, 2014 5:35:00 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/vtkvolumeviewer.tcl
r4740 r4741 98 98 private method EnterLegend { x y } 99 99 private method EventuallyResize { w h } 100 private method EventuallyRequestLegend {} 100 101 private method EventuallyRotate { q } 101 102 private method EventuallySetCutplane { axis args } … … 223 224 -axisminorticks 1 224 225 -background black 225 -cutplaneedges 0226 226 -cutplanelighting 1 227 227 -cutplaneopacity 100 228 228 -cutplanesvisible 0 229 -cutplanewireframe 0230 229 -legendvisible 1 231 230 -volumelighting 1 … … 469 468 } 470 469 470 itcl::body Rappture::VtkVolumeViewer::EventuallyRequestLegend {} { 471 if { !$_legendPending } { 472 set _legendPending 1 473 $_dispatcher event -idle !legend 474 } 475 } 476 471 477 set rotate_delay 100 472 478 … … 1377 1383 SendCmd "axis flymode $mode" 1378 1384 } 1379 "-cutplaneedges" {1380 set bool $_settings($what)1381 foreach dataset [CurrentDatasets -visible] {1382 SendCmd "$_cutplaneCmd edges $bool $dataset"1383 }1384 }1385 1385 "-cutplanesvisible" { 1386 1386 set bool $_settings($what) 1387 1387 foreach dataset [CurrentDatasets -visible] { 1388 1388 SendCmd "$_cutplaneCmd visible $bool $dataset" 1389 }1390 }1391 "-cutplanewireframe" {1392 set bool $_settings($what)1393 foreach dataset [CurrentDatasets -visible] {1394 SendCmd "$_cutplaneCmd wireframe $bool $dataset"1395 1389 } 1396 1390 } … … 1872 1866 -font "Arial 9" 1873 1867 1874 checkbutton $inner.wireframe \1875 -text "Show Wireframe" \1876 -variable [itcl::scope _settings(-cutplanewireframe)] \1877 -command [itcl::code $this AdjustSetting -cutplanewireframe] \1878 -font "Arial 9"1879 1880 1868 checkbutton $inner.lighting \ 1881 1869 -text "Enable Lighting" \ 1882 1870 -variable [itcl::scope _settings(-cutplanelighting)] \ 1883 1871 -command [itcl::code $this AdjustSetting -cutplanelighting] \ 1884 -font "Arial 9"1885 1886 checkbutton $inner.edges \1887 -text "Show Edges" \1888 -variable [itcl::scope _settings(-cutplaneedges)] \1889 -command [itcl::code $this AdjustSetting -cutplaneedges] \1890 1872 -font "Arial 9" 1891 1873 … … 1984 1966 0,0 $inner.visible -anchor w -pady 2 -cspan 4 \ 1985 1967 1,0 $inner.lighting -anchor w -pady 2 -cspan 4 \ 1986 2,0 $inner.wireframe -anchor w -pady 2 -cspan 4 \ 1987 3,0 $inner.edges -anchor w -pady 2 -cspan 4 \ 1988 4,0 $inner.opacity_l -anchor w -pady 2 -cspan 3 \ 1989 5,0 $inner.opacity -fill x -pady 2 -cspan 3 \ 1990 6,0 $itk_component(xCutButton) -anchor e -padx 2 -pady 2 \ 1991 7,0 $itk_component(xCutScale) -fill y \ 1992 6,1 $itk_component(yCutButton) -anchor e -padx 2 -pady 2 \ 1993 7,1 $itk_component(yCutScale) -fill y \ 1994 6,2 $itk_component(zCutButton) -anchor e -padx 2 -pady 2 \ 1995 7,2 $itk_component(zCutScale) -fill y \ 1968 2,0 $inner.opacity_l -anchor w -pady 2 -cspan 3 \ 1969 3,0 $inner.opacity -fill x -pady 2 -cspan 3 \ 1970 4,0 $itk_component(xCutButton) -anchor e -padx 2 -pady 2 \ 1971 5,0 $itk_component(xCutScale) -fill y \ 1972 4,1 $itk_component(yCutButton) -anchor e -padx 2 -pady 2 \ 1973 5,1 $itk_component(yCutScale) -fill y \ 1974 4,2 $itk_component(zCutButton) -anchor e -padx 2 -pady 2 \ 1975 5,2 $itk_component(zCutScale) -fill y 1996 1976 1997 1977 blt::table configure $inner r* c* -resize none 1998 blt::table configure $inner r 7c3 -resize expand1978 blt::table configure $inner r5 c3 -resize expand 1999 1979 } 2000 1980 … … 2330 2310 } 2331 2311 2332 2333 2312 # ---------------------------------------------------------------------- 2334 2313 # USAGE: _dropdown post
Note: See TracChangeset
for help on using the changeset viewer.