diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 19:02:28 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 19:02:28 (GMT) |
commit | 5178f98a0a216d2419e6695758101ab321495cbf (patch) | |
tree | 174782b591efa61f9ed220c9b84856bcb0e8a379 /ds9/library/cat.tcl | |
parent | b3e4ff140fcd7ac46dcdf00049105cfb780294ca (diff) | |
download | blt-5178f98a0a216d2419e6695758101ab321495cbf.zip blt-5178f98a0a216d2419e6695758101ab321495cbf.tar.gz blt-5178f98a0a216d2419e6695758101ab321495cbf.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/cat.tcl')
-rw-r--r-- | ds9/library/cat.tcl | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/ds9/library/cat.tcl b/ds9/library/cat.tcl index 69391a6..0661ff7 100644 --- a/ds9/library/cat.tcl +++ b/ds9/library/cat.tcl @@ -1300,15 +1300,6 @@ proc CatalogCmdRef {ref} { } } -proc CatalogCmdCoord {xx yy skyframe} { - global cvarname - upvar #0 $cvarname cvar - - set cvar(x) $xx - set cvar(y) $yy - set cvar(sky) $skyframe -} - proc CatalogCmdFilterLoad {fn} { global cvarname upvar #0 $cvarname cvar @@ -1358,24 +1349,6 @@ proc CatalogCmdMatchParams {cat1 cat2} { } } -proc CatalogCmdMatchError {error eformat} { - global icat - - set icat(error) $error - set icat(eformat) $eformat -} - -proc CatalogCmdPlot {xx yy xerr yerr} { - global cvarname - upvar #0 $cvarname cvar - - set cvar(plot,x) $xx - set cvar(plot,y) $yy - set cvar(plot,xerr) $xerr - set cvar(plot,yerr) $yerr - CATPlotGenerate $cvarname -} - proc CatalogCmdSAMP {} { global cvarname global samp @@ -1414,16 +1387,6 @@ proc CatalogCmdSave {fn writer} { } } -proc CatalogCmdSize {width height rformat} { - global cvarname - upvar #0 $cvarname cvar - - set cvar(width) $width - set cvar(height) $height - set cvar(rformat) $rformat - set cvar(rformat,msg) $rformat -} - proc CatalogCmdSkyframe {skyframe} { global cvarname upvar #0 $cvarname cvar |