diff options
Diffstat (limited to 'ds9/library/var.tcl')
-rw-r--r-- | ds9/library/var.tcl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/ds9/library/var.tcl b/ds9/library/var.tcl new file mode 100644 index 0000000..549756f --- /dev/null +++ b/ds9/library/var.tcl @@ -0,0 +1,21 @@ +# 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 LoadVar {varname fn layer mode} { + global loadParam + + set loadParam(file,type) fits + set loadParam(file,mode) $mode + set loadParam(load,type) var + set loadParam(var,name) $varname + set loadParam(file,name) "$fn" + + # mask not supported + set loadParam(load,layer) {} + + ProcessLoad +} + |