diff options
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) } } } |