- Timestamp:
- Nov 10, 2014, 2:58:03 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtksurfaceviewer.tcl
r4669 r4682 202 202 203 203 array set _settings { 204 -axesvisible 1 205 -axislabelsvisible 1 206 -background black 207 -colormap BCGYR 208 -colormapvisible 1 209 -field "Default" 210 -isolinecolor white 211 -isolinesvisible 0 212 -legendvisible 1 213 -numcontours 10 214 -surfaceedges 0 215 -surfacelighting 1 216 -surfaceopacity 100 217 -outline 0 218 -surfacevisible 1 219 -surfacewireframe 0 220 -xaxisgrid 0 221 -yaxisgrid 0 222 -zaxisgrid 0 204 -axesvisible 1 205 -axislabels 1 206 -axisminorticks 1 207 -background black 208 -colormap BCGYR 209 -colormapvisible 1 210 -field "Default" 211 -isolinecolor white 212 -isolinesvisible 0 213 -legendvisible 1 214 -numcontours 10 215 -surfaceedges 0 216 -surfacelighting 1 217 -surfaceopacity 100 218 -outline 0 219 -surfacevisible 1 220 -surfacewireframe 0 221 -xgrid 0 222 -ygrid 0 223 -zgrid 0 223 224 } 224 225 array set _changed { … … 909 910 set _first "" 910 911 InitSettings -xaxisgrid -yaxisgrid -zaxisgrid -axismode \ 911 -axesvisible -axislabelsvisible 912 foreach axis { x y z } { 913 SendCmd "axis lformat $axis %g" 914 } 912 -axesvisible -axislabels -axisminorticks 913 #SendCmd "axis lformat all %g" 915 914 StopBufferingCommands 916 915 SendCmd "imgflush" … … 1269 1268 } 1270 1269 "-axesvisible" { 1271 set bool $_settings( -axesvisible)1270 set bool $_settings($what) 1272 1271 SendCmd "axis visible all $bool" 1273 1272 } 1274 "-axislabels visible" {1275 set bool $_settings( -axislabelsvisible)1273 "-axislabels" { 1274 set bool $_settings($what) 1276 1275 SendCmd "axis labels all $bool" 1276 } 1277 "-axisminorticks" { 1278 set bool $_settings($what) 1279 SendCmd "axis minticks all $bool" 1277 1280 } 1278 1281 "-xaxisgrid" - "-yaxisgrid" - "-zaxisgrid" { … … 1671 1674 1672 1675 checkbutton $inner.visible \ 1673 -text " ShowAxes" \1676 -text "Axes" \ 1674 1677 -variable [itcl::scope _settings(-axesvisible)] \ 1675 1678 -command [itcl::code $this AdjustSetting -axesvisible] \ … … 1677 1680 1678 1681 checkbutton $inner.labels \ 1679 -text " ShowAxis Labels" \1680 -variable [itcl::scope _settings(-axislabels visible)] \1681 -command [itcl::code $this AdjustSetting -axislabels visible] \1682 -text "Axis Labels" \ 1683 -variable [itcl::scope _settings(-axislabels)] \ 1684 -command [itcl::code $this AdjustSetting -axislabels] \ 1682 1685 -font "Arial 9" 1683 1684 checkbutton $inner. gridx\1685 -text " Show X Grid" \1686 label $inner.grid_l -text "Grid" -font "Arial 9" 1687 checkbutton $inner.xgrid \ 1688 -text "X" \ 1686 1689 -variable [itcl::scope _settings(-xaxisgrid)] \ 1687 1690 -command [itcl::code $this AdjustSetting -xaxisgrid] \ 1688 1691 -font "Arial 9" 1689 checkbutton $inner. gridy\1690 -text " Show Y Grid" \1692 checkbutton $inner.ygrid \ 1693 -text "Y" \ 1691 1694 -variable [itcl::scope _settings(-yaxisgrid)] \ 1692 1695 -command [itcl::code $this AdjustSetting -yaxisgrid] \ 1693 1696 -font "Arial 9" 1694 checkbutton $inner. gridz\1695 -text " Show Z Grid" \1697 checkbutton $inner.zgrid \ 1698 -text "Z" \ 1696 1699 -variable [itcl::scope _settings(-zaxisgrid)] \ 1697 1700 -command [itcl::code $this AdjustSetting -zaxisgrid] \ 1701 -font "Arial 9" 1702 checkbutton $inner.minorticks \ 1703 -text "Minor Ticks" \ 1704 -variable [itcl::scope _settings(-axisminorticks)] \ 1705 -command [itcl::code $this AdjustSetting -axisminorticks] \ 1698 1706 -font "Arial 9" 1699 1707 … … 1712 1720 1713 1721 blt::table $inner \ 1714 0,0 $inner.visible -anchor w -cspan 2 \ 1715 1,0 $inner.labels -anchor w -cspan 2 \ 1716 2,0 $inner.gridx -anchor w -cspan 2 \ 1717 3,0 $inner.gridy -anchor w -cspan 2 \ 1718 4,0 $inner.gridz -anchor w -cspan 2 \ 1719 5,0 $inner.mode_l -anchor w -cspan 2 -padx { 2 0 } \ 1720 6,0 $inner.mode -fill x -cspan 2 1722 0,0 $inner.visible -anchor w -cspan 4 \ 1723 1,0 $inner.labels -anchor w -cspan 4 \ 1724 2,0 $inner.minorticks -anchor w -cspan 4 \ 1725 4,0 $inner.grid_l -anchor w \ 1726 4,1 $inner.xgrid -anchor w \ 1727 4,2 $inner.ygrid -anchor w \ 1728 4,3 $inner.zgrid -anchor w \ 1729 5,0 $inner.mode_l -anchor w -padx { 2 0 } \ 1730 5,1 $inner.mode -fill x -cspan 3 1721 1731 1722 1732 blt::table configure $inner r* c* -resize none 1723 blt::table configure $inner r7 c 1-resize expand1724 } 1725 1733 blt::table configure $inner r7 c6 -resize expand 1734 blt::table configure $inner r3 -height 0.125i 1735 } 1726 1736 1727 1737 itcl::body Rappture::VtkSurfaceViewer::BuildCameraTab {} {
Note: See TracChangeset
for help on using the changeset viewer.