Changeset 2232 for trunk/gui/scripts
- Timestamp:
- Apr 27, 2011, 9:57:22 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkviewer2.tcl
r2223 r2232 162 162 set _arcball [blt::arcball create 100 100] 163 163 $_arcball matrix { 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 } 164 puts stderr start=[$_arcball quaternion]165 164 166 165 # Initialize the view to some default parameters. … … 331 330 332 331 Connect 333 puts stderr waiting334 #after 30000335 puts stderr continuing336 332 } 337 333 … … 390 386 set params(-description) "" 391 387 set params(-param) "" 392 puts stderr "vtkviewer2 add dataobj=$dataobj settings=[array get params]"393 388 foreach {opt val} $settings { 394 389 if {![info exists params($opt)]} { … … 422 417 # ---------------------------------------------------------------------- 423 418 itcl::body Rappture::VtkViewer2::delete {args} { 424 puts stderr "vtkviewer2 delete args=$args"425 419 if { [llength $args] == 0} { 426 420 set args $_dlist … … 434 428 } 435 429 # Remove it from the dataobj list. 436 puts stderr "remove dataobj=$dataobj from dlist=$_dlist"437 puts stderr "components dataobj=$dataobj component=[$dataobj components]"438 430 set _dlist [lreplace $_dlist $pos $pos] 439 431 foreach comp [$dataobj components] { … … 734 726 "world" { 735 727 foreach { x y z value } [lrange $args 2 end] break 736 puts stderr "world x=$x y=$y z=$z value=$value"737 728 } 738 729 "pixel" { 739 730 foreach { x y value } [lrange $args 2 end] break 740 puts stderr "pixel x=$x y=$y value=$value"741 731 } 742 732 } … … 770 760 set _first "" 771 761 foreach dataobj [get -objects] { 772 puts stderr "dataobj=$dataobj"773 762 if { [info exists _obj2ovride($dataobj-raise)] && $_first == "" } { 774 763 set _first $dataobj … … 956 945 # ---------------------------------------------------------------------- 957 946 itcl::body Rappture::VtkViewer2::Rotate {option x y} { 958 puts stderr "Rotate option=$option x=$x y=$y"959 947 switch -- $option { 960 948 "click" { … … 987 975 set q [$_arcball rotate $x $y $_click(x) $_click(y)] 988 976 SendCmd "camera orient $q" 989 puts stderr "rotate q=$q"990 puts stderr "arcball matrix=[$_arcball matrix]"991 puts stderr "arcball quaternion=[$_arcball quaternion]"992 977 set _click(x) $x 993 978 set _click(y) $y … … 997 982 Rotate drag $x $y 998 983 $itk_component(view) configure -cursor "" 999 puts stderr "unsetting _click"1000 984 catch {unset _click} 1001 985 } … … 1015 999 # ---------------------------------------------------------------------- 1016 1000 itcl::body Rappture::VtkViewer2::Pan {option x y} { 1017 puts stderr "Pan option=$option x=$x y=$y"1018 1001 switch -- $option { 1019 1002 "set" { … … 1171 1154 # 1172 1155 itcl::body Rappture::VtkViewer2::BuildColormap { colormap dataobj comp } { 1173 puts stderr "BuildColormap $colormap"1174 1156 array set style { 1175 1157 -color rainbow … … 1495 1477 1496 1478 itcl::body Rappture::VtkViewer2::SetObjectStyle { dataobj comp } { 1497 puts stderr "Entering SetObjectStyle: dataobj=$dataobj"1498 1479 array set props { 1499 1480 -color \#6666FF … … 1515 1496 SendCmd "polydata linewidth $props(-linewidth) $tag" 1516 1497 SendCmd "polydata opacity $props(-opacity) $tag" 1517 puts stderr "SetObjectStyle: dataobj=$dataobj _first=$_first"1518 1498 if { $dataobj != $_first } { 1519 1499 set props(-wireframe) 1
Note: See TracChangeset
for help on using the changeset viewer.