Changeset 17036
- Timestamp:
- Mar 18, 2008, 8:38:14 AM (18 years ago)
- Location:
- trunk/psModules
- Files:
-
- 12 edited
-
src/astrom/Makefile.am (modified) (2 diffs)
-
src/astrom/pmAstrometryObjects.c (modified) (5 diffs)
-
src/astrom/pmAstrometryWCS.c (modified) (6 diffs)
-
src/camera/pmFPAfile.c (modified) (2 diffs)
-
src/camera/pmFPAfile.h (modified) (2 diffs)
-
src/camera/pmFPAfileIO.c (modified) (10 diffs)
-
src/psmodules.h (modified) (1 diff)
-
test/astrom/tap_pmAstrometryWCS.c (modified) (2 diffs)
-
test/astrom/tap_pmAstrometryWCS_DVO.c (modified) (6 diffs)
-
test/astrom/tap_pmAstrometryWCS_DVO2.c (modified) (6 diffs)
-
test/astrom/tap_pmAstrometryWCS_DVO3.c (modified) (6 diffs)
-
test/astrom/tap_pmAstrometryWCS_DVO4.c (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/psModules/src/astrom/Makefile.am
r15562 r17036 8 8 pmAstrometryDistortion.c \ 9 9 pmAstrometryUtils.c \ 10 pmAstrometryTable.c \ 10 pmAstrometryModel.c \ 11 pmAstrometryRefstars.c \ 11 12 pmAstrometryWCS.c 12 13 … … 16 17 pmAstrometryDistortion.h \ 17 18 pmAstrometryUtils.h \ 18 pmAstrometryTable.h \ 19 pmAstrometryModel.h \ 20 pmAstrometryRefstars.h \ 19 21 pmAstrometryWCS.h 20 22 -
trunk/psModules/src/astrom/pmAstrometryObjects.c
r16069 r17036 8 8 * @author EAM, IfA 9 9 * 10 * @version $Revision: 1.3 7$ $Name: not supported by cvs2svn $11 * @date $Date: 2008-0 1-15 02:49:45$10 * @version $Revision: 1.38 $ $Name: not supported by cvs2svn $ 11 * @date $Date: 2008-03-18 18:38:14 $ 12 12 * 13 13 * Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii … … 32 32 #include "pmFPA.h" 33 33 #include "pmAstrometryObjects.h" 34 35 # define DEG_RAD 57.29577951308232236 # define RAD_DEG 0.01745329251994337 34 38 35 #define PM_ASTROMETRYOBJECTS_DEBUG 1 … … 726 723 double delScale = psMetadataLookupF32 (&status, config, "PSASTRO.GRID.DEL.SCALE"); 727 724 728 double minAngle = RAD_DEG*psMetadataLookupF32 (&status, config, "PSASTRO.GRID.MIN.ANGLE");729 double maxAngle = RAD_DEG*psMetadataLookupF32 (&status, config, "PSASTRO.GRID.MAX.ANGLE");730 double delAngle = RAD_DEG*psMetadataLookupF32 (&status, config, "PSASTRO.GRID.DEL.ANGLE");725 double minAngle = PS_RAD_DEG*psMetadataLookupF32 (&status, config, "PSASTRO.GRID.MIN.ANGLE"); 726 double maxAngle = PS_RAD_DEG*psMetadataLookupF32 (&status, config, "PSASTRO.GRID.MAX.ANGLE"); 727 double delAngle = PS_RAD_DEG*psMetadataLookupF32 (&status, config, "PSASTRO.GRID.DEL.ANGLE"); 731 728 double minSigma = psMetadataLookupF32 (&status, config, "PSASTRO.GRID.MIN.SIGMA"); 732 729 … … 762 759 *minStat = *newStat; 763 760 psLogMsg ("psModule.astrom", 4, "grid test - offset: %7.2f,%7.2f @ %6.1f deg x %7.3f (%4d pts, %5.1f sig, %5.1f var, %6.3f log metric) *", 764 minStat->offset.x, minStat->offset.y, DEG_RAD*minStat->angle, minStat->scale, minStat->nMatch, minStat->nSigma, minStat->minVar, log10(minStat->minMetric));761 minStat->offset.x, minStat->offset.y, PS_DEG_RAD*minStat->angle, minStat->scale, minStat->nMatch, minStat->nSigma, minStat->minVar, log10(minStat->minMetric)); 765 762 } else { 766 763 psLogMsg ("psModule.astrom", 4, "grid test - offset: %7.2f,%7.2f @ %6.1f deg x %7.3f (%4d pts, %5.1f sig, %5.1f var, %6.3f log metric)", 767 newStat->offset.x, newStat->offset.y, DEG_RAD*newStat->angle, newStat->scale, newStat->nMatch, newStat->nSigma, newStat->minVar, log10(newStat->minMetric));764 newStat->offset.x, newStat->offset.y, PS_DEG_RAD*newStat->angle, newStat->scale, newStat->nMatch, newStat->nSigma, newStat->minVar, log10(newStat->minMetric)); 768 765 769 766 } … … 773 770 } 774 771 psLogMsg ("psModule.astrom.grid.match", 4, "grid best - offset: %7.2f,%7.2f @ %6.1f deg x %7.3f (%4d pts, %5.1f sig, %5.1f var, %6.3f log metric)", 775 minStat->offset.x, minStat->offset.y, DEG_RAD*minStat->angle, minStat->scale, minStat->nMatch, minStat->nSigma, minStat->minVar, log10(minStat->minMetric));772 minStat->offset.x, minStat->offset.y, PS_DEG_RAD*minStat->angle, minStat->scale, minStat->nMatch, minStat->nSigma, minStat->minVar, log10(minStat->minMetric)); 776 773 777 774 // I need to decide if a solution is likely to be a good solution or just a mis-match -
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 -
trunk/psModules/src/camera/pmFPAfile.c
r16948 r17036 443 443 return PM_FPA_FILE_HEADER; 444 444 } 445 // deprecate this? 445 446 if (!strcasecmp (type, "ASTROM")) { 446 return PM_FPA_FILE_ASTROM; 447 return PM_FPA_FILE_ASTROM_MODEL; 448 } 449 if (!strcasecmp (type, "ASTROM.MODEL")) { 450 return PM_FPA_FILE_ASTROM_MODEL; 451 } 452 if (!strcasecmp (type, "ASTROM.REFSTARS")) { 453 return PM_FPA_FILE_ASTROM_REFSTARS; 447 454 } 448 455 … … 481 488 case PM_FPA_FILE_HEADER: 482 489 return ("HEADER"); 483 case PM_FPA_FILE_ASTROM: 484 return ("ASTROM"); 490 case PM_FPA_FILE_ASTROM_MODEL: 491 return ("ASTROM.MODEL"); 492 case PM_FPA_FILE_ASTROM_REFSTARS: 493 return ("ASTROM.REFSTARS"); 485 494 default: 486 495 return ("NONE"); -
trunk/psModules/src/camera/pmFPAfile.h
r16841 r17036 4 4 * @author EAM, IfA 5 5 * 6 * @version $Revision: 1. 29$ $Name: not supported by cvs2svn $7 * @date $Date: 2008-03- 06 20:47:50$6 * @version $Revision: 1.30 $ $Name: not supported by cvs2svn $ 7 * @date $Date: 2008-03-18 18:38:14 $ 8 8 * Copyright 2004-2005 Institute for Astronomy, University of Hawaii 9 9 */ … … 36 36 PM_FPA_FILE_KAPA, 37 37 PM_FPA_FILE_HEADER, 38 PM_FPA_FILE_ASTROM, 38 PM_FPA_FILE_ASTROM_MODEL, 39 PM_FPA_FILE_ASTROM_REFSTARS, 39 40 } pmFPAfileType; 40 41 -
trunk/psModules/src/camera/pmFPAfileIO.c
r17025 r17036 34 34 #include "pmResiduals.h" 35 35 #include "pmPSF_IO.h" 36 #include "pmAstrometryTable.h" 36 #include "pmAstrometryModel.h" 37 #include "pmAstrometryRefstars.h" 37 38 #include "pmFPA_JPEG.h" 38 39 #include "pmSourcePlots.h" … … 196 197 status = pmPSFmodelReadForView (view, file, config); 197 198 break; 198 case PM_FPA_FILE_ASTROM: 199 status = pmAstromReadForView (view, file, config); 200 break; 199 case PM_FPA_FILE_ASTROM_MODEL: 200 status = pmAstromModelReadForView (view, file, config); 201 break; 202 case PM_FPA_FILE_ASTROM_REFSTARS: 201 203 case PM_FPA_FILE_JPEG: 202 204 case PM_FPA_FILE_KAPA: … … 281 283 case PM_FPA_FILE_CMF: 282 284 case PM_FPA_FILE_PSF: 283 case PM_FPA_FILE_ASTROM: 285 case PM_FPA_FILE_ASTROM_MODEL: 286 case PM_FPA_FILE_ASTROM_REFSTARS: 284 287 case PM_FPA_FILE_JPEG: 285 288 case PM_FPA_FILE_KAPA: … … 357 360 } 358 361 } 359 if (file->type == PM_FPA_FILE_ASTROM) { 360 if (!pmAstromCheckDataStatusForView (view, file)) { 362 if (file->type == PM_FPA_FILE_ASTROM_MODEL) { 363 if (!pmAstromModelCheckDataStatusForView (view, file)) { 364 psTrace("psModules.camera", 6, "skip write for %s, no data for this entry", file->name); 365 return true; 366 } 367 } 368 if (file->type == PM_FPA_FILE_ASTROM_REFSTARS) { 369 if (!pmAstromRefstarsCheckDataStatusForView (view, file)) { 361 370 psTrace("psModules.camera", 6, "skip write for %s, no data for this entry", file->name); 362 371 return true; … … 405 414 fitsType |= (file->type == PM_FPA_FILE_CMF); 406 415 fitsType |= (file->type == PM_FPA_FILE_PSF); 407 fitsType |= (file->type == PM_FPA_FILE_ASTROM); 416 fitsType |= (file->type == PM_FPA_FILE_ASTROM_MODEL); 417 fitsType |= (file->type == PM_FPA_FILE_ASTROM_REFSTARS); 408 418 409 419 // Ensure headers and all are updated … … 481 491 break; 482 492 483 case PM_FPA_FILE_ASTROM: 484 status = pmAstromWriteForView (view, file, config); 493 case PM_FPA_FILE_ASTROM_MODEL: 494 status = pmAstromModelWriteForView (view, file, config); 495 break; 496 497 case PM_FPA_FILE_ASTROM_REFSTARS: 498 status = pmAstromRefstarsWriteForView (view, file, config); 485 499 break; 486 500 … … 543 557 case PM_FPA_FILE_CMF: 544 558 case PM_FPA_FILE_PSF: 545 case PM_FPA_FILE_ASTROM: 559 case PM_FPA_FILE_ASTROM_MODEL: 560 case PM_FPA_FILE_ASTROM_REFSTARS: 546 561 psTrace ("psModules.camera", 5, "closing %s (%s) (%d:%d:%d)\n", file->filename, file->name, view->chip, view->cell, view->readout); 547 562 status = psFitsClose (file->fits); … … 611 626 case PM_FPA_FILE_CMF: 612 627 case PM_FPA_FILE_PSF: 613 case PM_FPA_FILE_ASTROM: 628 case PM_FPA_FILE_ASTROM_MODEL: 629 case PM_FPA_FILE_ASTROM_REFSTARS: 614 630 psTrace ("psModules.camera", 5, "NOT freeing %s (%s) : save for further analysis\n", file->filename, file->name); 615 631 return true; … … 749 765 case PM_FPA_FILE_CMF: 750 766 case PM_FPA_FILE_PSF: 751 case PM_FPA_FILE_ASTROM: 767 case PM_FPA_FILE_ASTROM_MODEL: 768 case PM_FPA_FILE_ASTROM_REFSTARS: 752 769 psTrace ("psModules.camera", 5, "opening %s (%s) (%d:%d:%d)\n", 753 770 file->filename, file->name, view->chip, view->cell, view->readout); … … 922 939 status = pmPSFmodelWritePHU (view, file, config); 923 940 break; 924 case PM_FPA_FILE_ASTROM: 941 case PM_FPA_FILE_ASTROM_REFSTARS: 942 status = pmAstromRefstarsWritePHU (view, file, config); 943 break; 944 case PM_FPA_FILE_ASTROM_MODEL: 925 945 case PM_FPA_FILE_SX: 926 946 case PM_FPA_FILE_RAW: -
trunk/psModules/src/psmodules.h
r16841 r17036 75 75 #include <pmAstrometryRegions.h> 76 76 #include <pmAstrometryObjects.h> 77 #include <pmAstrometryTable.h> 77 #include <pmAstrometryModel.h> 78 #include <pmAstrometryRefstars.h> 78 79 #include <pmAstrometryDistortion.h> 79 80 -
trunk/psModules/test/astrom/tap_pmAstrometryWCS.c
r10875 r17036 55 55 56 56 // make these tests double 57 ok_float(fpa->toSky->R*P M_DEG_RAD, 0.0, "projection center RA %f", fpa->toSky->R*PM_DEG_RAD);58 ok_float(fpa->toSky->R*P M_DEG_RAD, 0.0, "projection center DEC %f", fpa->toSky->R*PM_DEG_RAD);57 ok_float(fpa->toSky->R*PS_DEG_RAD, 0.0, "projection center RA %f", fpa->toSky->R*PS_DEG_RAD); 58 ok_float(fpa->toSky->R*PS_DEG_RAD, 0.0, "projection center DEC %f", fpa->toSky->R*PS_DEG_RAD); 59 59 60 60 ok_float(fpa->toSky->Xs, PM_RAD_DEG/3600.0/10.0, "projection X scale %f", fpa->toSky->Xs); … … 122 122 123 123 // make these tests double 124 ok_float(fpa->toSky->R*P M_DEG_RAD, 0.0, "projection center RA %f", fpa->toSky->R*PM_DEG_RAD);125 ok_float(fpa->toSky->R*P M_DEG_RAD, 0.0, "projection center DEC %f", fpa->toSky->R*PM_DEG_RAD);124 ok_float(fpa->toSky->R*PS_DEG_RAD, 0.0, "projection center RA %f", fpa->toSky->R*PS_DEG_RAD); 125 ok_float(fpa->toSky->R*PS_DEG_RAD, 0.0, "projection center DEC %f", fpa->toSky->R*PS_DEG_RAD); 126 126 127 127 ok_float(fpa->toSky->Xs, PM_RAD_DEG/3600.0/10.0, "projection X scale %f", fpa->toSky->Xs); -
trunk/psModules/test/astrom/tap_pmAstrometryWCS_DVO.c
r15989 r17036 98 98 sky2->r += 2*M_PI; 99 99 100 ok_float(sky1->r*P M_DEG_RAD, sky2->r*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->r*PM_DEG_RAD, sky2->r*PM_DEG_RAD, sky1->r*PM_DEG_RAD - sky2->r*PM_DEG_RAD);101 ok_float(sky1->d*P M_DEG_RAD, sky2->d*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->d*PM_DEG_RAD, sky2->d*PM_DEG_RAD, sky1->d*PM_DEG_RAD - sky2->d*PM_DEG_RAD);100 ok_float(sky1->r*PS_DEG_RAD, sky2->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->r*PS_DEG_RAD, sky2->r*PS_DEG_RAD, sky1->r*PS_DEG_RAD - sky2->r*PS_DEG_RAD); 101 ok_float(sky1->d*PS_DEG_RAD, sky2->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->d*PS_DEG_RAD, sky2->d*PS_DEG_RAD, sky1->d*PS_DEG_RAD - sky2->d*PS_DEG_RAD); 102 102 } 103 103 } … … 171 171 sky2->r += 2*M_PI; 172 172 173 ok_float(sky1->r*P M_DEG_RAD, sky2->r*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->r*PM_DEG_RAD, sky2->r*PM_DEG_RAD, sky1->r*PM_DEG_RAD - sky2->r*PM_DEG_RAD);174 ok_float(sky1->d*P M_DEG_RAD, sky2->d*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->d*PM_DEG_RAD, sky2->d*PM_DEG_RAD, sky1->d*PM_DEG_RAD - sky2->d*PM_DEG_RAD);173 ok_float(sky1->r*PS_DEG_RAD, sky2->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->r*PS_DEG_RAD, sky2->r*PS_DEG_RAD, sky1->r*PS_DEG_RAD - sky2->r*PS_DEG_RAD); 174 ok_float(sky1->d*PS_DEG_RAD, sky2->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->d*PS_DEG_RAD, sky2->d*PS_DEG_RAD, sky1->d*PS_DEG_RAD - sky2->d*PS_DEG_RAD); 175 175 } 176 176 } … … 244 244 sky2->r += 2*M_PI; 245 245 246 ok_float(sky1->r*P M_DEG_RAD, sky2->r*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->r*PM_DEG_RAD, sky2->r*PM_DEG_RAD, sky1->r*PM_DEG_RAD - sky2->r*PM_DEG_RAD);247 ok_float(sky1->d*P M_DEG_RAD, sky2->d*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->d*PM_DEG_RAD, sky2->d*PM_DEG_RAD, sky2->d*PM_DEG_RAD - sky2->d*PM_DEG_RAD);246 ok_float(sky1->r*PS_DEG_RAD, sky2->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->r*PS_DEG_RAD, sky2->r*PS_DEG_RAD, sky1->r*PS_DEG_RAD - sky2->r*PS_DEG_RAD); 247 ok_float(sky1->d*PS_DEG_RAD, sky2->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", sky1->d*PS_DEG_RAD, sky2->d*PS_DEG_RAD, sky2->d*PS_DEG_RAD - sky2->d*PS_DEG_RAD); 248 248 } 249 249 } … … 310 310 sky->r += 2*M_PI; 311 311 312 ok_float(rDVO, sky->r*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, sky->r*PM_DEG_RAD, rDVO - sky->r*PM_DEG_RAD);313 ok_float(dDVO, sky->d*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, sky->d*PM_DEG_RAD, dDVO - sky->d*PM_DEG_RAD);312 ok_float(rDVO, sky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, sky->r*PS_DEG_RAD, rDVO - sky->r*PS_DEG_RAD); 313 ok_float(dDVO, sky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, sky->d*PS_DEG_RAD, dDVO - sky->d*PS_DEG_RAD); 314 314 } 315 315 } … … 369 369 sky->r += 2*M_PI; 370 370 371 ok_float(rDVO, sky->r*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, sky->r*PM_DEG_RAD, rDVO - sky->r*PM_DEG_RAD);372 ok_float(dDVO, sky->d*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, sky->d*PM_DEG_RAD, dDVO - sky->d*PM_DEG_RAD);371 ok_float(rDVO, sky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, sky->r*PS_DEG_RAD, rDVO - sky->r*PS_DEG_RAD); 372 ok_float(dDVO, sky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, sky->d*PS_DEG_RAD, dDVO - sky->d*PS_DEG_RAD); 373 373 } 374 374 } … … 428 428 sky->r += 2*M_PI; 429 429 430 ok_float(rDVO, sky->r*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, sky->r*PM_DEG_RAD, rDVO - sky->r*PM_DEG_RAD);431 ok_float(dDVO, sky->d*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, sky->d*PM_DEG_RAD, dDVO - sky->d*PM_DEG_RAD);430 ok_float(rDVO, sky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, sky->r*PS_DEG_RAD, rDVO - sky->r*PS_DEG_RAD); 431 ok_float(dDVO, sky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, sky->d*PS_DEG_RAD, dDVO - sky->d*PS_DEG_RAD); 432 432 } 433 433 } -
trunk/psModules/test/astrom/tap_pmAstrometryWCS_DVO2.c
r15989 r17036 93 93 onSky->r += 2*M_PI; 94 94 95 ok_float(rDVO, onSky->r*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PM_DEG_RAD, rDVO - onSky->r*PM_DEG_RAD);96 ok_float(dDVO, onSky->d*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PM_DEG_RAD, dDVO - onSky->d*PM_DEG_RAD);95 ok_float(rDVO, onSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PS_DEG_RAD, rDVO - onSky->r*PS_DEG_RAD); 96 ok_float(dDVO, onSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PS_DEG_RAD, dDVO - onSky->d*PS_DEG_RAD); 97 97 } 98 98 } … … 164 164 onSky->r += 2*M_PI; 165 165 166 ok_float(rDVO, onSky->r*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PM_DEG_RAD, rDVO - onSky->r*PM_DEG_RAD);167 ok_float(dDVO, onSky->d*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PM_DEG_RAD, dDVO - onSky->d*PM_DEG_RAD);166 ok_float(rDVO, onSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PS_DEG_RAD, rDVO - onSky->r*PS_DEG_RAD); 167 ok_float(dDVO, onSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PS_DEG_RAD, dDVO - onSky->d*PS_DEG_RAD); 168 168 } 169 169 } … … 238 238 onSky->r += 2*M_PI; 239 239 240 ok_float(rDVO, onSky->r*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PM_DEG_RAD, rDVO - onSky->r*PM_DEG_RAD);241 ok_float(dDVO, onSky->d*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PM_DEG_RAD, dDVO - onSky->d*PM_DEG_RAD);240 ok_float(rDVO, onSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PS_DEG_RAD, rDVO - onSky->r*PS_DEG_RAD); 241 ok_float(dDVO, onSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PS_DEG_RAD, dDVO - onSky->d*PS_DEG_RAD); 242 242 } 243 243 } … … 309 309 onSky->r += 2*M_PI; 310 310 311 ok_float(rDVO, onSky->r*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PM_DEG_RAD, rDVO - onSky->r*PM_DEG_RAD);312 ok_float(dDVO, onSky->d*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PM_DEG_RAD, dDVO - onSky->d*PM_DEG_RAD);311 ok_float(rDVO, onSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PS_DEG_RAD, rDVO - onSky->r*PS_DEG_RAD); 312 ok_float(dDVO, onSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PS_DEG_RAD, dDVO - onSky->d*PS_DEG_RAD); 313 313 } 314 314 } … … 380 380 onSky->r += 2*M_PI; 381 381 382 ok_float(rDVO, onSky->r*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PM_DEG_RAD, rDVO - onSky->r*PM_DEG_RAD);383 ok_float(dDVO, onSky->d*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PM_DEG_RAD, dDVO - onSky->d*PM_DEG_RAD);382 ok_float(rDVO, onSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PS_DEG_RAD, rDVO - onSky->r*PS_DEG_RAD); 383 ok_float(dDVO, onSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PS_DEG_RAD, dDVO - onSky->d*PS_DEG_RAD); 384 384 } 385 385 } … … 454 454 onSky->r += 2*M_PI; 455 455 456 ok_float(rDVO, onSky->r*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PM_DEG_RAD, rDVO - onSky->r*PM_DEG_RAD);457 ok_float(dDVO, onSky->d*P M_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PM_DEG_RAD, dDVO - onSky->d*PM_DEG_RAD);456 ok_float(rDVO, onSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", rDVO, onSky->r*PS_DEG_RAD, rDVO - onSky->r*PS_DEG_RAD); 457 ok_float(dDVO, onSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", dDVO, onSky->d*PS_DEG_RAD, dDVO - onSky->d*PS_DEG_RAD); 458 458 } 459 459 } -
trunk/psModules/test/astrom/tap_pmAstrometryWCS_DVO3.c
r15989 r17036 104 104 bSky->r += 2*M_PI; 105 105 106 ok_float(aSky->r*P M_DEG_RAD, bSky->r*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PM_DEG_RAD, bSky->r*PM_DEG_RAD, aSky->r*PM_DEG_RAD - bSky->r*PM_DEG_RAD);107 ok_float(aSky->d*P M_DEG_RAD, bSky->d*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PM_DEG_RAD, bSky->d*PM_DEG_RAD, aSky->d*PM_DEG_RAD - bSky->d*PM_DEG_RAD);106 ok_float(aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, aSky->r*PS_DEG_RAD - bSky->r*PS_DEG_RAD); 107 ok_float(aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, aSky->d*PS_DEG_RAD - bSky->d*PS_DEG_RAD); 108 108 } 109 109 } … … 196 196 bSky->r += 2*M_PI; 197 197 198 ok_float(aSky->r*P M_DEG_RAD, bSky->r*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PM_DEG_RAD, bSky->r*PM_DEG_RAD, aSky->r*PM_DEG_RAD - bSky->r*PM_DEG_RAD);199 ok_float(aSky->d*P M_DEG_RAD, bSky->d*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PM_DEG_RAD, bSky->d*PM_DEG_RAD, aSky->d*PM_DEG_RAD - bSky->d*PM_DEG_RAD);198 ok_float(aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, aSky->r*PS_DEG_RAD - bSky->r*PS_DEG_RAD); 199 ok_float(aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, aSky->d*PS_DEG_RAD - bSky->d*PS_DEG_RAD); 200 200 } 201 201 } … … 289 289 bSky->r += 2*M_PI; 290 290 291 ok_float(aSky->r*P M_DEG_RAD, bSky->r*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PM_DEG_RAD, bSky->r*PM_DEG_RAD, aSky->r*PM_DEG_RAD - bSky->r*PM_DEG_RAD);292 ok_float(aSky->d*P M_DEG_RAD, bSky->d*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PM_DEG_RAD, bSky->d*PM_DEG_RAD, aSky->d*PM_DEG_RAD - bSky->d*PM_DEG_RAD);291 ok_float(aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, aSky->r*PS_DEG_RAD - bSky->r*PS_DEG_RAD); 292 ok_float(aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, aSky->d*PS_DEG_RAD - bSky->d*PS_DEG_RAD); 293 293 } 294 294 } … … 379 379 bSky->r += 2*M_PI; 380 380 381 ok_float(aSky->r*P M_DEG_RAD, bSky->r*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PM_DEG_RAD, bSky->r*PM_DEG_RAD, aSky->r*PM_DEG_RAD - bSky->r*PM_DEG_RAD);382 ok_float(aSky->d*P M_DEG_RAD, bSky->d*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PM_DEG_RAD, bSky->d*PM_DEG_RAD, aSky->d*PM_DEG_RAD - bSky->d*PM_DEG_RAD);381 ok_float(aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, aSky->r*PS_DEG_RAD - bSky->r*PS_DEG_RAD); 382 ok_float(aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, aSky->d*PS_DEG_RAD - bSky->d*PS_DEG_RAD); 383 383 } 384 384 } … … 471 471 bSky->r += 2*M_PI; 472 472 473 ok_float(aSky->r*P M_DEG_RAD, bSky->r*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PM_DEG_RAD, bSky->r*PM_DEG_RAD, aSky->r*PM_DEG_RAD - bSky->r*PM_DEG_RAD);474 ok_float(aSky->d*P M_DEG_RAD, bSky->d*PM_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PM_DEG_RAD, bSky->d*PM_DEG_RAD, aSky->d*PM_DEG_RAD - bSky->d*PM_DEG_RAD);473 ok_float(aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, aSky->r*PS_DEG_RAD - bSky->r*PS_DEG_RAD); 474 ok_float(aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, "coordinate match: %f vs %f (delta = %f)", aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, aSky->d*PS_DEG_RAD - bSky->d*PS_DEG_RAD); 475 475 } 476 476 } … … 566 566 // XXX we are getting round-off errors as a result of the wcs transformation 567 567 // having terms in units of pix/degree. for now require 10mas on this 568 ok_float_tol(aSky->r*P M_DEG_RAD, bSky->r*PM_DEG_RAD, 0.01/3600.0, "coordinate match: %f vs %f (delta = %f)", aSky->r*PM_DEG_RAD, bSky->r*PM_DEG_RAD, aSky->r*PM_DEG_RAD - bSky->r*PM_DEG_RAD);569 ok_float_tol(aSky->d*P M_DEG_RAD, bSky->d*PM_DEG_RAD, 0.01/3600.0, "coordinate match: %f vs %f (delta = %f)", aSky->d*PM_DEG_RAD, bSky->d*PM_DEG_RAD, aSky->d*PM_DEG_RAD - bSky->d*PM_DEG_RAD);568 ok_float_tol(aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, 0.01/3600.0, "coordinate match: %f vs %f (delta = %f)", aSky->r*PS_DEG_RAD, bSky->r*PS_DEG_RAD, aSky->r*PS_DEG_RAD - bSky->r*PS_DEG_RAD); 569 ok_float_tol(aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, 0.01/3600.0, "coordinate match: %f vs %f (delta = %f)", aSky->d*PS_DEG_RAD, bSky->d*PS_DEG_RAD, aSky->d*PS_DEG_RAD - bSky->d*PS_DEG_RAD); 570 570 } 571 571 } -
trunk/psModules/test/astrom/tap_pmAstrometryWCS_DVO4.c
r15989 r17036 232 232 // fprintf (stderr, "fpa y: %f vs %f : %f\n", dDVO, onFPA->y, dDVO - onFPA->y); 233 233 234 ok_float(onSky->r*P M_DEG_RAD, rDVO, "coordinate match: %f vs %f (delta = %f)", onSky->r*PM_DEG_RAD, rDVO, 3600.0*(onSky->r*PM_DEG_RAD - rDVO));235 ok_float(onSky->d*P M_DEG_RAD, dDVO, "coordinate match: %f vs %f (delta = %f)", onSky->d*PM_DEG_RAD, dDVO, 3600.0*(onSky->d*PM_DEG_RAD - dDVO));234 ok_float(onSky->r*PS_DEG_RAD, rDVO, "coordinate match: %f vs %f (delta = %f)", onSky->r*PS_DEG_RAD, rDVO, 3600.0*(onSky->r*PS_DEG_RAD - rDVO)); 235 ok_float(onSky->d*PS_DEG_RAD, dDVO, "coordinate match: %f vs %f (delta = %f)", onSky->d*PS_DEG_RAD, dDVO, 3600.0*(onSky->d*PS_DEG_RAD - dDVO)); 236 236 } 237 237 }
Note:
See TracChangeset
for help on using the changeset viewer.
