Changeset 3534

Timestamp:

Mar 19, 2013, 1:00:50 AM (12 years ago)

Author:

ldelgass

Message:

Reset zoom/pan when clicking canonical view buttons in streamlines and vtk
drawing viewers. Isosurfaces and heightmaps will get the same behavior pending
some other fixes.

Location:

trunk/gui/scripts

Files:

• vtkstreamlinesviewer.tcl (modified) (2 diffs)
• vtkviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/vtkstreamlinesviewer.tcl

@@ -1879 +1879 @@
 
     blt::table $inner \
-            0,0 $inner.view_l -anchor e -pady 2 \
-            0,1 $inner.view -anchor w -pady 2
+        0,0 $inner.view_l -anchor e -pady 2 \
+        0,1 $inner.view -anchor w -pady 2
 
     set labels { qx qy qz qw xpan ypan zoom }
@@ -2477 +2477 @@
     $_arcball quaternion $q
     SendCmd "camera orient $q" 
-}
-
+    SendCmd "camera reset"
+    set _view(xpan) 0
+    set _view(ypan) 0
+    set _view(zoom) 1.0
+}
+

trunk/gui/scripts/vtkviewer.tcl

@@ -1820 +1820 @@
 
     blt::table $inner \
-            0,0 $inner.view_l -anchor e -pady 2 \
-            0,1 $inner.view -anchor w -pady 2
+        0,0 $inner.view_l -anchor e -pady 2 \
+        0,1 $inner.view -anchor w -pady 2
 
     set labels { qx qy qz qw xpan ypan zoom }
@@ -2500 +2500 @@
     set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
     $_arcball quaternion $q
-    SendCmd "camera orient $q" 
-}
-
+    SendCmd "camera orient $q"
+    SendCmd "camera reset"
+    set _view(xpan) 0
+    set _view(ypan) 0
+    set _view(zoom) 1.0
+}
+