diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-27 20:01:56 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-27 20:01:56 (GMT) |
commit | 26a96ff43d7f7b838c8ea7343bd738895c122e9e (patch) | |
tree | a52a9ae3247613a8d2f032b036e8ea1f9c98159c /ds9/library/plotprocess.tcl | |
parent | f56d51fc0565212090a9540b28dfda7d5de9cd41 (diff) | |
download | blt-26a96ff43d7f7b838c8ea7343bd738895c122e9e.zip blt-26a96ff43d7f7b838c8ea7343bd738895c122e9e.tar.gz blt-26a96ff43d7f7b838c8ea7343bd738895c122e9e.tar.bz2 |
add multiple plot support
Diffstat (limited to 'ds9/library/plotprocess.tcl')
-rw-r--r-- | ds9/library/plotprocess.tcl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index 738d083..9a9fa16 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -343,3 +343,26 @@ proc ProcessSendPlotCmd {proc id param {sock {}} {fn {}}} { plotsend::yy_scan_string $param plotsend::yyparse } + +proc PlotSendCmdCVARGet {key} { + global cvarname + upvar #0 $cvarname cvar + + set tt $cvar(graph,total) + set cc $cvar(graph,current) + + global parse + $parse(proc) $parse(id) "$cvar(graph$cc,$key)\n" +} + +proc PlotSendCmdCVARYesNo {key} { + global cvarname + upvar #0 $cvarname cvar + + set tt $cvar(graph,total) + set cc $cvar(graph,current) + + global parse + $parse(proc) $parse(id) [ToYesNo $cvar(graph$cc,$key)] +} + |