diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-16 18:17:06 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-16 18:17:06 (GMT) |
commit | 290312bc296c888fb080aa2bed0e4d8116aafc34 (patch) | |
tree | 6019d8c14a00fa5db776fd5ac703b0f73680d3d8 /ds9/library/load.tcl | |
parent | 212a5a2635286012d36b32f1e5cce0de95c2a4d4 (diff) | |
download | blt-290312bc296c888fb080aa2bed0e4d8116aafc34.zip blt-290312bc296c888fb080aa2bed0e4d8116aafc34.tar.gz blt-290312bc296c888fb080aa2bed0e4d8116aafc34.tar.bz2 |
add ds9 shm parser
Diffstat (limited to 'ds9/library/load.tcl')
-rw-r--r-- | ds9/library/load.tcl | 58 |
1 files changed, 19 insertions, 39 deletions
diff --git a/ds9/library/load.tcl b/ds9/library/load.tcl index 221a1f6..cc10f10 100644 --- a/ds9/library/load.tcl +++ b/ds9/library/load.tcl @@ -13,46 +13,20 @@ proc MultiLoad {{layer {}} {mode {}}} { puts stderr "MultiLoad" } - if {$layer != {} || $mode != {}} { - return - } - if {$current(frame) != {}} { - if {![$current(frame) has fits]} { - return - } switch -- [$current(frame) get type] { base - - 3d {CreateFrame} - rgb {} - } - } else { - CreateFrame - return - } - - # go into tile mode if more than one - set cnt [llength $ds9(frames)] - if {$cnt > 1 && $current(display) != "tile"} { - set current(display) tile - DisplayMode - } -} - -proc MultiLoadBase {} { - global ds9 - global current - - global debug - if {$debug(tcl,layout)} { - puts stderr "MultiLoadBase" - } - - if {$current(frame) != {}} { - if {![$current(frame) has fits]} { - return + 3d { + if {$layer != {} || $mode != {}} { + return + } + if {![$current(frame) has fits]} { + return + } + CreateFrame + } + rgb {CreateFrame} } - CreateFrame } else { CreateFrame return @@ -76,10 +50,16 @@ proc MultiLoadRGB {} { } if {$current(frame) != {}} { - if {![$current(frame) has fits]} { - return + switch -- [$current(frame) get type] { + base - + 3d {CreateRGBFrame} + rgb { + if {![$current(frame) has fits]} { + return + } + CreateRGBFrame + } } - CreateRGBFrame } else { CreateRGBFrame return |