diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-29 21:32:54 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-29 21:32:54 (GMT) |
commit | c3419fd29a2894195925560d2c37915dd555a6d6 (patch) | |
tree | d8f5cc7edca60fc84ec1bfa08c6a08fd3892177b /ds9/library/cat.tcl | |
parent | 4cc2d933414b448948fb17bf480b281163759016 (diff) | |
download | blt-c3419fd29a2894195925560d2c37915dd555a6d6.zip blt-c3419fd29a2894195925560d2c37915dd555a6d6.tar.gz blt-c3419fd29a2894195925560d2c37915dd555a6d6.tar.bz2 |
add ds9 plot parser
Diffstat (limited to 'ds9/library/cat.tcl')
-rw-r--r-- | ds9/library/cat.tcl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/ds9/library/cat.tcl b/ds9/library/cat.tcl index 36acb35..90b2c3a 100644 --- a/ds9/library/cat.tcl +++ b/ds9/library/cat.tcl @@ -2069,6 +2069,34 @@ proc CatalogCmdSymbol {col value} { CATGenerate $cvarname } +proc CatalogCmdSymbolStyle {value} { + global cvarname + upvar #0 $cvarname cvar + global $cvar(symdb) + + switch $value { + normal { + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontweight] normal + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontslant] roman + } + bold { + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontweight] bold + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontslant] roman + } + italic { + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontweight] normal + starbase_set $cvar(symdb) $cvar(row) \ + [starbase_colnum $cvar(symdb) fontslant] italic + } + } + CATGenerate $cvarname +} + proc CatalogCmdSymbolAdd {} { global cvarname upvar #0 $cvarname cvar |