diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-06-27 18:23:55 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-06-27 18:23:55 (GMT) |
| commit | 6b79b7b84b6d543429a68a40da18edb4506c7b18 (patch) | |
| tree | 470b19fcb1c7e2251fa4c7778602bcd38e7ce552 | |
| parent | d0494c4f18f75d37a1db76e41c300c792800861e (diff) | |
| download | blt-6b79b7b84b6d543429a68a40da18edb4506c7b18.zip blt-6b79b7b84b6d543429a68a40da18edb4506c7b18.tar.gz blt-6b79b7b84b6d543429a68a40da18edb4506c7b18.tar.bz2 | |
support multiple graph plots
| -rw-r--r-- | ds9/library/plot.tcl | 8 |
1 files 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 {} |