diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-06-05 19:35:38 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-06-05 19:35:38 (GMT) |
commit | feccecd90c7466d45d7dc6ea0f81fe8620397d4b (patch) | |
tree | f94e28075f86d8e4fed9438bec3f72540930f64d /ds9/library/plot.tcl | |
parent | b64f773cedb747da7632a956ec139362ceb6ea3e (diff) | |
download | blt-feccecd90c7466d45d7dc6ea0f81fe8620397d4b.zip blt-feccecd90c7466d45d7dc6ea0f81fe8620397d4b.tar.gz blt-feccecd90c7466d45d7dc6ea0f81fe8620397d4b.tar.bz2 |
add multiple plot support
Diffstat (limited to 'ds9/library/plot.tcl')
-rw-r--r-- | ds9/library/plot.tcl | 22 |
1 files changed, 5 insertions, 17 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index 771e1be..b51dc9f 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -277,25 +277,13 @@ proc PlotDestroy {varname} { } for {set nn 1} {$nn<=$var($cc,data,total)} {incr nn} { + blt::vector destroy $var($cc,$nn,xdata) $var($cc,$nn,ydata) switch $var($cc,$nn,dim) { - xy { - blt::vector destroy \ - $var($cc,$nn,xdata) $var($cc,$nn,ydata) - } - xyex { - blt::vector destroy \ - $var($cc,$nn,xdata) $var($cc,$nn,ydata) \ - $var($cc,$nn,xedata) - } - xyey { - blt::vector destroy \ - $var($cc,$nn,xdata) $var($cc,$nn,ydata) \ - $var($cc,$nn,yedata) - } + xy {} + xyex {blt::vector destroy $var($cc,$nn,xedata)} + xyey {blt::vector destroy $var($cc,$nn,yedata)} xyexey { - blt::vector destroy \ - $var($cc,$nn,xdata) $var($cc,$nn,ydata) \ - $var($cc,$nn,xedata) $var($cc,$nn,yedata) + blt::vector destroy $var($cc,$nn,xedata) $var($cc,$nn,yedata) } } } |