diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-22 21:07:19 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-22 21:07:19 (GMT) |
commit | 50067b407fd226adcd49cd7fb4844d7c19c42260 (patch) | |
tree | cd1ce8eb55b937dd32fec73b65900c92fdc00bc0 /ds9/library/plot.tcl | |
parent | 99a1bed89f3c48f6ad1bd7b3a89d82a7bf530bf6 (diff) | |
download | blt-50067b407fd226adcd49cd7fb4844d7c19c42260.zip blt-50067b407fd226adcd49cd7fb4844d7c19c42260.tar.gz blt-50067b407fd226adcd49cd7fb4844d7c19c42260.tar.bz2 |
add strip plot support
Diffstat (limited to 'ds9/library/plot.tcl')
-rw-r--r-- | ds9/library/plot.tcl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index 0cc8194..7c6e8b5 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -88,6 +88,19 @@ proc PlotAddPlot {varname} { global $varname global ds9 + + incr ${varname}(plot,total) + incr ${varname}(plot,current) 0 + + set cc $var(plot,current) + + set var(plot,$cc,data,total) 0 + set var(plot,$cc,data,current) 0 + + set var(data,total) $var(plot,$cc,data,total) + set var(data,current) $var(plot,$cc,data,current) + + $var(proc,addplot) $varname } proc PlotAxisFormat {varname axis w nn} { |