diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-08-31 18:49:19 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-08-31 18:49:19 (GMT) |
commit | 8c46826b77c1705a5702a6901a96baf3e837aace (patch) | |
tree | 60774020ed7bc97e7f0098ba0e99c2cb5fc8a451 /ds9 | |
parent | cc9f1d2497abee56e8d3bc76cf74068489ebc67f (diff) | |
download | blt-8c46826b77c1705a5702a6901a96baf3e837aace.zip blt-8c46826b77c1705a5702a6901a96baf3e837aace.tar.gz blt-8c46826b77c1705a5702a6901a96baf3e837aace.tar.bz2 |
clean up wcs code
Diffstat (limited to 'ds9')
-rw-r--r-- | ds9/library/markerbasepanda.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ds9/library/markerbasepanda.tcl b/ds9/library/markerbasepanda.tcl index 4b260a4..363dd7c 100644 --- a/ds9/library/markerbasepanda.tcl +++ b/ds9/library/markerbasepanda.tcl @@ -141,6 +141,9 @@ proc MarkerBasePandaGenerateAngles {varname} { upvar #0 $varname var global $varname + global pds9 + set prec [expr $pds9(prec,angle)-3] + $var(angtxt) delete 1.0 end set ang1 $var(ang1) @@ -175,8 +178,8 @@ proc MarkerBasePandaGenerateAngles {varname} { } for {set i 0} {$i<=$angnum} {incr i} { - set v [expr ((($ang2-$ang1)/double($angnum))*$i)+$ang1] - $var(angtxt) insert end "$v\n" + set vv [expr ((($ang2-$ang1)/double($angnum))*$i)+$ang1] + $var(angtxt) insert end "[format %.${prec}f $vv]\n" } } } |