diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-07-24 15:59:43 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-07-24 15:59:43 (GMT) |
commit | 4c5a36a72b068397271712eaca35ccd63ec2bc99 (patch) | |
tree | 6d3e048a00fcca005858678621ea9abd969a00a9 /ds9/library | |
parent | 4aff0a130bb5cf0e52b841ce86323c319df0fc0e (diff) | |
download | blt-4c5a36a72b068397271712eaca35ccd63ec2bc99.zip blt-4c5a36a72b068397271712eaca35ccd63ec2bc99.tar.gz blt-4c5a36a72b068397271712eaca35ccd63ec2bc99.tar.bz2 |
support multiple graphs per plot
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/catplot.tcl | 36 |
1 files changed, 10 insertions, 26 deletions
diff --git a/ds9/library/catplot.tcl b/ds9/library/catplot.tcl index 3290be3..3681b90 100644 --- a/ds9/library/catplot.tcl +++ b/ds9/library/catplot.tcl @@ -56,13 +56,7 @@ proc CATPlotGenerate {varname} { global $xdata $ydata $xedata $yedata if {[info command $xdata] == {}} { - blt::vector create $xdata $ydata - switch $dim { - xy {} - xyex {blt::vector create $xedata} - xyey {blt::vector create $yedata} - xyexey {blt::vector create $xedata $yedata} - } + blt::vector create $xdata $ydata $xedata $yedata } set xx {} @@ -85,15 +79,19 @@ proc CATPlotGenerate {varname} { xy { append xx [subst "$var(plot,x) "] append yy [subst "$var(plot,y) "] + append xe [subst "0 "] + append ye [subst "0 "] } xyex { append xx [subst "$var(plot,x) "] append yy [subst "$var(plot,y) "] append xe [subst "$var(plot,xerr) "] + append ye [subst "0 "] } xyey { append xx [subst "$var(plot,x) "] append yy [subst "$var(plot,y) "] + append xe [subst "0 "] append ye [subst "$var(plot,yerr) "] } xyexey { @@ -107,15 +105,8 @@ proc CATPlotGenerate {varname} { $xdata set $xx $ydata set $yy - switch $dim { - xy {} - xyex {$xedata set $xe} - xyey {$yedata set $ye} - xyexey { - $xedata set $xe - $yedata set $ye - } - } + $xedata set $xe + $yedata set $ye if {![PlotPing $vvarname]} { PlotDialog $vvarname $var(title) @@ -130,17 +121,10 @@ proc CATPlotGenerate {varname} { set vvar(callback) "CATSelectRows $varname plot" set vvar(graph,ds,xdata) $xdata set vvar(graph,ds,ydata) $ydata - switch $dim { - xy {} - xyex {set vvar(graph,ds,xedata) $xedata} - xyey {set vvar(graph,ds,yedata) $yedata} - xyexey { - set vvar(graph,ds,xedata) $xedata - set vvar(graph,ds,yedata) $yedata - } - } + set vvar(graph,ds,xedata) $xedata + set vvar(graph,ds,yedata) $yedata - PlotExternal $vvarname $dim + PlotExternal $vvarname xyexey } # colnames can change |