Changeset 3517 for trunk/gui/scripts/vtkheightmapviewer.tcl

Timestamp:

Mar 17, 2013, 9:46:35 AM (12 years ago)

Author:

gah

Message:

add controls for orthogonal viewpoints

File:

• trunk/gui/scripts/vtkheightmapviewer.tcl (modified) (6 diffs)

trunk/gui/scripts/vtkheightmapviewer.tcl

@@ -106 +106 @@
     private method GetHeightmapScale {} 
     private method ResetAxes {}
+    private method SetOrientation { side }
 
     private variable _arcball ""
@@ -1766 +1767 @@
     set inner [$itk_component(main) insert end \
         -title "Contour/Surface Settings" \
-        -icon [Rappture::icon contour]]
+        -icon [Rappture::icon contour2]]
     $inner configure -borderwidth 4
 
@@ -1958 +1959 @@
     set inner [$itk_component(main) insert end \
         -title "Axis Settings" \
-        -icon [Rappture::icon axis1]]
+        -icon [Rappture::icon axis2]]
     $inner configure -borderwidth 4
 
@@ -2030 +2031 @@
     $inner configure -borderwidth 4
 
+    label $inner.view_l -text "view" -font "Arial 9"
+    set f [frame $inner.view]
+    foreach side { front back left right top bottom } {
+        button $f.$side  -image [Rappture::icon view$side] \
+            -command [itcl::code $this SetOrientation $side]
+        Rappture::Tooltip::for $f.$side "Change the view to $side"
+        pack $f.$side -side left
+    }
+
+    blt::table $inner \
+            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 }
-    set row 0
+    set row 1
     foreach tag $labels {
         label $inner.${tag}label -text $tag -font "Arial 9"
@@ -2056 +2070 @@
     incr row
 
-    blt::table configure $inner c0 c1 -resize none
+    blt::table configure $inner c* r* -resize none
     blt::table configure $inner c2 -resize expand
     blt::table configure $inner r$row -resize expand
@@ -2513 +2527 @@
 }
 
-
-
-
+itcl::body Rappture::VtkHeightmapViewer::SetOrientation { side } { 
+    array set positions {
+        front "1 0 0 0"
+        back  "0 0 1 0"
+        left  "0.707107 0 -0.707107 0"
+        right "0.707107 0 0.707107 0"
+        top   "0.707107 -0.707107 0 0"
+        bottom "0.707107 0.707107 0 0"
+    }
+    foreach name { qw qx qy qz } value $positions($side) {
+        set _view($name) $value
+    } 
+    set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
+    $_arcball quaternion $q
+    SendCmd "camera orient $q" 
+}
+
+
+
+