Changeset 4770 for branches/1.3/gui/scripts/vtkheightmapviewer.tcl
- Timestamp:
- Nov 23, 2014 4:24:53 AM (9 years ago)
- Location:
- branches/1.3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3
-
branches/1.3/gui/scripts/vtkheightmapviewer.tcl
r4768 r4770 218 218 219 219 array set _settings { 220 -axisflymode 220 -axisflymode "static" 221 221 -axislabels 1 222 -axisminorticks 223 -axisvisible 222 -axisminorticks 1 223 -axisvisible 1 224 224 -colormap BCGYR 225 225 -colormapdiscrete 0 226 226 -colormapvisible 1 227 -edges 228 -field 229 -heightmapscale 230 -isheightmap 227 -edges 0 228 -field "Default" 229 -heightmapscale 50 230 -isheightmap 0 231 231 -isolinecolor black 232 232 -isolinesvisible 1 233 233 -legendvisible 1 234 -lighting 235 -numisolines 234 -lighting 1 235 -numisolines 10 236 236 -opacity 100 237 -outline 238 -savelighting 239 -saveopacity 240 -saveoutline 241 -stretchtofit 242 -wireframe 243 -xgrid 244 -ygrid 245 -zgrid 237 -outline 0 238 -savelighting 1 239 -saveopacity 100 240 -saveoutline 0 241 -stretchtofit 0 242 -wireframe 0 243 -xgrid 0 244 -ygrid 0 245 -zgrid 0 246 246 } 247 247 array set _changed { … … 1380 1380 SendCmd "axis visible all $bool" 1381 1381 } 1382 "-xgrid" - "-ygrid" - "-zgrid" {1383 set axis [string tolower [string range $what 1 1]]1384 set bool $_settings($what)1385 SendCmd "axis grid $axis $bool"1386 }1387 1382 "-background" { 1388 1383 set bg [$itk_component(background) value] … … 1668 1663 SendCmd "heightmap wireframe $bool" 1669 1664 } 1665 "-xgrid" - "-ygrid" - "-zgrid" { 1666 set axis [string tolower [string range $what 1 1]] 1667 set bool $_settings($what) 1668 SendCmd "axis grid $axis $bool" 1669 } 1670 1670 default { 1671 1671 error "don't know how to fix $what" … … 1779 1779 SendCmd "heightmap colormap $_currentColormap" 1780 1780 } 1781 1782 1781 1783 1782 # … … 2093 2092 } 2094 2093 2095 2096 2094 itcl::body Rappture::VtkHeightmapViewer::BuildCameraTab {} { 2097 2095 set inner [$itk_component(main) insert end \ … … 2112 2110 0,0 $inner.view_l -anchor e -pady 2 \ 2113 2111 0,1 $inner.view -anchor w -pady 2 2112 blt::table configure $inner r0 -resize none 2114 2113 2115 2114 set labels { qx qy qz qw xpan ypan zoom } … … 2139 2138 incr row 2140 2139 2141 blt::table configure $inner c* r*-resize none2140 blt::table configure $inner c* -resize none 2142 2141 blt::table configure $inner c2 -resize expand 2143 2142 blt::table configure $inner r$row -resize expand
Note: See TracChangeset
for help on using the changeset viewer.