diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-23 20:37:47 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-23 20:37:47 (GMT) |
commit | cdb0395c318af057350a1f9999c2d74d309d26bf (patch) | |
tree | 726d18b26d8f9964a279a49d3bdb908e01f6ded0 /ds9/library/plot.tcl | |
parent | 7e3396be82595cd498b60f7b2e8c46387ad5df4c (diff) | |
download | blt-cdb0395c318af057350a1f9999c2d74d309d26bf.zip blt-cdb0395c318af057350a1f9999c2d74d309d26bf.tar.gz blt-cdb0395c318af057350a1f9999c2d74d309d26bf.tar.bz2 |
add strip plot support
Diffstat (limited to 'ds9/library/plot.tcl')
-rw-r--r-- | ds9/library/plot.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index ae5cab5..6e5a875 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -94,13 +94,13 @@ proc PlotAddGraph {varname} { set cc $var(graph,current) - set var(graph,$cc,data,total) 0 - set var(graph,$cc,data,current) 0 + set var(graph$cc,data,total) 0 + set var(graph$cc,data,current) 0 - set var(data,total) $var(graph,$cc,data,total) - set var(data,current) $var(graph,$cc,data,current) + set var(data,total) $var(graph$cc,data,total) + set var(data,current) $var(graph$cc,data,current) - $var(proc,addplot) $varname + $var(proc,addgraph) $varname } proc PlotAxisFormat {varname axis w nn} { @@ -128,7 +128,7 @@ proc PlotChangeMode {varname} { } } -proc PlotClearData {varname} { +proc PlotDeleteData {varname} { upvar #0 $varname var global $varname |