/*
initialize check-image.
*/
checkstruct *initcheck(char *filename, checkenum check_type, int next)
{
catstruct *fitscat;
checkstruct *check;
QCALLOC(check, checkstruct, 1);
strcpy(check->filename, filename);
check->type = check_type;
if (next>1)
/*-- Create a "pure" primary HDU */
{
fitscat = new_cat(1);
init_cat(fitscat);
strcpy(fitscat->filename, filename);
fitsadd(fitscat->tab->headbuf, "NEXTEND ", "Number of extensions");
fitswrite(fitscat->tab->headbuf, "NEXTEND ", &next, H_INT, T_LONG);
if (open_cat(fitscat, WRITE_ONLY) != RETURN_OK)
error(EXIT_FAILURE,"*Error*: cannot open for writing ", filename);
save_tab(fitscat, fitscat->tab);
check->file = fitscat->file;
fitscat->file = NULL;
free_cat(&fitscat, 1);
}
else
if (!(check->file = fopen(check->filename, "wb")))
error(EXIT_FAILURE, "*Error*: Cannot open for output ", check->filename);
return check;
}
/****** check_write ********************************************************
PROTO void check_write(fieldstruct *field, char *checkname,
checkenum checktype, int ext, int next, int cubeflag)
PURPOSE Write a FITS image for check.
INPUT Pointer to the field,
Pointer to the set,
Check-image filename,
Check-image type,
Extension number,
Number of extensions,
Datacube flag.
OUTPUT -.
NOTES Check-image is written as a datacube if cubeflag!=0.
AUTHOR E. Bertin (IAP)
VERSION 21/09/2015
***/
void check_write(fieldstruct *field, setstruct *set, char *checkname,
checkenum checktype, int ext, int next, int cubeflag)
{
psfstruct *psf;
catstruct *cat;
tabstruct *tab;
samplestruct **gridsample,
*sample,*osample;
char filename[MAXCHAR], str[82],
*head, *pstr,*pstr2;
static double dpos[POLY_MAXDIM], *dpost;
double dstep,dstart, dval1,dval2, scalefac, dstepx,dstepy;
float *pix,*pix0, *vig,*vig0, *fpix,*fpixsym,
val;
int i,g,j,l,x,y, w,h,n, npc,nt, nw,nh,np, npos,npos2,
step,step2, ipos, inpos, ival1,ival2, npix;
/* Create the new cat (well it is not a "cat", but simply a FITS table */
if (!ext)
{
cat = new_cat(1);
init_cat(cat);
strcpy(cat->filename, checkname);
if (!(pstr = strrchr(cat->filename, '.')))
pstr = cat->filename+strlen(cat->filename);
strcpy(filename, field->rcatname);
if (!(pstr2 = strrchr(filename, '.')))
pstr2 = filename+strlen(filename);
*pstr2 = '\0';
sprintf(pstr, "_%s.fits", filename);
if (open_cat(cat, WRITE_ONLY) != RETURN_OK)
error(EXIT_FAILURE, "*Error*: cannot open for writing ", cat->filename);
if (next>1)
{
addkeywordto_head(cat->tab, "NEXTEND ", "Number of extensions");
fitswrite(cat->tab->headbuf, "NEXTEND", &next, H_INT, T_LONG);
save_tab(cat, cat->tab);
}
field->ccat[checktype] = cat;
}
else
cat = field->ccat[checktype];
sprintf(str, "chip%02d", ext+1);
psf = field->psf[ext];
tab = new_tab(str);
head = tab->headbuf;
tab->bitpix = BP_FLOAT;
tab->bytepix = t_size[T_FLOAT];
switch(checktype)
{
case PSF_BASIS:
/*---- View basis vectors as small vignets */
if (cubeflag)
{
tab->naxis = 3;
QREALLOC(tab->naxisn, int, tab->naxis);
tab->naxisn[0] = psf->size[0];
tab->naxisn[1] = psf->size[1];
tab->naxisn[2] = psf->nbasis;
npix = tab->naxisn[0]*tab->naxisn[1]*tab->naxisn[2];
tab->tabsize = tab->bytepix*npix;
QCALLOC(pix0, float, tab->tabsize);
tab->bodybuf = (char *)pix0;
pix = pix0;
fpix = psf->basis;
for (i=npix; i--;)
*(pix++) = *(fpix++);
}
else
{
nw = (int)sqrt((double)psf->nbasis);
nw = ((nw-1)/10+1)*10;
nh = (psf->nbasis-1)/nw + 1;
w = psf->size[0];
h = psf->dim>1? psf->size[1] : 1;
tab->naxisn[0] = nw*w;
tab->naxisn[1] = nh*h;
step = (nw-1)*w;
tab->tabsize = tab->bytepix*tab->naxisn[0]*tab->naxisn[1];
QCALLOC(pix0, float, tab->tabsize);
tab->bodybuf = (char *)pix0;
fpix = psf->basis;
for (n=0; n<psf->nbasis; n++)
{
pix = pix0 + ((n%nw) + (n/nw)*nw*h)*w;
for (y=h; y--; pix += step)
for (x=w; x--;)
*(pix++) = *(fpix++);
}
}
break;
case PSF_CHI:
/*---- sqrt(chi2) map in PSF pixel-space
nw = 1;
nh = 1;
w = psf->size[0];
h = psf->size[1];
tab->naxisn[0] = nw*w;
tab->naxisn[1] = nh*h;
tab->tabsize = tab->bytepix*tab->naxisn[0]*tab->naxisn[1];
QCALLOC(pix0, float, tab->tabsize);
tab->bodybuf = (char *)pix0;
pix = pix0;
fpix = psf->resi;
for (i=w*h; i--;)
*(pix++) = *(fpix++);
break;
*/
if (cubeflag)
{
tab->naxis = 3;
QREALLOC(tab->naxisn, int, tab->naxis);
tab->naxisn[0] = set->vigsize[0];
tab->naxisn[1] = set->vigsize[1];
tab->naxisn[2] = set->ngood? set->ngood : 1;
npix = tab->naxisn[0]*tab->naxisn[1];
tab->tabsize = tab->bytepix*npix*tab->naxisn[2];
QCALLOC(pix0, float, tab->tabsize);
tab->bodybuf = (char *)pix0;
pix = pix0;
sample = set->sample;
for (n=set->nsample; n--; sample++)
{
if (sample->badflag)
continue;
fpix = sample->vigchi;
for (i=npix; i--;)
*(pix++) = *(fpix++);
}
}
else
{
/*
initialize check-image (for subsequent writing).
*/
void reinitcheck(picstruct *field, checkstruct *check)
{
wcsstruct *wcs;
char *buf;
int i, ival;
size_t padsize;
double dval;
ULONG *ptri;
PIXTYPE *ptrf;
/* Inherit the field FITS header */
check->fitsheadsize = field->tab->headnblock*FBSIZE;
QMEMCPY(field->tab->headbuf, check->fitshead, char, check->fitsheadsize);
check->y = 0;
/* Neutralize possible scaling factors */
dval = 1.0;fitswrite(check->fitshead, "BSCALE ", &dval, H_FLOAT, T_DOUBLE);
dval = 0.0;fitswrite(check->fitshead, "BZERO ", &dval, H_FLOAT, T_DOUBLE);
ival = 1;fitswrite(check->fitshead, "BITSGN ", &ival, H_INT, T_LONG);
if (field->tab->compress_type != COMPRESS_NONE)
fitswrite(check->fitshead, "IMAGECOD", (void*)"NONE", H_STRING, T_STRING);
fitswrite(check->fitshead, "ORIGIN ", (void*)BANNER, H_STRING, T_STRING);
switch(check->type)
{
case CHECK_IDENTICAL:
case CHECK_BACKGROUND:
case CHECK_FILTERED:
case CHECK_SUBTRACTED:
ival = -32;
fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG);
check->width = field->width;
check->height = field->height;
check->npix = field->npix;
QMALLOC(ptrf, PIXTYPE, check->width);
check->pix = (void *)ptrf;
QFWRITE(check->fitshead,check->fitsheadsize,check->file,check->filename);
free(check->fitshead);
break;
case CHECK_BACKRMS:
case CHECK_SUBOBJECTS:
ival = -32;
fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG);
check->width = field->width;
check->height = field->height;
check->npix = field->npix;
QMALLOC(ptrf, PIXTYPE, check->width);
check->pix = (void *)ptrf;
QFWRITE(check->fitshead,check->fitsheadsize,check->file,check->filename);
free(check->fitshead);
/*---- Allocate memory for replacing the blanked pixels by 0 */
if (!check->line)
QMALLOC(check->line, PIXTYPE, field->width);
break;
case CHECK_OBJECTS:
case CHECK_APERTURES:
case CHECK_SUBPSFPROTOS:
case CHECK_PSFPROTOS:
case CHECK_SUBPCPROTOS:
case CHECK_PCPROTOS:
case CHECK_PCOPROTOS:
case CHECK_SUBPROFILES:
case CHECK_PROFILES:
case CHECK_PATTERNS:
ival = -32;
fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG);
check->width = field->width;
check->height = field->height;
check->npix = field->npix;
check->overlay = 30*field->backsig;
QCALLOC(ptrf, PIXTYPE, check->npix);
check->pix = (void *)ptrf;
QFWRITE(check->fitshead,check->fitsheadsize,check->file,check->filename);
free(check->fitshead);
break;
case CHECK_SEGMENTATION:
ival = 32;
fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG);
check->width = field->width;
check->height = field->height;
check->npix = field->npix;
QCALLOC(ptri, ULONG, check->npix);
check->pix = (void *)ptri;
QFWRITE(check->fitshead,check->fitsheadsize,check->file,check->filename);
free(check->fitshead);
break;
case CHECK_ASSOC:
ival = -32;
fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG);
check->width = field->width;
check->height = field->height;
check->npix = field->npix;
QMALLOC(ptrf, PIXTYPE, check->npix);
check->pix = (void *)ptrf;
/*---- Initialize the pixmap to IEEE NaN */
memset(ptrf, 0xFF, check->npix*sizeof(LONG));
QFWRITE(check->fitshead,check->fitsheadsize,check->file,check->filename);
free(check->fitshead);
break;
case CHECK_MINIBACKGROUND:
case CHECK_MINIBACKRMS:
ival = -32;
fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG);
check->width = field->nbackx;
fitswrite(check->fitshead, "NAXIS1 ", &check->width, H_INT, T_LONG);
check->height = field->nbacky;
fitswrite(check->fitshead, "NAXIS2 ", &check->height, H_INT, T_LONG);
/*---- Scale the WCS information if present */
if ((wcs=field->wcs))
{
dval = wcs->cdelt[0]*field->backw;
fitswrite(check->fitshead, "CDELT1 ", &dval, H_EXPO, T_DOUBLE);
dval = wcs->cdelt[1]*field->backh;
fitswrite(check->fitshead, "CDELT2 ", &dval, H_EXPO, T_DOUBLE);
dval = (wcs->crpix[0]-0.5)/field->backw + 0.5;
fitswrite(check->fitshead, "CRPIX1 ", &dval, H_EXPO, T_DOUBLE);
dval = (wcs->crpix[1]-0.5)/field->backh + 0.5;
fitswrite(check->fitshead, "CRPIX2 ", &dval, H_EXPO, T_DOUBLE);
dval = wcs->cd[0]*field->backw;
fitswrite(check->fitshead, "CD1_1 ", &dval, H_EXPO, T_DOUBLE);
dval = wcs->cd[1]*field->backh;
fitswrite(check->fitshead, "CD1_2 ", &dval, H_EXPO, T_DOUBLE);
dval = wcs->cd[wcs->naxis]*field->backw;
fitswrite(check->fitshead, "CD2_1 ", &dval, H_EXPO, T_DOUBLE);
dval = wcs->cd[wcs->naxis+1]*field->backh;
fitswrite(check->fitshead, "CD2_2 ", &dval, H_EXPO, T_DOUBLE);
}
check->npix = check->width*check->height;
QMALLOC(ptrf, PIXTYPE, check->npix);
check->pix = (void *)ptrf;
if (check->type==CHECK_MINIBACKRMS)
memcpy(check->pix, field->sigma, check->npix*sizeof(float));
else
memcpy(check->pix, field->back, check->npix*sizeof(float));
QFWRITE(check->fitshead,check->fitsheadsize,check->file,check->filename);
free(check->fitshead);
if (bswapflag)
swapbytes(check->pix, sizeof(float), (int)check->npix);
QFWRITE(check->pix,check->npix*sizeof(float),check->file,
check->filename);
/*---- Put the buffer back to its original state */
if (bswapflag)
swapbytes(check->pix, sizeof(float), (int)check->npix);
free(check->pix);
QCALLOC(buf, char, FBSIZE);
padsize = (FBSIZE -((check->npix*sizeof(PIXTYPE))%FBSIZE))% FBSIZE;
if (padsize)
QFWRITE (buf, padsize, check->file, check->filename);
free(buf);
break;
case CHECK_MAPSOM:
ival = -32;
fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG);
check->width = field->width;
check->height = field->height;
check->npix = field->npix;
QMALLOC(ptrf, PIXTYPE, check->npix);
check->pix = (void *)ptrf;
for (i=check->npix; i--;)
*(ptrf++) = -10.0;
QFWRITE(check->fitshead,check->fitsheadsize,check->file,check->filename);
free(check->fitshead);
break;
default:
error(EXIT_FAILURE, "*Internal Error* in ", "reinitcheck()!");
}
return;
}
