- Timestamp:
- Sep 8, 2011, 10:19:09 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkviewer.tcl
r2497 r2501 407 407 } 408 408 409 #SendCmd " ppmflush"409 #SendCmd "imgflush" 410 410 411 411 # Must reset camera to have object scaling to take effect. … … 890 890 volume-wireframe 891 891 892 #SendCmd " ppmflush"892 #SendCmd "imgflush" 893 893 894 894 set _limits(zmin) "" … … 1842 1842 array set settings $style 1843 1843 SendCmd "glyphs add sphere $tag" 1844 SendCmd "glyphs shape sphere $tag"1845 1844 SendCmd "glyphs gscale $settings(-gscale) $tag" 1846 1845 SendCmd "glyphs wireframe $settings(-wireframe) $tag" … … 1999 1998 # Make a swatch of the selected color 2000 1999 if { [catch { $_image(legend) get 10 $imgY } pixel] != 0 } { 2000 #puts stderr "out of range: $imgY" 2001 2001 return 2002 2002 } … … 2011 2011 # Compute the value of the point 2012 2012 set t [expr 1.0 - (double($imgY) / double($imgHeight-1))] 2013 #puts stderr "t=$t x=$x y=$y "2013 #puts stderr "t=$t x=$x y=$y imgY=$imgY" 2014 2014 set value [expr $t * ($_limits(vmax) - $_limits(vmin)) + $_limits(vmin)] 2015 2015 set tipx [expr $x + 15]
Note: See TracChangeset
for help on using the changeset viewer.