From 475bc04df5fa7e601a8c1427cc52c75794fb2ac0 Mon Sep 17 00:00:00 2001 From: William Joye Date: Tue, 3 Jan 2017 15:49:46 -0500 Subject: fixed a problem with FITS WCS PCx_x keywords --- tksao/frame/fitsimage.C | 8 +++----- 1 file 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(); -- cgit v0.12