Changeset 2223 for trunk/gui/scripts

Timestamp:

Apr 22, 2011, 6:07:58 PM (14 years ago)

Author:

ldelgass

Message:

Enable panning for testing

File:

• trunk/gui/scripts/vtkviewer2.tcl (modified) (3 diffs)

trunk/gui/scripts/vtkviewer2.tcl

@@ -935 +935 @@
 
 itcl::body Rappture::VtkViewer2::PanCamera {} {
-    set w [winfo width $itk_component(view)]
-    set h [winfo height $itk_component(view)]
-    set x [expr ($_view(pan-x)) / $w]
-    set y [expr ($_view(pan-y)) / $h]
-    set x [expr $x * $_limits(xmax) - $_limits(xmin)]
-    set y [expr $y * $_limits(ymax) - $_limits(ymin)]
-    #SendCmd "camera pan $x $y"
+#    set w [winfo width $itk_component(view)]
+#    set h [winfo height $itk_component(view)]
+#    set x [expr ($_view(pan-x)) / $w]
+#    set y [expr ($_view(pan-y)) / $h]
+#    set x [expr $x * $_limits(xmax) - $_limits(xmin)]
+#    set y [expr $y * $_limits(ymax) - $_limits(ymin)]
+    set x $_view(pan-x)
+    set y $_view(pan-y)
+    SendCmd "camera pan $x $y"
 }
 
@@ -985 +987 @@
                 set q [$_arcball rotate $x $y $_click(x) $_click(y)]
                 SendCmd "camera orient $q" 
-                #SendCmd "camera orient $q" 
                 puts stderr "rotate q=$q"
                 puts stderr "arcball matrix=[$_arcball matrix]"
@@ -1019 +1020 @@
             set w [winfo width $itk_component(view)]
             set h [winfo height $itk_component(view)]
-            set x [expr (($w - $x) / double($w))]
-            set y [expr (($h - $y) / double($h))]
+            set x [expr $x / double($w)]
+            set y [expr $y / double($h)]
             set _view(pan-x) [expr $_view(pan-x) + $x]
             set _view(pan-y) [expr $_view(pan-y) + $y]