summaryrefslogtreecommitdiffstats
path: root/ds9/library/load.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-05-16 18:17:06 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-05-16 18:17:06 (GMT)
commit290312bc296c888fb080aa2bed0e4d8116aafc34 (patch)
tree6019d8c14a00fa5db776fd5ac703b0f73680d3d8 /ds9/library/load.tcl
parent212a5a2635286012d36b32f1e5cce0de95c2a4d4 (diff)
downloadblt-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.tcl58
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