Changeset 1242
- Timestamp:
- Nov 25, 2008, 11:33:06 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/nanovisviewer.tcl
r1238 r1242 1272 1272 itcl::body Rappture::NanovisViewer::_pan {option x y} { 1273 1273 # Experimental stuff 1274 set x [$x * 0.01]1275 set y [$y * 0.01]1274 set w [winfo width $itk_component(3dview)] 1275 set h [winfo height $itk_component(3dview)] 1276 1276 if { $option == "set" } { 1277 set view_(dx) $x 1278 set view_(dy) $y 1277 set x [expr $x / double($w)] 1278 set y [expr $y / double($h)] 1279 set view_(dx) [expr $view_(dx) + $x] 1280 set view_(dy) [expr $view_(dy) + $y] 1279 1281 _send "camera pan $view_(dx) $view_(dy)" 1280 1282 return 1281 1283 } 1282 1284 if { $option == "click" } { 1285 set click_(x) $x 1286 set click_(y) $y 1283 1287 $itk_component(3dview) configure -cursor hand1 1284 1288 } 1285 1289 if { $option == "drag" || $option == "release" } { 1286 set view_(dx) [expr $view_(dx) + $x] 1287 set view_(dy) [expr $view_(dy) + $y] 1290 set dx [expr ($click_(x) - $x)/double($w)] 1291 set dy [expr ($click_(y) - $y)/double($h)] 1292 set click_(x) $x 1293 set click_(y) $y 1294 set view_(dx) [expr $view_(dx) - $dx] 1295 set view_(dy) [expr $view_(dy) - $dy] 1288 1296 _send "camera pan $view_(dx) $view_(dy)" 1289 1297 }
Note: See TracChangeset
for help on using the changeset viewer.