Changeset 5754 for trunk/psphot/src/psphotOutput.c

Timestamp:

Dec 8, 2005, 4:39:17 PM (21 years ago)

Author:

eugene

Message:

updated to use psFitsAlloc

File:

• trunk/psphot/src/psphotOutput.c (modified) (5 diffs)

trunk/psphot/src/psphotOutput.c

@@ -199 +199 @@
 
     // create file, write-out header
-    unlink (filename);
-    psFits *fits = psFitsAlloc (filename);
+    psFits *fits = psFitsOpen (filename, "w");
 
     // set NAXIS to 0 : CFITSIO requires isolated header to have NAXIS = 0
@@ -209 +208 @@
     // psMetadataAdd (imdata->header, PS_LIST_HEAD, "NAXIS", PS_DATA_S32 | PS_META_REPLACE, "", 0);
     psFitsWriteHeader (imdata->header, fits);
-    psFree (fits);
+    psFitsClose (fits);
 
     // re-open, add data to end of file
@@ -336 +335 @@
     psMetadataAdd (theader, PS_LIST_HEAD, "EXTNAME", PS_DATA_STRING, "extension name", "SMPFILE");
 
-    unlink (filename);
-    psFits *fits = psFitsAlloc (filename);
+    psFits *fits = psFitsOpen (filename, "w");
     psFitsWriteHeader (imdata->header, fits);
     psFitsWriteTable (fits, theader, table);
-    psFree (fits);
+    psFitsClose (fits);
 
     return true;
@@ -542 +540 @@
 }
 
+// write the moments to an output file
+bool pmMomentsWriteText (psArray *sources, char *filename)
+{
+
+    int i;
+    FILE *f;
+    pmSource *source;
+
+    f = fopen (filename, "w");
+    if (f == NULL) {
+        psLogMsg ("pmMomentsWriteText", 3, "can't open output file for moments%s\n", filename);
+        return false;
+    }
+
+    for (i = 0; i < sources->n; i++) {
+        source = (pmSource *) sources->data[i];
+        if (source->moments == NULL)
+            continue;
+        fprintf (f, "%5d %5d  %7.1f  %7.1f %7.1f  %6.3f %6.3f  %8.1f %7.1f %7.1f %7.1f  %4d %2d\n",
+                 source->peak->x, source->peak->y, source->peak->counts,
+                 source->moments->x, source->moments->y,
+                 source->moments->Sx, source->moments->Sy,
+                 source->moments->Sum, source->moments->Peak,
+                 source->moments->Sky, source->moments->SN,
+                 source->moments->nPixels, source->type);
+    }
+    fclose (f);
+    return true;
+}
+
 // translations between psphot object types and dophot object types
 int pmSourceDophotType (pmSource *source) {
@@ -581 +609 @@
 int psphotSaveImage (psMetadata *header, psImage *image, char *filename) {
 
-    unlink (filename);
-    psFits *fits = psFitsAlloc (filename);
+    psFits *fits = psFitsOpen (filename, "w");
     psFitsWriteImage (fits, NULL, image, 0);
-    psFree (fits);
+    psFitsClose (fits);
     return (TRUE);
 }
+
+psImage *pmModelPSFatXY (psImage *image, pmModel *modelFLT, pmPSF *psf, int x, int y, int dx, int dy) {
+
+    psRegion region = {x - dx, x + dx, y - dy, y + dy};
+    psImage *sample = psImageSubset (image, region);
+    psImageInit (sample, 0);
+    modelFLT->params->data.F32[2] = x;
+    modelFLT->params->data.F32[3] = y;
+    pmModel *modelPSF = pmModelFromPSF (modelFLT, psf);
+    pmSourceAddModel (sample, NULL, modelPSF, false, false);
+    psFree (modelPSF);
+    return (sample);
+}
+
+
+bool psphotSamplePSFs (pmPSF *psf, psImage *image) {
+
+  // make sample PSFs for 4 corners and the center
+    psImage *sample;
+
+    pmModel *modelFLT = pmModelAlloc (psf->type);
+    modelFLT->params->data.F32[0] = 0;
+    modelFLT->params->data.F32[1] = 1;
+
+    psFits *fits = psFitsOpen ("sample.psf.fits", "w");
+
+    sample = pmModelPSFatXY (image, modelFLT, psf, 25, 25, 25, 25);
+    psFitsWriteImage (fits, NULL, sample, 0);
+    sample = pmModelPSFatXY (image, modelFLT, psf, image->numCols - 25, image->numRows - 25, 25, 25);
+    psFitsWriteImage (fits, NULL, sample, 0);
+    sample = pmModelPSFatXY (image, modelFLT, psf, image->numCols - 25, 25, 25, 25);
+    psFitsWriteImage (fits, NULL, sample, 0);
+    sample = pmModelPSFatXY (image, modelFLT, psf, 25, image->numRows - 25, 25, 25);
+    psFitsWriteImage (fits, NULL, sample, 0);
+    sample = pmModelPSFatXY (image, modelFLT, psf, image->numCols / 2, image->numRows / 2, 25, 25);
+    psFitsWriteImage (fits, NULL, sample, 0);
+
+    psFitsClose (fits);
+    return (TRUE);
+}