diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-10-25 18:12:34 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-10-25 18:12:34 (GMT) |
| commit | 99ef2b09248baf92afbe4700beefaa7fccc9f186 (patch) | |
| tree | 04308389ccdb8b37a5b92e3f5b8c733a290bbf70 /ds9 | |
| parent | 3e02c94ec4d83fe484ff2dfd6774d343ad4f2df8 (diff) | |
| download | blt-99ef2b09248baf92afbe4700beefaa7fccc9f186.zip blt-99ef2b09248baf92afbe4700beefaa7fccc9f186.tar.gz blt-99ef2b09248baf92afbe4700beefaa7fccc9f186.tar.bz2 | |
new mask
Diffstat (limited to 'ds9')
| -rw-r--r-- | ds9/library/mask.tcl | 27 | ||||
| -rw-r--r-- | ds9/parsers/masklex.fcl | 3 |
2 files changed, 30 insertions, 0 deletions
diff --git a/ds9/library/mask.tcl b/ds9/library/mask.tcl index 10e754b..09ece84 100644 --- a/ds9/library/mask.tcl +++ b/ds9/library/mask.tcl @@ -20,6 +20,24 @@ proc MaskDef {} { array set pmask [array get mask] } +proc MaskMark {} { + global mask + global current + + if {$current(frame) != {}} { + $current(frame) mask mark $mask(mark) + } +} + +proc MaskColor {} { + global mask + global current + + if {$current(frame) != {}} { + $current(frame) mask color $mask(color) + } +} + proc MaskTransparency {} { global mask global current @@ -29,6 +47,15 @@ proc MaskTransparency {} { } } +proc MaskSystem {} { + global mask + global current + + if {$current(frame) != {}} { + $current(frame) mask system $mask(system) + } +} + proc MaskClear {} { global current diff --git a/ds9/parsers/masklex.fcl b/ds9/parsers/masklex.fcl index 080b345..45d633f 100644 --- a/ds9/parsers/masklex.fcl +++ b/ds9/parsers/masklex.fcl @@ -12,8 +12,11 @@ clear {return $CLEAR_} color {return $COLOR_} mark {return $MARK_} open {return $OPEN_} +system {return $SYSTEM_} transparency {return $TRANSPARENCY_} +#include coordsys.fin +#include wcssys.fin #include numeric.fin #include string.fin #include ws.fin |