Changeset 2403 for trunk/gui/scripts
- Timestamp:
- Aug 22, 2011, 9:03:55 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkviewer.tcl
r2397 r2403 140 140 # ---------------------------------------------------------------------- 141 141 itcl::body Rappture::VtkViewer::constructor {hostlist args} { 142 if {[catch {info level -1} caller]} {143 puts stderr "Enter constructor"144 } else {145 puts stderr "Enter constructor: $caller"146 }147 148 142 # Rebuild event 149 143 $_dispatcher register !rebuild … … 359 353 set _height 500 360 354 } 361 #puts stderr " screen size $_width $_height"355 #puts stderr "DoResize screen size $_width $_height" 362 356 set _start [clock clicks -milliseconds] 363 357 SendCmd "screen size $_width $_height" 358 359 # Must reset camera to have object scaling to take effect. 360 SendCmd "camera reset all" 361 set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)] 362 $_arcball quaternion $q 363 SendCmd "camera orient $q" 364 SendCmd "camera zoom $_view(zoom)" 364 365 set _resizePending 0 365 366 } … … 371 372 $_arcball resize $w $h 372 373 if { !$_resizePending } { 373 $_dispatcher event -after 400 !resize374 374 set _resizePending 1 375 $_dispatcher event -after 100 !resize 375 376 } 376 377 } … … 726 727 if { $_start > 0 } { 727 728 set finish [clock clicks -milliseconds] 728 puts stderr "round trip time [expr $finish -$_start] milliseconds"729 #puts stderr "round trip time [expr $finish -$_start] milliseconds" 729 730 set _start 0 730 731 } … … 1325 1326 3,0 $inner.lighting -columnspan 4 -anchor w \ 1326 1327 4,0 $inner.edges -columnspan 4 -anchor w -pady 2 \ 1327 5,0 $inner.clear -anchor e -pady 2 \1328 6,0 $inner.clear -anchor e -pady 2 \ 1328 1329 6,1 $inner.opacity -columnspan 2 -pady 2 -fill x\ 1329 1330 6,3 $inner.opaque -anchor w -pady 2
Note: See TracChangeset
for help on using the changeset viewer.