Changeset 2501 for trunk/gui

Timestamp:

Sep 8, 2011 10:19:09 PM (13 years ago)

Author:

ldelgass

Message:

ppmflush -> imgflush, re-remove redundant 'glyphs shape' command

File:

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

trunk/gui/scripts/vtkviewer.tcl

@@ -407 +407 @@
     }
 
-    #SendCmd "ppmflush"
+    #SendCmd "imgflush"
 
     # Must reset camera to have object scaling to take effect.
@@ -890 +890 @@
         volume-wireframe 
 
-    #SendCmd "ppmflush"
+    #SendCmd "imgflush"
 
     set _limits(zmin) ""
@@ -1842 +1842 @@
         array set settings $style
         SendCmd "glyphs add sphere $tag"
-        SendCmd "glyphs shape sphere $tag"
         SendCmd "glyphs gscale $settings(-gscale) $tag"
         SendCmd "glyphs wireframe $settings(-wireframe) $tag"
@@ -1999 +1998 @@
     # Make a swatch of the selected color
     if { [catch { $_image(legend) get 10 $imgY } pixel] != 0 } {
+        #puts stderr "out of range: $imgY"
         return
     }
@@ -2011 +2011 @@
     # Compute the value of the point
     set t [expr 1.0 - (double($imgY) / double($imgHeight-1))]
-    #puts stderr "t=$t x=$x y=$y"
+    #puts stderr "t=$t x=$x y=$y imgY=$imgY"
     set value [expr $t * ($_limits(vmax) - $_limits(vmin)) + $_limits(vmin)]
     set tipx [expr $x + 15]