diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-06-07 16:45:02 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-06-07 16:45:02 (GMT) |
commit | 02ee45abe855be05bacb2b65edd518a4b8f6f51b (patch) | |
tree | fe68ab5d4121b07097cceb79d4dab8695d402013 /ds9/library/plotprocess.tcl | |
parent | 72cee7539e883903b6bfec4fd03738753457b992 (diff) | |
download | blt-02ee45abe855be05bacb2b65edd518a4b8f6f51b.zip blt-02ee45abe855be05bacb2b65edd518a4b8f6f51b.tar.gz blt-02ee45abe855be05bacb2b65edd518a4b8f6f51b.tar.bz2 |
support multiple graphs per plot
Diffstat (limited to 'ds9/library/plotprocess.tcl')
-rw-r--r-- | ds9/library/plotprocess.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index e4af856..0283af0 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -346,6 +346,20 @@ proc PlotCmdSelectData {which} { PlotCurrentData $cvarname } +# used by SAMP and CATALOG +proc PlotCmdHighliteElement {varname rowlist} { + upvar #0 $varname var + global $varname + + # rowlist starts at 1 + set result {} + foreach rr $rowlist { + append result "[expr $rr-1] " + } + + $var(proc,highlite) $varname $result +} + proc ProcessSendPlotCmd {proc id param {sock {}} {fn {}}} { global iap global parse |