diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-01 17:18:20 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-01 17:18:20 (GMT) |
| commit | 8e8bd1009288bdd7b174c9d2da42bbd4681bc6d2 (patch) | |
| tree | e09e580c45fd79f7de5fbb23ec7b488ba86d489f /ds9/library/util.tcl | |
| parent | adbf89acf2d2393e65f78481838a72fc6fbcc35c (diff) | |
| download | blt-8e8bd1009288bdd7b174c9d2da42bbd4681bc6d2.zip blt-8e8bd1009288bdd7b174c9d2da42bbd4681bc6d2.tar.gz blt-8e8bd1009288bdd7b174c9d2da42bbd4681bc6d2.tar.bz2 | |
update ds9 send parsers
Diffstat (limited to 'ds9/library/util.tcl')
| -rw-r--r-- | ds9/library/util.tcl | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index bd27680..5e7e9dc 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -1163,51 +1163,6 @@ proc FixSpec {sysname skyname formatname defsys defsky defformat} { return $rr } -proc FixSpecSystem {sysname defsys} { - upvar $sysname sys - - set rr 0 - - switch -- $sys { - image - - physical - - detector - - amplifier - - wcs - - wcsa - - wcsb - - wcsc - - wcsd - - wcse - - wcsf - - wcsg - - wcsh - - wcsi - - wcsj - - wcsk - - wcsl - - wcsm - - wcsn - - wcso - - wcsp - - wcsq - - wcsr - - wcss - - wcst - - wcsu - - wcsv - - wcsw - - wcsx - - wcsy - - wcsz {incr rr} - default { - set sys $defsys - } - } - - return $rr -} - proc DS9Backup {ch which} { global pds9 |