diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-12 21:07:26 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-12 21:07:26 (GMT) |
| commit | c603e045890f38b2c64bac190e934800355bc771 (patch) | |
| tree | 2e32265ebdfb8012a46694f38b450fadf0cd88cf /ds9/library/catned.tcl | |
| parent | 2a884140458c2f4ed271dd5b6fb74502db4653be (diff) | |
| download | blt-c603e045890f38b2c64bac190e934800355bc771.zip blt-c603e045890f38b2c64bac190e934800355bc771.tar.gz blt-c603e045890f38b2c64bac190e934800355bc771.tar.bz2 | |
catalog: use cone search radius instead of width/height
Diffstat (limited to 'ds9/library/catned.tcl')
| -rw-r--r-- | ds9/library/catned.tcl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/ds9/library/catned.tcl b/ds9/library/catned.tcl index c456005..007ce16 100644 --- a/ds9/library/catned.tcl +++ b/ds9/library/catned.tcl @@ -41,19 +41,15 @@ proc CATNED {varname} { switch -- $var(rformat) { degrees { - set ww $var(width) - set hh $var(height) + set rr $var(radius) } arcmin { - set ww [expr $var(width)/60.] - set hh [expr $var(height)/60.] + set rr [expr $var(radius)/60.] } arcsec { - set ww [expr $var(width)/60./60.] - set hh [expr $var(height)/60./60.] + set rr [expr $var(radius)/60./60.] } } - set rr [expr ($ww+$hh)/2.] if {$pcat(vot)} { set out "xml_main" |