From 6b79b7b84b6d543429a68a40da18edb4506c7b18 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Thu, 27 Jun 2019 14:23:55 -0400
Subject: support multiple graph plots

---
 ds9/library/plot.tcl | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl
index 356d07f..02561d8 100644
--- a/ds9/library/plot.tcl
+++ b/ds9/library/plot.tcl
@@ -171,17 +171,14 @@ proc PlotAddElement {varname} {
     global $var(graph,ds,xdata) $var(graph,ds,ydata)
     $var(graph) element create ${nn} \
 	-xdata $var(graph,ds,xdata) -ydata $var(graph,ds,ydata)
-    puts "add $nn $var(graph,ds,xdata) $var(graph,ds,ydata)"
     if {$var(graph,ds,xedata) != {}} {
 	if {[$var(graph,ds,xedata) length] != 0} {
-	    $var(graph) element configure ${nn} \
-		-xerror $var(graph,ds,xedata)
+	    $var(graph) element configure ${nn} -xerror $var(graph,ds,xedata)
 	}
     }
     if {$var(graph,ds,yedata) != {}} {
 	if {[$var(graph,ds,yedata) length] != 0} {
-	    $var(graph) element configure ${nn} \
-		-yerror $var(graph,ds,yedata)
+	    $var(graph) element configure ${nn} -yerror $var(graph,ds,yedata)
 	}
     }
 
@@ -241,7 +238,6 @@ proc PlotDeleteDataSet {varname} {
     $var($cc) element delete $nn
 
     # destroy vectors
-    puts "delete $nn $var($cc,$nn,xdata) $var($cc,$nn,ydata)"
     blt::vector destroy $var($cc,$nn,xdata) $var($cc,$nn,ydata)
     switch $var($cc,$nn,dim) {
 	xy {}
-- 
cgit v0.12