- Timestamp:
- Nov 14, 2014, 2:15:55 AM (10 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/nanovisviewer.tcl
r4725 r4728 2302 2302 # Transfer function should be normalized with [0,1] range 2303 2303 # The volume shading opacity setting is used to scale opacity 2304 # in the volume shader. 2304 # in the volume shader. 2305 2305 set max 1.0 2306 2306 -
trunk/gui/scripts/vtkvolumeviewer.tcl
r4691 r4728 63 63 public method updateTransferFunctions {} 64 64 65 private method BuildViewTab {}66 65 private method BuildVolumeComponents {} 67 66 private method ComputeAlphamap { cname } … … 121 120 private method BuildCutplaneTab {} 122 121 private method BuildDownloadPopup { widget command } 122 private method BuildViewTab {} 123 123 private method BuildVolumeTab {} 124 124 private method DrawLegend {} … … 268 268 -xcutplaneposition 50 269 269 -xcutplanevisible 1 270 -xgrid visible0270 -xgrid 0 271 271 -ycutplaneposition 50 272 272 -ycutplanevisible 1 273 -ygrid visible0273 -ygrid 0 274 274 -zcutplaneposition 50 275 275 -zcutplanevisible 1 276 -zgrid visible0276 -zgrid 0 277 277 } 278 278 … … 514 514 515 515 itcl::body Rappture::VtkVolumeViewer::EventuallyRotate { q } { 516 QuaternionToView $q 516 QuaternionToView $q 517 517 if { !$_rotatePending } { 518 518 set _rotatePending 1 … … 1019 1019 DoRotate 1020 1020 InitSettings -volumeoutline -background \ 1021 -xgrid visible -ygridvisible -zgridvisible-axisflymode \1021 -xgrid -ygrid -zgrid -axisflymode \ 1022 1022 -axesvisible -axislabels -axisminorticks 1023 1023 PanCamera … … 1506 1506 SendCmd "axis minticks all $bool" 1507 1507 } 1508 "-xgrid visible" - "-ygridvisible" - "-zgridvisible" {1509 set axis [string tolower [string range $what 1 1 ]]1508 "-xgrid" - "-ygrid" - "-zgrid" { 1509 set axis [string range $what 1 1] 1510 1510 set bool $_settings($what) 1511 1511 SendCmd "axis grid $axis $bool" … … 1548 1548 } 1549 1549 "-xcutplanevisible" - "-ycutplanevisible" - "-zcutplanevisible" { 1550 set axis [string tolower [string range $what 1 1]]1550 set axis [string range $what 1 1] 1551 1551 set bool $_settings($what) 1552 1552 if { $bool } { … … 1562 1562 } 1563 1563 "-xcutplaneposition" - "-ycutplaneposition" - "-zcutplaneposition" { 1564 set axis [string tolower [string range $what 1 1]]1564 set axis [string range $what 1 1] 1565 1565 set pos [expr $_settings($what) * 0.01] 1566 1566 foreach dataset [CurrentDatasets -visible] { … … 1662 1662 1663 1663 itcl::body Rappture::VtkVolumeViewer::BuildViewTab {} { 1664 1665 1664 set fg [option get $itk_component(hull) font Font] 1666 1665 #set bfg [option get $itk_component(hull) boldFont Font] … … 1877 1876 1878 1877 itcl::body Rappture::VtkVolumeViewer::BuildAxisTab {} { 1879 1880 1878 set fg [option get $itk_component(hull) font Font] 1881 1879 #set bfg [option get $itk_component(hull) boldFont Font] … … 1897 1895 -command [itcl::code $this AdjustSetting -axislabels] \ 1898 1896 -font "Arial 9" 1899 1897 label $inner.grid_l -text "Grid" -font "Arial 9" 1900 1898 checkbutton $inner.xgrid \ 1901 1899 -text "X" \ 1902 -variable [itcl::scope _settings(-xgrid visible)] \1900 -variable [itcl::scope _settings(-xgrid)] \ 1903 1901 -command [itcl::code $this AdjustSetting -xgrid] \ 1904 1902 -font "Arial 9" 1905 1903 checkbutton $inner.ygrid \ 1906 1904 -text "Y" \ 1907 -variable [itcl::scope _settings(-ygrid visible)] \1905 -variable [itcl::scope _settings(-ygrid)] \ 1908 1906 -command [itcl::code $this AdjustSetting -ygrid] \ 1909 1907 -font "Arial 9" 1910 1908 checkbutton $inner.zgrid \ 1911 1909 -text "Z" \ 1912 -variable [itcl::scope _settings(-zgrid visible)] \1910 -variable [itcl::scope _settings(-zgrid)] \ 1913 1911 -command [itcl::code $this AdjustSetting -zgrid] \ 1912 -font "Arial 9" 1913 checkbutton $inner.minorticks \ 1914 -text "Minor Ticks" \ 1915 -variable [itcl::scope _settings(-axisminorticks)] \ 1916 -command [itcl::code $this AdjustSetting -axisminorticks] \ 1914 1917 -font "Arial 9" 1915 1918 … … 1942 1945 blt::table configure $inner r3 -height 0.125i 1943 1946 } 1944 1945 1947 1946 1948 itcl::body Rappture::VtkVolumeViewer::BuildCameraTab {} { … … 2471 2473 } 2472 2474 2473 2474 2475 # ---------------------------------------------------------------------- 2475 2476 # USAGE: Slice move x|y|z <newval> … … 2501 2502 } 2502 2503 } 2503 2504 2504 2505 2505 # ---------------------------------------------------------------------- … … 2883 2883 } 2884 2884 2885 2886 2885 # 2887 2886 # GetDatasetsWithComponents --
Note: See TracChangeset
for help on using the changeset viewer.