---

img2disk.c

Go to the documentation of this file.

#include        <stdio.h>
#include        "sadie.h"

/*-Copyright Information------------------------------------------------------*/
/* Copyright (c) 1988 by the University of Arizona Digital Image Analysis Lab */
/*----------------------------------------------------------------------------*/
/*-General Information--------------------------------------------------------*/
/*                                                                            */
/*   This function writes a SADIE image from main memory to disk.             */
/*                                                                            */
/*----------------------------------------------------------------------------*/
/*-Interface Information------------------------------------------------------*/
void IMG2DISK (
IMAGE  *in,          /*  I   Pointer to the image.                                 */
short  nbit,         /*  I   Number of bits/pixel.                                 */
char   *name   /*  I   String, containing the name of the disk file.         */
/*----------------------------------------------------------------------------*/
) {   
    static char array[2] = { 0x00, 0x01 };
    char msg[SLEN];
    short nbnd, nlin, npix;
    long nbytes;
    FILE *fp=NULL;

    if (TIMES) TIMING(T_IMG2DISK);

    /* check input */

    if (!CHECKIMG(in)) {
        MESSAGE('E'," Can't identify image.");
        goto the_end;
    }

    if (NAMES) {
        MESSAGE('I',"");
        MESSAGE('I',"IMG2DISK");
        MESSAGE('I',"");
        sprintf(msg," Input image:               %s",in->text);
        MESSAGE('I',msg);
        sprintf(msg," Output disk file:          %s",name);
        MESSAGE('I',msg);
        sprintf(msg," Output format:             %d-bit SADIE",nbit);
        MESSAGE('I',msg);
        MESSAGE('I'," ...............");
    }





    /* check number of bits per pixel */
    RANGE(in);

    if (nbit != sizeof(PIXEL)*SBPB   &&   (0L > (long)in->gmin  ||  (long)in->gmax > (1L<<nbit)  ||  sizeof(PIXEL)*SBPB < nbit  ||  nbit > sizeof(long)*SBPB)) {
        sprintf(msg," Can't pack to %d bits/pixel.",nbit);
        MESSAGE('E',msg);
        sprintf(msg,"   Note: You may want to try %d bits/pixel.",sizeof(PIXEL)*SBPB);
        MESSAGE('E',msg);
        goto the_end;
    }
    in->nbit = nbit;


    /* swap bytes, if necessary */
    nbnd = in->nbnd;
    nlin = in->nlin;
    npix = in->npix;
    nbit = in->nbit;
    if (*(short *)array != 1) {

/*        printf("IMG2DISK: Swapping bytes...\n"); */

    
        nbnd = SWAP((unsigned char *)&nbnd);
        nlin = SWAP((unsigned char *)&nlin);
        npix = SWAP((unsigned char *)&npix);
        nbit = SWAP((unsigned char *)&nbit);
    } 
/*    //else {
    //    //printf("IMG2DISK: No need to swap bytes...\n");
    //} */

    /* open image file */
    if (!(fp=fopen(name,"w"))) {
        sprintf(msg," Can't open file %s.",name);
        MESSAGE('E',msg);
        goto the_end;
    }



    /*
     * write image header to file 
     */

    /* number of bands */
    if (fwrite(&nbnd,sizeof(nbnd),1,fp) != 1) {
        sprintf(msg," Can't write number of bands to file %s.",name);
        MESSAGE('E',msg);
        goto the_end;
    }

    /* number of lines/band */
    if (fwrite(&nlin,sizeof(nlin),1,fp) != 1) {
        sprintf(msg," Can't write number of lines/band to file %s.",name);
        MESSAGE('E',msg);
        goto the_end;
    }

    /* number of pixels/line */
    if (fwrite(&npix,sizeof(npix),1,fp) != 1) {
        sprintf(msg," Can't write number of pixels/line to file %s.",name);
        MESSAGE('E',msg);
        goto the_end;
    }

    /* number of bits/pixel */
    if (fwrite(&nbit,sizeof(nbit),1,fp) != 1) {
        sprintf(msg," Can't write number of bits/pixel to file %s.",name);
        MESSAGE('E',msg);
        goto the_end;
    }

    /* rest of header */
    nbytes = (long)(sizeof(in->gmin)+sizeof(in->gmax)+sizeof(in->pstr)+sizeof(in->text));
    if (fwrite(&(in->gmin),nbytes,1,fp) != 1) {
        sprintf(msg," Can't write image header to file %s.",name);
        MESSAGE('E',msg);
        goto the_end;
    }



    /* write the image data to file */
    nbytes = (long)ceil(((double)in->nbnd*(double)in->nlin*(double)in->npix*(double)in->nbit)/(double)SBPB);
    if (in->nbit < sizeof(PIXEL)*SBPB) {
        PACK(in->nbit,(long)in->nbnd*(long)in->nlin*(long)in->npix,in->data[0][0]);
    }

    if (fwrite(in->data[0][0],nbytes,1,fp) != 1) {
        sprintf(msg," Can't write image data to file %s.",name);
        MESSAGE('E',msg);
    }

    if (in->nbit < sizeof(PIXEL)*SBPB) {
        UNPACK(in->nbit,(long)in->nbnd*(long)in->nlin*(long)in->npix,in->data[0][0]);
    }



    /* close image file */
    the_end:

    if (fp) {
        if (fclose(fp)) {
            sprintf(msg," Can't close file %s.",name);
            MESSAGE('W',msg);
        }
    }

    if (TIMES) TIMING(T_EXIT);

}

---