Changeset 1229 for trunk/gui


Ignore:
Timestamp:
Nov 24, 2008 2:21:14 PM (15 years ago)
Author:
gah
Message:

adding panning to nanovisviewer

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/nanovisviewer.tcl

    r1228 r1229  
    12721272    # Experimental stuff
    12731273    if { $option == "set" } {
    1274         set dx $x
    1275         set dy $y
    1276         set view_(x) [expr $view_(x) + $dx]
    1277         set view_(y) [expr $view_(y) + $dy]
    1278         _send "pan $dx $dy"
     1274        set view_(x) $x
     1275        set view_(y) $y
     1276        _send "camera pan $view_(x) $view_(y)"
    12791277        return
    12801278    }
    … …  
    12851283        set view_(x) [expr $view_(x) + $x]
    12861284        set view_(y) [expr $view_(y) + $y]
    1287         _send "camera pan $view_(x) $view_(y) 0"
     1285        _send "camera pan $view_(x) $view_(y)"
    12881286    }
    12891287    if { $option == "release" } {
Note: See TracChangeset for help on using the changeset viewer.