int linperr(const struct linprm *lin, const char *prefix)
{
if (lin == 0x0) return LINERR_NULL_POINTER;
if (lin->err && wcserr_prt(lin->err, prefix) == 0) {
if (lin->dispre) wcserr_prt(lin->dispre->err, prefix);
if (lin->disseq) wcserr_prt(lin->disseq->err, prefix);
}
return 0;
}
int main()
{
const char ctypeS1[] = "VOPT-F2W";
const double crvalS1 = 1e6;
const double cdeltS1 = 1e3;
const double restfrq = 0.0;
const double restwav = 0.0;
int status;
char ctypeS2[9];
double cdeltS2, crvalS2;
struct wcserr *err;
strcpy(ctypeS2, "VRAD-???");
wcserr_enable(1);
if (spctrne(ctypeS1, crvalS1, cdeltS1, restfrq, restwav,
ctypeS2, &crvalS2, &cdeltS2, &err)) {
wcserr_prt(err, 0x0);
return err->status;
}
printf("'%8s' %12.6e %12.6e\n'%8s' %12.6e %12.6e\n",
ctypeS1, crvalS1, cdeltS1, ctypeS2, crvalS2, cdeltS2);
return 0;
}
int spcperr(const struct spcprm *spc, const char *prefix)
{
if (spc == 0x0) return SPCERR_NULL_POINTER;
if (spc->err) {
wcserr_prt(spc->err, prefix);
}
return 0;
}
int tabperr(const struct tabprm *tab, const char *prefix)
{
if (tab == 0x0) return TABERR_NULL_POINTER;
if (tab->err) {
wcserr_prt(tab->err, prefix);
}
return 0;
}
int wcserr_prt_(const int *err, const char prefix[72])
{
char prefix_[72];
strncpy(prefix_, prefix, 72);
prefix_[71] = '\0';
/* This may or may not force the Fortran I/O buffers to be flushed. If
* not, try CALL FLUSH(6) before calling WCSERR_PRT in the Fortran code. */
fflush(NULL);
return wcserr_prt((const struct wcserr *)err, prefix_);
}
int prjperr_(int *prj, const char prefix[72])
{
char prefix_[72];
strncpy(prefix_, prefix, 72);
wcsutil_null_fill(72, prefix_);
/* This may or may not force the Fortran I/O buffers to be flushed. */
/* If not, try CALL FLUSH(6) before calling PRJPERR in the Fortran code. */
fflush(NULL);
return wcserr_prt(((struct prjprm *)prj)->err, prefix_);
}
void
wcserr_fix_to_python_exc(const struct wcserr *err) {
PyObject *exc;
if (err == NULL) {
PyErr_SetString(PyExc_RuntimeError, "NULL error object in wcslib");
} else {
if (err->status > 0 && err->status <= FIXERR_NO_REF_PIX_VAL) {
exc = PyExc_ValueError;
} else {
exc = PyExc_RuntimeError;
}
/* This is technically not thread-safe -- make sure we have the GIL */
wcsprintf_set(NULL);
wcserr_prt(err, "");
PyErr_SetString(exc, wcsprintf_buf());
}
}
void
wcserr_to_python_exc(const struct wcserr *err) {
PyObject *exc;
if (err == NULL) {
PyErr_SetString(PyExc_RuntimeError, "NULL error object in wcslib");
} else {
if (err->status > 0 && err->status <= WCS_ERRMSG_MAX) {
exc = *wcs_errexc[err->status];
} else {
exc = PyExc_RuntimeError;
}
/* This is technically not thread-safe -- make sure we have the GIL */
wcsprintf_set(NULL);
wcserr_prt(err, "");
PyErr_SetString(exc, wcsprintf_buf());
}
}
int main()
{
char ptype, xtype;
int restreq;
double crvalX, dXdS;
struct wcserr *err;
wcserr_enable(1);
spcspxe("WAVE-F2W", 0.0, 1.420e9, 0.0, &ptype, &xtype, &restreq, &crvalX,
&dXdS, &(err));
printf(" P-type: %c\n", ptype);
printf(" X-type: %c\n", xtype);
printf("restreq: %d\n", restreq);
printf(" crvalX: %f\n", crvalX);
printf(" dXdS: %f\n", dXdS);
wcserr_prt(err, '\0');
return 0;
}
int linprt(const struct linprm *lin)
{
int i, j, k;
if (lin == 0x0) return LINERR_NULL_POINTER;
if (lin->flag != LINSET) {
wcsprintf("The linprm struct is UNINITIALIZED.\n");
return 0;
}
wcsprintf(" flag: %d\n", lin->flag);
/* Parameters supplied. */
wcsprintf(" naxis: %d\n", lin->naxis);
WCSPRINTF_PTR(" crpix: ", lin->crpix, "\n");
wcsprintf(" ");
for (j = 0; j < lin->naxis; j++) {
wcsprintf(" %#- 11.5g", lin->crpix[j]);
}
wcsprintf("\n");
k = 0;
WCSPRINTF_PTR(" pc: ", lin->pc, "\n");
for (i = 0; i < lin->naxis; i++) {
wcsprintf(" pc[%d][]:", i);
for (j = 0; j < lin->naxis; j++) {
wcsprintf(" %#- 11.5g", lin->pc[k++]);
}
wcsprintf("\n");
}
WCSPRINTF_PTR(" cdelt: ", lin->cdelt, "\n");
wcsprintf(" ");
for (i = 0; i < lin->naxis; i++) {
wcsprintf(" %#- 11.5g", lin->cdelt[i]);
}
wcsprintf("\n");
WCSPRINTF_PTR(" dispre: ", lin->dispre, "");
if (lin->dispre != 0x0) wcsprintf(" (see below)");
wcsprintf("\n");
WCSPRINTF_PTR(" disseq: ", lin->disseq, "");
if (lin->disseq != 0x0) wcsprintf(" (see below)");
wcsprintf("\n");
/* Derived values. */
if (lin->piximg == 0x0) {
wcsprintf(" piximg: (nil)\n");
} else {
k = 0;
for (i = 0; i < lin->naxis; i++) {
wcsprintf("piximg[%d][]:", i);
for (j = 0; j < lin->naxis; j++) {
wcsprintf(" %#- 11.5g", lin->piximg[k++]);
}
wcsprintf("\n");
}
}
if (lin->imgpix == 0x0) {
wcsprintf(" imgpix: (nil)\n");
} else {
k = 0;
for (i = 0; i < lin->naxis; i++) {
wcsprintf("imgpix[%d][]:", i);
for (j = 0; j < lin->naxis; j++) {
wcsprintf(" %#- 11.5g", lin->imgpix[k++]);
}
wcsprintf("\n");
}
}
wcsprintf(" i_naxis: %d\n", lin->i_naxis);
wcsprintf(" unity: %d\n", lin->unity);
wcsprintf(" affine: %d\n", lin->affine);
wcsprintf(" simple: %d\n", lin->simple);
/* Error handling. */
WCSPRINTF_PTR(" err: ", lin->err, "\n");
if (lin->err) {
wcserr_prt(lin->err, " ");
}
/* Work arrays. */
WCSPRINTF_PTR(" tmpcrd: ", lin->tmpcrd, "\n");
/* Memory management. */
wcsprintf(" m_flag: %d\n", lin->m_flag);
wcsprintf(" m_naxis: %d\n", lin->m_naxis);
WCSPRINTF_PTR(" m_crpix: ", lin->m_crpix, "");
if (lin->m_crpix == lin->crpix) wcsprintf(" (= crpix)");
wcsprintf("\n");
WCSPRINTF_PTR(" m_pc: ", lin->m_pc, "");
if (lin->m_pc == lin->pc) wcsprintf(" (= pc)");
wcsprintf("\n");
WCSPRINTF_PTR(" m_cdelt: ", lin->m_cdelt, "");
if (lin->m_cdelt == lin->cdelt) wcsprintf(" (= cdelt)");
wcsprintf("\n");
WCSPRINTF_PTR(" m_dispre: ", lin->m_dispre, "");
if (lin->dispre && lin->m_dispre == lin->dispre) wcsprintf(" (= dispre)");
wcsprintf("\n");
WCSPRINTF_PTR(" m_disseq: ", lin->m_disseq, "");
if (lin->disseq && lin->m_disseq == lin->disseq) wcsprintf(" (= disseq)");
wcsprintf("\n");
/* Distortion parameters (from above). */
if (lin->dispre) {
wcsprintf("\n");
wcsprintf("dispre.*\n");
disprt(lin->dispre);
}
if (lin->disseq) {
wcsprintf("\n");
wcsprintf("disseq.*\n");
disprt(lin->disseq);
}
return 0;
}
int main()
{
char ctypeS[9];
int i, stat[NWCSFIX], status;
struct wcsprm wcs;
struct wcserr info[NWCSFIX];
wcsprintf("Testing WCSLIB translator for non-standard usage (twcsfix.c)\n"
"------------------------------------------------------------\n\n");
wcs.flag = -1;
parser(&wcs);
/* Note: to print the unfixed wcsprm struct using wcsprt() the struct
would first have to be initialized by wcsset(). However, if the struct
contains non-standard keyvalues then wcsset() will either fix them
itself or else fail (e.g. for non-standard units). Thus, in general,
wcsprt() cannot be used to print the unmodified struct. */
/* Fix non-standard WCS keyvalues. */
wcserr_enable(1);
status = wcsfixi(7, 0, &wcs, stat, info);
wcsprintf("wcsfix status returns: (");
for (i = 0; i < NWCSFIX; i++) {
wcsprintf(i ? ", %d" : "%d", stat[i]);
}
wcsprintf(")\n");
for (i = 0; i < NWCSFIX; i++) {
if (info[i].status < -1 || 0 < info[i].status) {
wcsprintf("\n");
wcserr_prt(info+i, 0x0);
}
}
if (status) {
wcsprintf("\nwcsfix error %d", status);
return 1;
}
/* Extract information from the FITS header. */
if (wcsset(&wcs)) {
wcsprintf("\n");
wcserr_prt(wcs.err, 0x0);
}
wcsprintf("\n");
wcsprt(&wcs);
wcsprintf("\n------------------------------------"
"------------------------------------\n");
/* Should now have a 'VOPT-F2W' axis, translate it to frequency. */
strcpy(ctypeS, "FREQ-???");
i = -1;
if (wcssptr(&wcs, &i, ctypeS)) {
wcserr_prt(wcs.err, 0x0);
return 1;
}
if (wcsset(&wcs)) {
wcserr_prt(wcs.err, 0x0);
return 1;
}
wcsprt(&wcs);
wcsfree(&wcs);
return 0;
}
int spcprt(const struct spcprm *spc)
{
char hext[32];
int i;
if (spc == 0x0) return SPCERR_NULL_POINTER;
wcsprintf(" flag: %d\n", spc->flag);
wcsprintf(" type: \"%s\"\n", spc->type);
wcsprintf(" code: \"%s\"\n", spc->code);
if (undefined(spc->crval)) {
wcsprintf(" crval: UNDEFINED\n");
} else {
wcsprintf(" crval: %#- 11.5g\n", spc->crval);
}
wcsprintf(" restfrq: %f\n", spc->restfrq);
wcsprintf(" restwav: %f\n", spc->restwav);
wcsprintf(" pv:");
if (spc->isGrism) {
for (i = 0; i < 5; i++) {
if (undefined(spc->pv[i])) {
wcsprintf(" UNDEFINED ");
} else {
wcsprintf(" %#- 11.5g", spc->pv[i]);
}
}
wcsprintf("\n ");
for (i = 5; i < 7; i++) {
if (undefined(spc->pv[i])) {
wcsprintf(" UNDEFINED ");
} else {
wcsprintf(" %#- 11.5g", spc->pv[i]);
}
}
wcsprintf("\n");
} else {
wcsprintf(" (not used)\n");
}
wcsprintf(" w:");
for (i = 0; i < 3; i++) {
wcsprintf(" %#- 11.5g", spc->w[i]);
}
if (spc->isGrism) {
wcsprintf("\n ");
for (i = 3; i < 6; i++) {
wcsprintf(" %#- 11.5g", spc->w[i]);
}
wcsprintf("\n");
} else {
wcsprintf(" (remainder unused)\n");
}
wcsprintf(" isGrism: %d\n", spc->isGrism);
WCSPRINTF_PTR(" err: ", spc->err, "\n");
if (spc->err) {
wcserr_prt(spc->err, " ");
}
wcsprintf(" spxX2P: %s\n",
wcsutil_fptr2str((int (*)(void))spc->spxX2P, hext));
wcsprintf(" spxP2S: %s\n",
wcsutil_fptr2str((int (*)(void))spc->spxP2S, hext));
wcsprintf(" spxS2P: %s\n",
wcsutil_fptr2str((int (*)(void))spc->spxS2P, hext));
wcsprintf(" spxP2X: %s\n",
wcsutil_fptr2str((int (*)(void))spc->spxP2X, hext));
return 0;
}
int main(int argc, char *argv[])
{
char *infile = "TPV7.fits";
char keyrec[81], header[288001], *disfn;
int dopoly, gotend, iblock, ikeyrec, inc, itest, j, k, n, naxis[2], naxis1,
naxis2, nClosure, nFail, nkeyrec, nsamp, nreject, nTest, nwcs, p1, p2,
status;
clock_t t0, tp2x, tx2p;
double absmax, dp1, dp2, *img, *img1, *img2, pix[8], pixblc[2], pixsamp[2],
pixtrc[2], px, *px0, *px1, pxi[8], rel, resid, relmax;
double *avgdis, *avgtot, *maxdis, *maxtot, *rmsdis, *rmstot, stats[9];
FILE *fptr;
struct linprm affine, *lin, *linpol, *lintpv;
struct wcsprm *wcs, wcspol;
wcserr_enable(1);
wcsprintf_set(stdout);
/* Set line buffering in case stdout is redirected to a file, otherwise
* stdout and stderr messages will be jumbled (stderr is unbuffered). */
setvbuf(stdout, NULL, _IOLBF, 0);
wcsprintf("Testing closure of WCSLIB distortion routines (tdis1.c)\n"
"-------------------------------------------------------\n");
/* List status return messages. */
wcsprintf("\nList of dis status return values:\n");
for (status = 1; status <= 5; status++) {
wcsprintf("%4d: %s.\n", status, dis_errmsg[status]);
}
wcsprintf("\n");
/* Optional file name specified? */
if (1 < argc) {
infile = argv[1];
}
/* Read in the FITS header, excluding COMMENT and HISTORY keyrecords. */
if ((fptr = fopen(infile, "r")) == 0) {
wcsprintf("ERROR opening %s\n", infile);
return 1;
}
memset(naxis, 0, 2*sizeof(int));
k = 0;
nkeyrec = 0;
gotend = 0;
for (iblock = 0; iblock < 100; iblock++) {
for (ikeyrec = 0; ikeyrec < 36; ikeyrec++) {
if (fgets(keyrec, 81, fptr) == 0) {
break;
}
if (strncmp(keyrec, " ", 8) == 0) continue;
if (strncmp(keyrec, "COMMENT ", 8) == 0) continue;
if (strncmp(keyrec, "HISTORY ", 8) == 0) continue;
if (strncmp(keyrec, "NAXIS", 5) == 0) {
if (keyrec[5] == ' ') {
sscanf(keyrec+10, "%d", &n);
if (n != 2) {
wcsprintf("ERROR, expecting a 2D image.\n");
return 1;
}
continue;
}
sscanf(keyrec+5, "%d = %d", &j, &n);
naxis[j-1] = n;
continue;
}
strncpy(header+k, keyrec, 80);
k += 80;
nkeyrec++;
if (strncmp(keyrec, "END ", 10) == 0) {
/* An END keyrecord was read, but read the rest of the block. */
gotend = 1;
}
}
if (gotend) break;
}
fclose(fptr);
/* Parse the header. */
if ((wcspih(header, nkeyrec, WCSHDR_none, 2, &nreject, &nwcs, &wcs))) {
wcsperr(wcs, 0x0);
return 1;
}
/* Is it TPV? */
dopoly = 0;
if (strcmp(wcs->ctype[0], "RA---TPV") == 0) {
/* Copy it and translate to Polynomial for later use. */
wcspol.flag = -1;
if (wcscopy(1, wcs, &wcspol)) {
wcsperr(wcs, 0x0);
return 1;
}
/* Translate TPV to Polynomial. */
tpv2poly(&wcspol);
wcspol.flag = -1;
if (wcsset(&wcspol)) {
wcsperr(&wcspol, 0x0);
return 1;
}
dopoly = 1;
}
/* wcsset() translates the TPV "projection" into a sequent distortion. */
if (wcsset(wcs)) {
wcsperr(wcs, 0x0);
return 1;
}
/* Henceforth, we will work with linprm. */
lin = &(wcs->lin);
/* Get statistics on the distortion in the inner quarter of the image. */
maxdis = stats;
maxtot = maxdis + 2;
avgdis = maxtot + 1;
avgtot = avgdis + 2;
rmsdis = avgtot + 1;
rmstot = rmsdis + 2;
pixblc[0] = 0.25 * naxis[0];
pixblc[1] = 0.25 * naxis[1];
pixtrc[0] = 0.75 * naxis[0];
pixtrc[1] = 0.75 * naxis[1];
pixsamp[0] = (pixtrc[0] - pixblc[0])/512.0;
pixsamp[1] = (pixtrc[1] - pixblc[1])/512.0;
if (pixsamp[0] < 1.0) pixsamp[0] = 1.0;
if (pixsamp[1] < 1.0) pixsamp[1] = 1.0;
if (linwarp(lin, pixblc, pixtrc, pixsamp, &nsamp,
maxdis, maxtot, avgdis, avgtot, rmsdis, rmstot)) {
linperr(lin, 0x0);
return 1;
}
for (k = 0; k < 9; k++) {
if (fabs(stats[k]) < 0.0005) stats[k] = 0.0;
}
wcsprintf("linwarp() statistics computed over %d sample points:\n"
" Max distortion, axis 1: %8.3f pixels\n"
" axis 2: %8.3f pixels\n"
" total: %8.3f pixels\n"
" Mean distortion, axis 1: %8.3f pixels\n"
" axis 2: %8.3f pixels\n"
" total: %8.3f pixels\n"
" RMS distortion, axis 1: %8.3f pixels\n"
" axis 2: %8.3f pixels\n"
" total: %8.3f pixels\n",
nsamp, maxdis[0], maxdis[1], *maxtot,
avgdis[0], avgdis[1], *avgtot,
rmsdis[0], rmsdis[1], *rmstot);
if (lin->disseq) {
/* Exercise diswarp() as well. */
wcsprintf("\n");
/* Define a rectangle in intermediate pixel coordinates that just */
/* encompasses the inner quarter of the image. For this we need */
/* to switch off CDELTia scaling and all distortions. */
affine.flag = -1;
if ((status = lincpy(1, lin, &affine))) {
linperr(lin, 0x0);
return 1;
}
affine.cdelt[0] = 1.0;
affine.cdelt[1] = 1.0;
if ((status = (lindis(1, &affine, 0x0) ||
lindis(2, &affine, 0x0) ||
linset(&affine)))) {
linperr(&affine, 0x0);
return 1;
}
pix[0] = pixblc[0];
pix[1] = pixblc[1];
pix[2] = pixtrc[0];
pix[3] = pixblc[1];
pix[4] = pixtrc[0];
pix[5] = pixtrc[1];
pix[6] = pixblc[0];
pix[7] = pixtrc[1];
if (linp2x(&affine, 4, 2, pix, pxi)) {
linperr(&affine, 0x0);
return 1;
}
linfree(&affine);
pixblc[0] = pxi[0];
pixblc[1] = pxi[1];
pixtrc[0] = pxi[0];
pixtrc[1] = pxi[1];
k = 2;
for (j = 1; j < 4; j++) {
if (pixblc[0] > pxi[k]) pixblc[0] = pxi[k];
if (pixtrc[0] < pxi[k]) pixtrc[0] = pxi[k];
k++;
if (pixblc[1] > pxi[k]) pixblc[1] = pxi[k];
if (pixtrc[1] < pxi[k]) pixtrc[1] = pxi[k];
k++;
}
pixsamp[0] = (pixtrc[0] - pixblc[0])/512.0;
pixsamp[1] = (pixtrc[1] - pixblc[1])/512.0;
if (diswarp(lin->disseq, pixblc, pixtrc, pixsamp, &nsamp,
maxdis, maxtot, avgdis, avgtot, rmsdis, rmstot)) {
wcserr_prt(lin->disseq->err, 0x0);
return 1;
}
for (k = 0; k < 9; k++) {
if (fabs(stats[k]) < 0.0005) stats[k] = 0.0;
}
wcsprintf("diswarp() statistics computed over %d sample points:\n"
" Max distortion, axis 1: %8.3f units\n"
" axis 2: %8.3f units\n"
" total: %8.3f units\n"
" Mean distortion, axis 1: %8.3f units\n"
" axis 2: %8.3f units\n"
" total: %8.3f units\n"
" RMS distortion, axis 1: %8.3f units\n"
" axis 2: %8.3f units\n"
" total: %8.3f units\n",
nsamp, maxdis[0], maxdis[1], *maxtot,
avgdis[0], avgdis[1], *avgtot,
rmsdis[0], rmsdis[1], *rmstot);
}
/* The image size determines the test domain. */
if ((naxis1 = naxis[0]) == 0) {
naxis1 = 2*wcs->crpix[0] + 1;
}
if ((naxis2 = naxis[1]) == 0) {
naxis2 = 2*wcs->crpix[1] + 1;
}
/* Limit the number of tests. */
inc = 1;
while ((naxis1/inc)*(naxis2/inc) > 800000) {
inc *= 2;
}
n = naxis1 / inc;
px0 = calloc(4*(2*n), sizeof(double));
px1 = px0 + 2*n ;
img = px1 + 2*n ;
img1 = img;
img2 = img + 2*n;
for (itest = 0; itest < 2; itest++) {
if (itest) {
if (!dopoly) break;
lin = &(wcspol.lin);
}
if (lin->dispre) {
disfn = lin->dispre->dtype[0];
} else if (lin->disseq) {
disfn = lin->disseq->dtype[0];
}
wcsprintf("\n");
/* Now the closure test. */
tp2x = 0;
tx2p = 0;
nTest = 0;
nFail = 0;
nClosure = 0;
absmax = 0.0;
relmax = 0.0;
for (p2 = 1; p2 <= naxis2; p2 += inc) {
k = 0;
for (p1 = 1; p1 <= naxis1; p1 += inc) {
px0[k++] = (double)p1;
px0[k++] = (double)p2;
}
t0 = clock();
if (linp2x(lin, n, 2, px0, img)) {
linperr(lin, 0x0);
nFail = 1;
break;
}
tp2x += clock() - t0;
t0 = clock();
if (linx2p(lin, n, 2, img, px1)) {
linperr(lin, 0x0);
nFail = 1;
break;
}
tx2p += clock() - t0;
/* Check closure. */
k = 0;
for (k = 0; k < 2*n ; k += 2) {
dp1 = fabs(px1[k] - px0[k]);
dp2 = fabs(px1[k+1] - px0[k+1]);
resid = (dp1 > dp2) ? dp1 : dp2;
if (resid > absmax) absmax = resid;
if (resid > ATOL) {
nClosure++;
wcsprintf("Absolute closure error:\n");
wcsprintf(" pix: %18.12f %18.12f\n", px0[k], px0[k+1]);
wcsprintf(" -> img: %18.12f %18.12f\n", img[k], img[k+1]);
wcsprintf(" -> pix: %18.12f %18.12f\n", px1[k], px1[k+1]);
wcsprintf("\n");
continue;
}
resid = 0.0;
if ((px = fabs(px0[k])) > 1.0) resid = dp1/px;
if ((px = fabs(px0[k+1])) > 1.0) {
if ((rel = dp2/px) > resid) resid = rel;
}
if (resid > relmax) relmax = resid;
if (resid > FTOL) {
nClosure++;
wcsprintf("Relative closure error:\n");
wcsprintf(" pix: %18.12f %18.12f\n", px0[k], px0[k+1]);
wcsprintf(" -> img: %18.12f %18.12f\n", img[k], img[k+1]);
wcsprintf(" -> pix: %18.12f %18.12f\n", px1[k], px1[k+1]);
wcsprintf("\n");
}
}
nTest += n;
}
if (nFail) {
wcsprintf("\nFAIL: The %s test failed to complete.\n", disfn);
} else {
wcsprintf("linp2x/linx2p with %s distortions:\n"
" Completed %d closure tests.\n"
" Maximum absolute closure residual = %.2e pixel.\n"
" Maximum relative closure residual = %.2e.\n", disfn,
nTest, absmax, relmax);
wcsprintf("\n");
wcsprintf(" linp2x time (ns): %6.0f\n linx2p time (ns): %6.0f\n\n",
1.0e9*((double)tp2x/CLOCKS_PER_SEC)/nTest,
1.0e9*((double)tx2p/CLOCKS_PER_SEC)/nTest);
if (nClosure) {
wcsprintf("FAIL: %d closure residuals exceed reporting tolerance.\n",
nClosure);
} else {
wcsprintf("PASS: All %s closure residuals are within reporting "
"tolerance.\n", disfn);
}
}
}
/* Compare TPV with Polynomial over the test domain. */
if (dopoly) {
wcsprintf("\n");
nTest = 0;
nFail = 0;
absmax = 0.0;
lintpv = &(wcs->lin);
linpol = &(wcspol.lin);
for (p2 = 1; p2 <= naxis2; p2 += inc) {
k = 0;
for (p1 = 1; p1 <= naxis1; p1 += inc) {
px0[k++] = (double)p1;
px0[k++] = (double)p2;
}
if (linp2x(lintpv, n, 2, px0, img1)) {
linperr(lintpv, 0x0);
break;
}
if (linp2x(linpol, n, 2, px0, img2)) {
linperr(linpol, 0x0);
break;
}
/* Check agreement. */
k = 0;
for (k = 0; k < 2*n ; k += 2) {
dp1 = fabs(img2[k] - img1[k]);
dp2 = fabs(img2[k+1] - img1[k+1]);
resid = (dp1 > dp2) ? dp1 : dp2;
if (resid > absmax) absmax = resid;
if (resid > ATOL) {
nFail++;
wcsprintf("TPV - Polynomial disagreement:\n");
wcsprintf(" pix: %18.12f %18.12f\n", px0[k], px0[k+1]);
wcsprintf(" -> TPV: %18.12f %18.12f\n", img1[k], img1[k+1]);
wcsprintf(" -> Pol: %18.12f %18.12f\n", img2[k], img2[k+1]);
wcsprintf("\n");
continue;
}
}
nTest += n;
}
wcsprintf("linp2x, TPV vs Polynomial distortions:\n"
" Completed %d comparisons.\n"
" Maximum absolute disagreement = %.2e units.\n", nTest, absmax);
wcsprintf("\n");
if (nFail) {
wcsprintf("FAIL: %d comparisons exceed reporting tolerance.\n", nFail);
} else {
wcsprintf("PASS: All TPV vs Polynomial comparisons are within "
"reporting tolerance.\n");
}
}
free(px0);
wcsvfree(&nwcs, &wcs);
wcsfree(&wcspol);
return nFail || nClosure;
}
int tabprt(const struct tabprm *tab)
{
char *cp, text[128];
int j, k, m, n, nd;
double *dp;
if (tab == 0x0) return TABERR_NULL_POINTER;
if (tab->flag != TABSET) {
wcsprintf("The tabprm struct is UNINITIALIZED.\n");
return 0;
}
wcsprintf(" flag: %d\n", tab->flag);
wcsprintf(" M: %d\n", tab->M);
/* Array dimensions. */
WCSPRINTF_PTR(" K: ", tab->K, "\n");
wcsprintf(" ");
for (m = 0; m < tab->M; m++) {
wcsprintf("%6d", tab->K[m]);
}
wcsprintf("\n");
/* Map vector. */
WCSPRINTF_PTR(" map: ", tab->map, "\n");
wcsprintf(" ");
for (m = 0; m < tab->M; m++) {
wcsprintf("%6d", tab->map[m]);
}
wcsprintf("\n");
/* Reference index value. */
WCSPRINTF_PTR(" crval: ", tab->crval, "\n");
wcsprintf(" ");
for (m = 0; m < tab->M; m++) {
wcsprintf(" %- 11.5g", tab->crval[m]);
}
wcsprintf("\n");
/* Index vectors. */
WCSPRINTF_PTR(" index: ", tab->index, "\n");
for (m = 0; m < tab->M; m++) {
wcsprintf(" index[%d]: ", m);
WCSPRINTF_PTR("", tab->index[m], "");
if (tab->index[m]) {
for (k = 0; k < tab->K[m]; k++) {
if (k%5 == 0) {
wcsprintf("\n ");
}
wcsprintf(" %- 11.5g", tab->index[m][k]);
}
wcsprintf("\n");
}
}
/* Coordinate array. */
WCSPRINTF_PTR(" coord: ", tab->coord, "\n");
dp = tab->coord;
for (n = 0; n < tab->nc; n++) {
/* Array index. */
j = n;
cp = text;
for (m = 0; m < tab->M; m++) {
nd = (tab->K[m] < 10) ? 1 : 2;
sprintf(cp, ",%*d", nd, j % tab->K[m] + 1);
j /= tab->K[m];
cp += strlen(cp);
}
wcsprintf(" (*%s)", text);
for (m = 0; m < tab->M; m++) {
wcsprintf(" %- 11.5g", *(dp++));
}
wcsprintf("\n");
}
wcsprintf(" nc: %d\n", tab->nc);
WCSPRINTF_PTR(" sense: ", tab->sense, "\n");
if (tab->sense) {
wcsprintf(" ");
for (m = 0; m < tab->M; m++) {
wcsprintf("%6d", tab->sense[m]);
}
wcsprintf("\n");
}
WCSPRINTF_PTR(" p0: ", tab->p0, "\n");
if (tab->p0) {
wcsprintf(" ");
for (m = 0; m < tab->M; m++) {
wcsprintf("%6d", tab->p0[m]);
}
wcsprintf("\n");
}
WCSPRINTF_PTR(" delta: ", tab->delta, "\n");
if (tab->delta) {
wcsprintf(" ");
for (m = 0; m < tab->M; m++) {
wcsprintf(" %- 11.5g", tab->delta[m]);
}
wcsprintf("\n");
}
WCSPRINTF_PTR(" extrema: ", tab->extrema, "\n");
dp = tab->extrema;
for (n = 0; n < tab->nc/tab->K[0]; n++) {
/* Array index. */
j = n;
cp = text;
*cp = '\0';
for (m = 1; m < tab->M; m++) {
nd = (tab->K[m] < 10) ? 1 : 2;
sprintf(cp, ",%*d", nd, j % tab->K[m] + 1);
j /= tab->K[m];
cp += strlen(cp);
}
wcsprintf(" (*,*%s)", text);
for (m = 0; m < 2*tab->M; m++) {
if (m == tab->M) wcsprintf("-> ");
wcsprintf(" %- 11.5g", *(dp++));
}
wcsprintf("\n");
}
WCSPRINTF_PTR(" err: ", tab->err, "\n");
if (tab->err) {
wcserr_prt(tab->err, " ");
}
/* Memory management. */
wcsprintf(" m_flag: %d\n", tab->m_flag);
wcsprintf(" m_M: %d\n", tab->m_M);
wcsprintf(" m_N: %d\n", tab->m_N);
WCSPRINTF_PTR(" m_K: ", tab->m_K, "");
if (tab->m_K == tab->K) wcsprintf(" (= K)");
wcsprintf("\n");
WCSPRINTF_PTR(" m_map: ", tab->m_map, "");
if (tab->m_map == tab->map) wcsprintf(" (= map)");
wcsprintf("\n");
WCSPRINTF_PTR(" m_crval: ", tab->m_crval, "");
if (tab->m_crval == tab->crval) wcsprintf(" (= crval)");
wcsprintf("\n");
WCSPRINTF_PTR(" m_index: ", tab->m_index, "");
if (tab->m_index == tab->index) wcsprintf(" (= index)");
wcsprintf("\n");
for (m = 0; m < tab->M; m++) {
wcsprintf(" m_indxs[%d]: ", m);
WCSPRINTF_PTR("", tab->m_indxs[m], "");
if (tab->m_indxs[m] == tab->index[m]) wcsprintf(" (= index[%d])", m);
wcsprintf("\n");
}
WCSPRINTF_PTR(" m_coord: ", tab->m_coord, "");
if (tab->m_coord == tab->coord) wcsprintf(" (= coord)");
wcsprintf("\n");
return 0;
}