Changeset 2403 for trunk/gui

Timestamp:

Aug 22, 2011 9:03:55 AM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/vtkviewer.tcl (modified) (5 diffs)

trunk/gui/scripts/vtkviewer.tcl

@@ -140 +140 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::VtkViewer::constructor {hostlist args} {
-    if {[catch {info level -1} caller]} {
-        puts stderr "Enter constructor"
-    } else {
-        puts stderr "Enter constructor: $caller"
-    }
-
     # Rebuild event
     $_dispatcher register !rebuild
@@ -359 +353 @@
         set _height 500
     }
-    #puts stderr "screen size $_width $_height"
+    #puts stderr "DoResize screen size $_width $_height"
     set _start [clock clicks -milliseconds]
     SendCmd "screen size $_width $_height"
+
+    # Must reset camera to have object scaling to take effect.
+    SendCmd "camera reset all"
+    set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
+    $_arcball quaternion $q
+    SendCmd "camera orient $q" 
+    SendCmd "camera zoom $_view(zoom)"
     set _resizePending 0
 }
@@ -371 +372 @@
     $_arcball resize $w $h
     if { !$_resizePending } {
-        $_dispatcher event -after 400 !resize
         set _resizePending 1
+        $_dispatcher event -after 100 !resize
     }
 }
@@ -726 +727 @@
         if { $_start > 0 } {
             set finish [clock clicks -milliseconds]
-            puts stderr "round trip time [expr $finish -$_start] milliseconds"
+            #puts stderr "round trip time [expr $finish -$_start] milliseconds"
             set _start 0
         }
@@ -1325 +1326 @@
         3,0 $inner.lighting  -columnspan 4 -anchor w \
         4,0 $inner.edges -columnspan 4 -anchor w -pady 2 \
-        5,0 $inner.clear -anchor e -pady 2 \
+        6,0 $inner.clear -anchor e -pady 2 \
         6,1 $inner.opacity -columnspan 2 -pady 2 -fill x\
         6,3 $inner.opaque -anchor w -pady 2