summaryrefslogtreecommitdiffstats
path: root/tksao
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2017-01-03 20:49:46 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2017-01-03 20:49:46 (GMT)
commit475bc04df5fa7e601a8c1427cc52c75794fb2ac0 (patch)
tree9bd4459a73dbf6f35de47b9c563ac7e43c6ca8c4 /tksao
parentae924ce81f4f6ab71fdfc2bc89257e9f0b4d8545 (diff)
downloadblt-475bc04df5fa7e601a8c1427cc52c75794fb2ac0.zip
blt-475bc04df5fa7e601a8c1427cc52c75794fb2ac0.tar.gz
blt-475bc04df5fa7e601a8c1427cc52c75794fb2ac0.tar.bz2
fixed a problem with FITS WCS PCx_x keywords
Diffstat (limited to 'tksao')
-rw-r--r--tksao/frame/fitsimage.C8
1 files changed, 3 insertions, 5 deletions
diff --git a/tksao/frame/fitsimage.C b/tksao/frame/fitsimage.C
index 76d5843..465363d 100644
--- a/tksao/frame/fitsimage.C
+++ b/tksao/frame/fitsimage.C
@@ -2713,13 +2713,11 @@ Vector FitsImage::getWCScdelt(Coord::CoordSystem sys)
if (hasWCS(sys)) {
int ii = sys-Coord::WCS;
- // The scaling factor could be encoded in pc or cdelt or both
- double pc0 = wcs_[ii]->pc[0] ? wcs_[ii]->pc[0] : 1;
- double pc3 = wcs_[ii]->pc[3] ? wcs_[ii]->pc[3] : 1;
+ // The scaling factor mag is in cdelt
if (!wcs_[ii]->coorflip)
- return Vector(wcs_[ii]->cdelt[0]*pc0, wcs_[ii]->cdelt[1]*pc3);
+ return Vector(wcs_[ii]->cdelt[0], wcs_[ii]->cdelt[1]);
else
- return Vector(wcs_[ii]->cdelt[1]*pc3, wcs_[ii]->cdelt[0]*pc0);
+ return Vector(wcs_[ii]->cdelt[1], wcs_[ii]->cdelt[0]);
}
else
return Vector();