Changeset 25002 for trunk/psLib/src/fits/psFitsImage.c

Timestamp:

Aug 5, 2009, 3:13:53 PM (17 years ago)

Author:

Paul Price

Message:

Fixing bug that prevents funpack from decompressing FITS files cleanly --- for a single compressed image, funpack would decompress it into a PHU and an image extension. This is fixed by adding ZSIMPLE to the header, but it has to go in early in the header (after the bunch of stuff written by fits_insert_img is not good enough). Yuk!

File:

• trunk/psLib/src/fits/psFitsImage.c (modified) (4 diffs)

trunk/psLib/src/fits/psFitsImage.c

@@ -616 +616 @@
     }
 
+    bool createPHU = false;             // Are we creating a PHU?
+
     // Create the image HDU
     int hdus = psFitsGetSize(fits);     // Number of HDUs in file
@@ -621 +623 @@
         // We're creating the first image
         fits_create_img(fits->fd, bitPix, naxis, naxes, &status);
+        createPHU = true;
     } else {
         if (!after) {
@@ -627 +630 @@
                 // Set status to signal fits_insert_img to insert a new primary HDU
                 status = PREPEND_PRIMARY;
+                createPHU = true;
             } else {
                 // Move back one to perform an insert after the previous HDU
@@ -641 +645 @@
 
     // write the header, if any.
-    if (header && !psFitsWriteHeader(fits, header)) {
+    if (header && !psFitsWriteHeaderImage(fits, header, createPHU)) {
         psError(PS_ERR_IO, false, "Unable to write FITS header.\n");
         success = false;