support multiple graph plots

1 files changed, 21 insertions, 6 deletions

diff --git a/ds9/library/plotdata.tcl b/ds9/library/plotdata.tcl
index 93a4be1..6dbd801 100644
--- a/ds9/library/plotdata.tcl
+++ b/ds9/library/plotdata.tcl
@@ -41,14 +41,15 @@ proc PlotDataSetOne {varname dim data} {
     }
 
     # total length
-    set ll [llength $data]
-
     # incr count
     incr ${varname}(graph,seq)
     set nn $var(graph,seq)
     lappend ${varname}(graph,dss) $nn
     set var(graph,ds,current) $nn
 
+    set var(graph,ds,manage) 1
+    set var(graph,ds,name) "Dataset $nn"
+
     # init new state
     global pap
     set var(graph,ds,show) $pap(graph,ds,show)
@@ -76,10 +77,6 @@ proc PlotDataSetOne {varname dim data} {
     set xedata ap${varname}graph${cc}xe${nn}
     set yedata ap${varname}graph${cc}ye${nn}
 
-    # basics
-    set var(graph,ds,manage) 1
-    set var(graph,ds,name) "Dataset $nn"
-
     # vectors
     set var(graph,ds,xdata) $xdata
     set var(graph,ds,ydata) $ydata
@@ -98,6 +95,8 @@ proc PlotDataSetOne {varname dim data} {
     set y {}
     set xe {}
     set ye {}
+    set ll [llength $data]
+
     switch -- $dim {
 	2 -
 	xy {
@@ -232,6 +231,22 @@ proc PlotDataSetOne {varname dim data} {
     PlotAddElement $varname
 }
 
+proc PlotExternal {varname} {
+    upvar #0 $varname var
+    global $varname
+
+    # incr count
+    incr ${varname}(graph,seq) 
+    set nn $var(graph,seq)
+    lappend ${varname}(graph,dss) $nn
+    set var(graph,ds,current) $nn
+
+    set var(graph,ds,manage) 0
+    set var(graph,ds,name) "Dataset $nn"
+
+    PlotAddElement $varname
+}
+
 proc PlotDupDataSet {varname mm} {
     upvar #0 $varname var
     global $varname