Changeset 2232 for trunk/gui/scripts

Timestamp:

Apr 27, 2011, 9:57:22 AM (13 years ago)

Author:

gah

Message:

Remove debugging print statements

File:

• trunk/gui/scripts/vtkviewer2.tcl (modified) (14 diffs)

trunk/gui/scripts/vtkviewer2.tcl

@@ -162 +162 @@
     set _arcball [blt::arcball create 100 100]
     $_arcball matrix { 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 }
-    puts stderr start=[$_arcball quaternion]
 
     # Initialize the view to some default parameters.
@@ -331 +330 @@
 
     Connect
-    puts stderr waiting
-    #after 30000
-    puts stderr continuing
 }
 
@@ -390 +386 @@
     set params(-description) ""
     set params(-param) ""
-    puts stderr "vtkviewer2 add dataobj=$dataobj settings=[array get params]"
     foreach {opt val} $settings {
         if {![info exists params($opt)]} {
@@ -422 +417 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::VtkViewer2::delete {args} {
-    puts stderr "vtkviewer2 delete args=$args"
     if { [llength $args] == 0} {
         set args $_dlist
@@ -434 +428 @@
         }
         # Remove it from the dataobj list.
-        puts stderr "remove dataobj=$dataobj from dlist=$_dlist"
-        puts stderr "components dataobj=$dataobj component=[$dataobj components]"
         set _dlist [lreplace $_dlist $pos $pos]
         foreach comp [$dataobj components] {
@@ -734 +726 @@
                 "world" {
                     foreach { x y z value } [lrange $args 2 end] break
-                    puts stderr "world x=$x y=$y z=$z value=$value"
                 }
                 "pixel" {
                     foreach { x y value } [lrange $args 2 end] break
-                    puts stderr "pixel x=$x y=$y value=$value"
                 }
             }
@@ -770 +760 @@
     set _first ""
     foreach dataobj [get -objects] {
-        puts stderr "dataobj=$dataobj"
         if { [info exists _obj2ovride($dataobj-raise)] &&  $_first == "" } {
             set _first $dataobj
@@ -956 +945 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::VtkViewer2::Rotate {option x y} {
-    puts stderr "Rotate option=$option x=$x y=$y"
     switch -- $option {
         "click" {
@@ -987 +975 @@
                 set q [$_arcball rotate $x $y $_click(x) $_click(y)]
                 SendCmd "camera orient $q" 
-                puts stderr "rotate q=$q"
-                puts stderr "arcball matrix=[$_arcball matrix]"
-                puts stderr "arcball quaternion=[$_arcball quaternion]"
                 set _click(x) $x
                 set _click(y) $y
@@ -997 +982 @@
             Rotate drag $x $y
             $itk_component(view) configure -cursor ""
-            puts stderr "unsetting _click"
             catch {unset _click}
         }
@@ -1015 +999 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::VtkViewer2::Pan {option x y} {
-    puts stderr "Pan option=$option x=$x y=$y"
     switch -- $option {
         "set" {
@@ -1171 +1154 @@
 #
 itcl::body Rappture::VtkViewer2::BuildColormap { colormap dataobj comp } {
-    puts stderr "BuildColormap $colormap"
     array set style {
         -color rainbow
@@ -1495 +1477 @@
 
 itcl::body Rappture::VtkViewer2::SetObjectStyle { dataobj comp } {
-    puts stderr "Entering SetObjectStyle: dataobj=$dataobj"
     array set props {
         -color \#6666FF
@@ -1515 +1496 @@
     SendCmd "polydata linewidth $props(-linewidth) $tag"
     SendCmd "polydata opacity $props(-opacity) $tag"
-    puts stderr "SetObjectStyle: dataobj=$dataobj _first=$_first"
     if { $dataobj != $_first } {
         set props(-wireframe) 1