diff options
Diffstat (limited to 'ds9/library/mosaic.tcl')
-rw-r--r-- | ds9/library/mosaic.tcl | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/ds9/library/mosaic.tcl b/ds9/library/mosaic.tcl new file mode 100644 index 0000000..cd9f57e --- /dev/null +++ b/ds9/library/mosaic.tcl @@ -0,0 +1,34 @@ +# Copyright (C) 1999-2016 +# Smithsonian Astrophysical Observatory, Cambridge, MA, USA +# For conditions of distribution and use, see copyright notice in "copyright" + +package provide DS9 1.0 + +proc ProcessMosaicCmd {varname iname sock fn} { + upvar $varname var + upvar $iname i + + set vvar $var + set ii $i + + switch -- [string tolower [lindex $var $i]] { + iraf { + incr ii + ProcessMosaicIRAFCmd vvar ii $sock $fn + } + wfpc2 {} + default {ProcessMosaicWCSCmd vvar ii $sock $fn} + } +} + +proc ProcessSendMosaicCmd {proc id param sock fn} { + switch -- [string tolower [lindex $param 0]] { + iraf {} + wfpc2 {} + wcs { + set param [lindex $param 1 end] + ProcessSendMosaicWCSCmd $proc $id $param $sock $fn + } + default {ProcessSendMosaicWCSCmd $proc $id $param $sock $fn} + } +} |