diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-10-16 20:17:59 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-10-16 20:17:59 (GMT) |
commit | 6dc29e2c5fe4ef4ecefb098e81db9ea0f21e9712 (patch) | |
tree | c77d9abeb877875c04dd5cfca97dcd21c999c4da /ds9/library | |
parent | fb714ac0de78f7fd77b8af8241b92f987bd43c55 (diff) | |
download | blt-6dc29e2c5fe4ef4ecefb098e81db9ea0f21e9712.zip blt-6dc29e2c5fe4ef4ecefb098e81db9ea0f21e9712.tar.gz blt-6dc29e2c5fe4ef4ecefb098e81db9ea0f21e9712.tar.bz2 |
Catalog: cat plot line command incorrectly finds 'Xerr' and 'Yerr' columns
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/cat.tcl | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/ds9/library/cat.tcl b/ds9/library/cat.tcl index f373f69..e4704b9 100644 --- a/ds9/library/cat.tcl +++ b/ds9/library/cat.tcl @@ -1638,10 +1638,22 @@ proc ProcessCatalog {varname iname cvarname} { set cvar(plot,x) [lindex $var $i] incr i set cvar(plot,y) [lindex $var $i] - incr i - set cvar(plot,xerr) [lindex $var $i] - incr i - set cvar(plot,yerr) [lindex $var $i] + set cvar(plot,xerr) {} + set cvar(plot,yerr) {} + set xerr [lindex $var [expr $i+1]] + set yerr [lindex $var [expr $i+2]] + if {$xerr != {}} { + if {[string range $xerr 0 0 ] != {-}} { + incr i + set cvar(plot,xerr) $xerr + if {$yerr != {}} { + if {[string range $yerr 0 0 ] != {-}} { + incr i + set cvar(plot,yerr) $yerr + } + } + } + } CATPlotGenerate $cvarname } print {CATPrint $cvarname} |