Changeset 736
- Timestamp:
- May 14, 2007, 11:44:47 PM (17 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/curve.tcl
r413 r736 193 193 color about.color 194 194 style about.style 195 type about.type 195 196 xlabel xaxis.label 196 197 xdesc xaxis.description -
trunk/gui/scripts/resultviewer.tcl
r468 r736 168 168 eval lappend settings $style 169 169 } 170 if {[catch {$dobj hints type} type] == 0} { 171 if {"" != $type} { 172 eval lappend settings "-type $type" 173 } 174 } 170 175 # add override settings passed in here 171 176 eval lappend settings $opts -
trunk/gui/scripts/xyresult.tcl
r676 r736 217 217 -brightness 0 218 218 -width 1 219 -type "line" 219 220 -raise 0 220 221 -linestyle solid … … 226 227 } 227 228 set params($opt) $val 229 } 230 231 # if type is set to "scatter", then override the width 232 if {"scatter" == $params(-type)} { 233 set params(-width) 0 228 234 } 229 235 … … 631 637 } 632 638 633 if { [$xv length] <= 1} {639 if {([$xv length] <= 1) || ($lwidth == 0)} { 634 640 set sym square 641 set pixels 2 635 642 } else { 636 643 set sym "" 644 set pixels 6 637 645 } 638 646 … … 641 649 642 650 $g element create $elem -x $xv -y $yv \ 643 -symbol $sym -pixels 6-linewidth $lwidth -label $label \651 -symbol $sym -pixels $pixels -linewidth $lwidth -label $label \ 644 652 -color $color -dashes $dashes \ 645 653 -mapx $mapx -mapy $mapy … … 750 758 if {$state == "at"} { 751 759 if {[$g element closest $x $y info -interpolate yes]} { 760 # for dealing with xy line plots 752 761 set elem $info(name) 753 762 foreach {mapx mapy} [_getAxes $_elem2curve($elem)] break … … 757 766 if {[$g element closest $x $y info -interpolate no] 758 767 && $info(name) == $elem} { 768 set x [$g axis transform $mapx $info(x)] 769 set y [$g axis transform $mapy $info(y)] 770 771 if {[info exists _elem2curve($elem)]} { 772 set curve $_elem2curve($elem) 773 set tip [$curve hints tooltip] 774 if {[info exists info(y)]} { 775 set val [_axis format y dummy $info(y)] 776 set units [$curve hints yunits] 777 append tip "\n$val$units" 778 779 if {[info exists info(x)]} { 780 set val [_axis format x dummy $info(x)] 781 set units [$curve hints xunits] 782 append tip " @ $val$units" 783 } 784 } 785 set tip [string trim $tip] 786 } 787 } 788 set state 1 789 } elseif {[$g element closest $x $y info -interpolate no]} { 790 # for dealing with xy scatter plot 791 set elem $info(name) 792 foreach {mapx mapy} [_getAxes $_elem2curve($elem)] break 793 794 # search again for an exact point -- this time don't interpolate 795 set tip "" 796 if {$info(name) == $elem} { 759 797 set x [$g axis transform $mapx $info(x)] 760 798 set y [$g axis transform $mapy $info(y)]
Note: See TracChangeset
for help on using the changeset viewer.