diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-03-21 17:32:43 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-03-21 17:32:43 (GMT) |
| commit | d43955e29d7e3c2d7218e18db7e1a9ec6d290deb (patch) | |
| tree | 9010ce9eaa3fe8f3afcde17a285efde78ea140c2 /ds9/library/plot.tcl | |
| parent | 798dc7e402ede2b7ce4ec2cfab3f230e54c564c7 (diff) | |
| download | blt-d43955e29d7e3c2d7218e18db7e1a9ec6d290deb.zip blt-d43955e29d7e3c2d7218e18db7e1a9ec6d290deb.tar.gz blt-d43955e29d7e3c2d7218e18db7e1a9ec6d290deb.tar.bz2 | |
restore plot seq flag, set only for bar
Diffstat (limited to 'ds9/library/plot.tcl')
| -rw-r--r-- | ds9/library/plot.tcl | 141 |
1 files changed, 118 insertions, 23 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index 19cd77d..48b3417 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -270,8 +270,19 @@ proc PlotDataSetOne {varname dim data} { set var(yedata) {} for {set ii 0} {$ii<$ll} {incr ii 2} { - lappend x [lindex $data $ii] - lappend y [lindex $data [expr $ii+1]] + set tx [lindex $data $ii] + if {$var(seq)} { + if {$ox<=$tx} { + set ox $tx + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + } else { + break + } + } else { + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + } } $var(xdata) set $x $var(ydata) set $y @@ -286,9 +297,21 @@ proc PlotDataSetOne {varname dim data} { blt::vector create $var(xedata) for {set ii 0} {$ii<$ll} {incr ii 3} { - lappend x [lindex $data $ii] - lappend y [lindex $data [expr $ii+1]] - lappend xe [lindex $data [expr $ii+2]] + set tx [lindex $data $ii] + if {$var(seq)} { + if {$ox<=$tx} { + set ox $tx + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend xe [lindex $data [expr $ii+2]] + } else { + break + } + } else { + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend xe [lindex $data [expr $ii+2]] + } } $var(xdata) set $x $var(ydata) set $y @@ -305,9 +328,21 @@ proc PlotDataSetOne {varname dim data} { blt::vector create $var(yedata) for {set ii 0} {$ii<$ll} {incr ii 3} { - lappend x [lindex $data $ii] - lappend y [lindex $data [expr $ii+1]] - lappend ye [lindex $data [expr $ii+2]] + set tx [lindex $data $ii] + if {$var(seq)} { + if {$ox<=$tx} { + set ox $tx + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend ye [lindex $data [expr $ii+2]] + } else { + break + } + } else { + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend ye [lindex $data [expr $ii+2]] + } } $var(xdata) set $x $var(ydata) set $y @@ -323,10 +358,23 @@ proc PlotDataSetOne {varname dim data} { blt::vector create $var(xedata) $var(yedata) for {set ii 0} {$ii<$ll} {incr ii 4} { - lappend x [lindex $data $ii] - lappend y [lindex $data [expr $ii+1]] - lappend xe [lindex $data [expr $ii+2]] - lappend ye [lindex $data [expr $ii+3]] + set tx [lindex $data $ii] + if {$var(seq)} { + if {$ox<=$tx} { + set ox $tx + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend xe [lindex $data [expr $ii+2]] + lappend ye [lindex $data [expr $ii+3]] + } else { + break + } + } else { + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend xe [lindex $data [expr $ii+2]] + lappend ye [lindex $data [expr $ii+3]] + } } $var(xdata) set $x $var(ydata) set $y @@ -343,9 +391,21 @@ proc PlotDataSetOne {varname dim data} { blt::vector create $var(yedata) for {set ii 0} {$ii<$ll} {incr ii 4} { - lappend x [lindex $data $ii] - lappend y [lindex $data [expr $ii+1]] - lappend ye [lindex $data [expr $ii+2]] + set tx [lindex $data $ii] + if {$var(seq)} { + if {$ox<=$tx} { + set ox $tx + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend ye [lindex $data [expr $ii+2]] + } else { + break + } + } else { + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend ye [lindex $data [expr $ii+2]] + } } $var(xdata) set $x $var(ydata) set $y @@ -358,8 +418,19 @@ proc PlotDataSetOne {varname dim data} { set var(yedata) {} for {set ii 0} {$ii<$ll} {incr ii 4} { - lappend x [lindex $data $ii] - lappend y [lindex $data [expr $ii+3]] + set tx [lindex $data $ii] + if {$var(seq)} { + if {$ox<=$tx} { + set ox $tx + lappend x $tx + lappend y [lindex $data [expr $ii+3]] + } else { + break + } + } else { + lappend x $tx + lappend y [lindex $data [expr $ii+3]] + } } $var(xdata) set $x $var(ydata) set $y @@ -374,9 +445,21 @@ proc PlotDataSetOne {varname dim data} { blt::vector create $var(yedata) for {set ii 0} {$ii<$ll} {incr ii 5} { - lappend x [lindex $data $ii] - lappend y [lindex $data [expr $ii+1]] - lappend ye [lindex $data [expr $ii+2]] + set tx [lindex $data $ii] + if {$var(seq)} { + if {$ox<=$tx} { + set ox $tx + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend ye [lindex $data [expr $ii+2]] + } else { + break + } + } else { + lappend x $tx + lappend y [lindex $data [expr $ii+1]] + lappend ye [lindex $data [expr $ii+2]] + } } $var(xdata) set $x $var(ydata) set $y @@ -392,9 +475,21 @@ proc PlotDataSetOne {varname dim data} { blt::vector create $var(yedata) for {set ii 0} {$ii<$ll} {incr ii 5} { - lappend x [lindex $data $ii] - lappend y [lindex $data [expr $ii+3]] - lappend ye [lindex $data [expr $ii+4]] + set tx [lindex $data $ii] + if {$var(seq)} { + if {$ox<=$tx} { + set ox $tx + lappend x $tx + lappend y [lindex $data [expr $ii+3]] + lappend ye [lindex $data [expr $ii+4]] + } else { + break + } + } else { + lappend x $tx + lappend y [lindex $data [expr $ii+3]] + lappend ye [lindex $data [expr $ii+4]] + } } $var(xdata) set $x $var(ydata) set $y |