diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-09 17:40:14 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-09 17:40:14 (GMT) |
commit | 564e1f08a369740a5b081c0c29d88459c9ae1002 (patch) | |
tree | 8d1612660f2e751f187fe487395e3e6e60d26943 /ds9/library/rgbarray.tcl | |
parent | 20f0238cf86a6819ed9071d84a4620e6b2ce5d2d (diff) | |
download | blt-564e1f08a369740a5b081c0c29d88459c9ae1002.zip blt-564e1f08a369740a5b081c0c29d88459c9ae1002.tar.gz blt-564e1f08a369740a5b081c0c29d88459c9ae1002.tar.bz2 |
add ds9 photo parsers
Diffstat (limited to 'ds9/library/rgbarray.tcl')
-rw-r--r-- | ds9/library/rgbarray.tcl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/ds9/library/rgbarray.tcl b/ds9/library/rgbarray.tcl index 44054bb..1bcccc1 100644 --- a/ds9/library/rgbarray.tcl +++ b/ds9/library/rgbarray.tcl @@ -163,6 +163,26 @@ proc ProcessRGBArrayCmd {varname iname sock fn} { FinishLoad } +proc RGBArrayCmdLoad {param} { + global array + + if {$array(load,sock) != {}} { + # xpa + if {![ImportRGBArraySocket $array(load,sock) $param]} { + InitError xpa + ImportRGBArrayFile $param + } + } else { + # comm + if {$array(load,fn) != {}} { + ImportRGBArrayAlloc $array(load,fn) $param + } else { + ImportRGBArrayFile $param + } + } + FinishLoad +} + proc ProcessSendRGBArrayCmd {proc id param sock fn} { global current |