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/array.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/array.tcl')
-rw-r--r-- | ds9/library/array.tcl | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/ds9/library/array.tcl b/ds9/library/array.tcl index 08b7a92..3f95167 100644 --- a/ds9/library/array.tcl +++ b/ds9/library/array.tcl @@ -158,26 +158,6 @@ proc ArrayCmdLoad {param} { FinishLoad } -proc ArrayCmdLoadRGB {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 ProcessSendArrayCmd {proc id param sock fn} { global current |