diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-30 20:09:45 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-30 20:09:45 (GMT) |
commit | f6e3a9d54ed5dd02aeda5f441146a42935082610 (patch) | |
tree | c383a12e04146d926a82a23c95f3df71c3db5497 /ds9/library/plotdata.tcl | |
parent | 206d3c1b9c3c7f563898f8f8aa590a543f308eaa (diff) | |
download | blt-f6e3a9d54ed5dd02aeda5f441146a42935082610.zip blt-f6e3a9d54ed5dd02aeda5f441146a42935082610.tar.gz blt-f6e3a9d54ed5dd02aeda5f441146a42935082610.tar.bz2 |
add multiple plot support
Diffstat (limited to 'ds9/library/plotdata.tcl')
-rw-r--r-- | ds9/library/plotdata.tcl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/ds9/library/plotdata.tcl b/ds9/library/plotdata.tcl index 025447e..179ff8e 100644 --- a/ds9/library/plotdata.tcl +++ b/ds9/library/plotdata.tcl @@ -141,6 +141,9 @@ proc PlotDataSetOne {varname dim data} { upvar #0 $varname var global $varname + # save current state + PlotSaveState $varname + set tt $var(graph,total) set cc $var(graph,current) @@ -157,6 +160,9 @@ proc PlotDataSetOne {varname dim data} { set nn $var(graph$cc,data,total) set var(graph$cc,data,current) $nn + # init new state + PlotInitState $varname + # new vector names set xdata ap${varname}xx${nn} set ydata ap${varname}yy${nn} @@ -328,7 +334,7 @@ proc PlotDataSetOne {varname dim data} { set var(graph$cc,$nn,xedata) $var(graph$cc,xedata) set var(graph$cc,$nn,yedata) $var(graph$cc,yedata) - PlotGetVar $varname $nn + PlotSaveState $varname # update data set menu $var(mb).graph.select add radiobutton -label "$var(graph$cc,name)" \ @@ -417,7 +423,7 @@ proc PlotDupData {varname mm} { set var(graph$cc,xedata) $var(graph$cc,$nn,xedata) set var(graph$cc,yedata) $var(graph$cc,$nn,yedata) - PlotSetVar $varname $nn + PlotRestoreState $varname $nn PlotAddData $varname $var(proc,updateelement) $varname @@ -425,4 +431,3 @@ proc PlotDupData {varname mm} { PlotStats $varname PlotList $varname } - |