- Timestamp:
- Nov 10, 2014, 10:11:03 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkvolumeviewer.tcl
r4669 r4691 248 248 array set _settings { 249 249 -axesvisible 1 250 -axislabelsvisible 1 250 -axislabels 1 251 -axisminorticks 1 251 252 -background black 252 253 -cutplanelighting 1 … … 1019 1020 InitSettings -volumeoutline -background \ 1020 1021 -xgridvisible -ygridvisible -zgridvisible -axisflymode \ 1021 -axesvisible -axislabels visible1022 -axesvisible -axislabels -axisminorticks 1022 1023 PanCamera 1023 1024 } … … 1497 1498 SendCmd "axis visible all $bool" 1498 1499 } 1499 "-axislabels visible" {1500 "-axislabels" { 1500 1501 set bool $_settings($what) 1501 1502 SendCmd "axis labels all $bool" 1503 } 1504 "-axisminorticks" { 1505 set bool $_settings($what) 1506 SendCmd "axis minticks all $bool" 1502 1507 } 1503 1508 "-xgridvisible" - "-ygridvisible" - "-zgridvisible" { … … 1650 1655 SendCmd "axis color all $rgb" 1651 1656 SendCmd "outline color $rgb" 1652 SendCmd " cutplanecolor $rgb"1657 SendCmd "$_cutplaneCmd color $rgb" 1653 1658 $itk_component(legend) itemconfigure labels -fill $color 1654 1659 $itk_component(legend) itemconfigure limits -fill $color … … 1878 1883 set inner [$itk_component(main) insert end \ 1879 1884 -title "Axis Settings" \ 1880 -icon [Rappture::icon axis 1]]1885 -icon [Rappture::icon axis2]] 1881 1886 $inner configure -borderwidth 4 1882 1887 1883 1888 checkbutton $inner.visible \ 1884 -text " ShowAxes" \1889 -text "Axes" \ 1885 1890 -variable [itcl::scope _settings(-axesvisible)] \ 1886 1891 -command [itcl::code $this AdjustSetting -axesvisible] \ … … 1888 1893 1889 1894 checkbutton $inner.labels \ 1890 -text " ShowAxis Labels" \1891 -variable [itcl::scope _settings(-axislabels visible)] \1892 -command [itcl::code $this AdjustSetting -axislabels visible] \1895 -text "Axis Labels" \ 1896 -variable [itcl::scope _settings(-axislabels)] \ 1897 -command [itcl::code $this AdjustSetting -axislabels] \ 1893 1898 -font "Arial 9" 1894 1899 1895 checkbutton $inner. gridx\1896 -text " Show X Grid" \1900 checkbutton $inner.xgrid \ 1901 -text "X" \ 1897 1902 -variable [itcl::scope _settings(-xgridvisible)] \ 1898 -command [itcl::code $this AdjustSetting -xgrid visible] \1903 -command [itcl::code $this AdjustSetting -xgrid] \ 1899 1904 -font "Arial 9" 1900 checkbutton $inner. gridy\1901 -text " Show Y Grid" \1905 checkbutton $inner.ygrid \ 1906 -text "Y" \ 1902 1907 -variable [itcl::scope _settings(-ygridvisible)] \ 1903 -command [itcl::code $this AdjustSetting -ygrid visible] \1908 -command [itcl::code $this AdjustSetting -ygrid] \ 1904 1909 -font "Arial 9" 1905 checkbutton $inner. gridz\1906 -text " Show Z Grid" \1910 checkbutton $inner.zgrid \ 1911 -text "Z" \ 1907 1912 -variable [itcl::scope _settings(-zgridvisible)] \ 1908 -command [itcl::code $this AdjustSetting -zgrid visible] \1913 -command [itcl::code $this AdjustSetting -zgrid] \ 1909 1914 -font "Arial 9" 1910 1915 … … 1923 1928 1924 1929 blt::table $inner \ 1925 0,0 $inner.visible -anchor w -cspan 2 \ 1926 1,0 $inner.labels -anchor w -cspan 2 \ 1927 2,0 $inner.gridx -anchor w -cspan 2 \ 1928 3,0 $inner.gridy -anchor w -cspan 2 \ 1929 4,0 $inner.gridz -anchor w -cspan 2 \ 1930 5,0 $inner.mode_l -anchor w -cspan 2 -padx { 2 0 } \ 1931 6,0 $inner.mode -fill x -cspan 2 1930 0,0 $inner.visible -anchor w -cspan 4 \ 1931 1,0 $inner.labels -anchor w -cspan 4 \ 1932 2,0 $inner.minorticks -anchor w -cspan 4 \ 1933 4,0 $inner.grid_l -anchor w \ 1934 4,1 $inner.xgrid -anchor w \ 1935 4,2 $inner.ygrid -anchor w \ 1936 4,3 $inner.zgrid -anchor w \ 1937 5,0 $inner.mode_l -anchor w -padx { 2 0 } \ 1938 5,1 $inner.mode -fill x -cspan 3 1932 1939 1933 1940 blt::table configure $inner r* c* -resize none 1934 blt::table configure $inner r7 c1 -resize expand 1941 blt::table configure $inner r7 c6 -resize expand 1942 blt::table configure $inner r3 -height 0.125i 1935 1943 } 1936 1944 … … 2481 2489 } 2482 2490 set newpos [expr {0.01*$newval}] 2483 SendCmd " cutplaneslice $axis $newpos"2491 SendCmd "$_cutplaneCmd slice $axis $newpos" 2484 2492 } 2485 2493 "tooltip" {
Note: See TracChangeset
for help on using the changeset viewer.