Changeset 17036 for trunk/psModules/src/astrom/pmAstrometryWCS.c
- Timestamp:
- Mar 18, 2008, 8:38:14 AM (18 years ago)
- File:
-
- 1 edited
-
trunk/psModules/src/astrom/pmAstrometryWCS.c (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/psModules/src/astrom/pmAstrometryWCS.c
r16068 r17036 7 7 * @author EAM, IfA 8 8 * 9 * @version $Revision: 1.2 6$ $Name: not supported by cvs2svn $10 * @date $Date: 2008-0 1-15 02:48:58$9 * @version $Revision: 1.27 $ $Name: not supported by cvs2svn $ 10 * @date $Date: 2008-03-18 18:38:14 $ 11 11 * 12 12 * Copyright 2006 Institute for Astronomy, University of Hawaii … … 339 339 psFree (type); 340 340 341 psMetadataAddF64 (header, PS_LIST_TAIL, "CRVAL1", PS_META_REPLACE, "", wcs->toSky->R*P M_DEG_RAD);342 psMetadataAddF64 (header, PS_LIST_TAIL, "CRVAL2", PS_META_REPLACE, "", wcs->toSky->D*P M_DEG_RAD);341 psMetadataAddF64 (header, PS_LIST_TAIL, "CRVAL1", PS_META_REPLACE, "", wcs->toSky->R*PS_DEG_RAD); 342 psMetadataAddF64 (header, PS_LIST_TAIL, "CRVAL2", PS_META_REPLACE, "", wcs->toSky->D*PS_DEG_RAD); 343 343 344 344 psMetadataAddF64 (header, PS_LIST_TAIL, "CRPIX1", PS_META_REPLACE, "", wcs->crpix1); … … 604 604 // convert projection from FPA to SKY into wcs projection (degrees to radians) 605 605 wcs->toSky = psProjectionAlloc (fpa->toSky->R, fpa->toSky->D, PM_RAD_DEG, PM_RAD_DEG, fpa->toSky->type); 606 wcs->crval1 = fpa->toSky->R*P M_DEG_RAD;607 wcs->crval2 = fpa->toSky->D*P M_DEG_RAD;606 wcs->crval1 = fpa->toSky->R*PS_DEG_RAD; 607 wcs->crval2 = fpa->toSky->D*PS_DEG_RAD; 608 608 609 609 // given transformation, solve for coordinates which yields output coordinates of 0,0 … … 620 620 621 621 // pdelt1,2 has units of degrees/micron 622 double pdelt1 = fpa->toSky->Xs * P M_DEG_RAD;623 double pdelt2 = fpa->toSky->Ys * P M_DEG_RAD;622 double pdelt1 = fpa->toSky->Xs * PS_DEG_RAD; 623 double pdelt2 = fpa->toSky->Ys * PS_DEG_RAD; 624 624 625 625 // convert wcs->trans to a matrix with units of degrees/pixel … … 696 696 // convert projection from TPA to SKY into wcs projection (degrees to radians) 697 697 wcs->toSky = psProjectionAlloc (fpa->toSky->R, fpa->toSky->D, PM_RAD_DEG, PM_RAD_DEG, PS_PROJ_DIS); 698 wcs->crval1 = fpa->toSky->R*P M_DEG_RAD;699 wcs->crval2 = fpa->toSky->D*P M_DEG_RAD;698 wcs->crval1 = fpa->toSky->R*PS_DEG_RAD; 699 wcs->crval2 = fpa->toSky->D*PS_DEG_RAD; 700 700 701 701 // given transformation, solve for coordinates which yields output coordinates of 0,0 … … 712 712 713 713 // pdelt1,2 has units of degrees/micron 714 double pdelt1 = fpa->toSky->Xs * P M_DEG_RAD;715 double pdelt2 = fpa->toSky->Ys * P M_DEG_RAD;714 double pdelt1 = fpa->toSky->Xs * PS_DEG_RAD; 715 double pdelt2 = fpa->toSky->Ys * PS_DEG_RAD; 716 716 717 717 // convert wcs->trans to units of degree/micron
Note:
See TracChangeset
for help on using the changeset viewer.
