---

byteimg2disk.c

Go to the documentation of this file.

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





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

    if (TIMES) TIMING(T_IMG2DISK);

    /* check input */

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

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




    /* Change image name to match disk name */
    sprintf(in->text,"%s",name);



    /* 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;
    }


    gmin = (PIXEL)in->gmin;
    if (fwrite(&gmin,sizeof(gmin),1,fp) != 1) {
        sprintf(msg," Can't write gmin to file %s.",name);
        MESSAGE('E',msg);
        goto the_end;
    }
    gmax = (PIXEL)in->gmax;
    if (fwrite(&gmax,sizeof(gmax),1,fp) != 1) {
        sprintf(msg," Can't write gmax to file %s.",name);
        MESSAGE('E',msg);
        goto the_end;
    }

    /* rest of header */
    nbytes = (long)(sizeof(in->pstr)+sizeof(in->text));
    if (fwrite(&(in->pstr),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);
    if (fwrite(in->data[0][0],nbytes,1,fp) != 1) {
        sprintf(msg," Can't write image data to file %s.",name);
        MESSAGE('E',msg);
    }


    //printf("in(0,0) --> %d\n",in->data[0][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);

}

---