source: trunk/src/testing/app/bitplay/libimg/sgidisp.c @ 4

/******************************************************************************
 * SAGE - Scalable Adaptive Graphics Environment
 *
 * Copyright (C) 2004 Electronic Visualization Laboratory,
 * University of Illinois at Chicago
 *
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *  * Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 *  * Redistributions in binary form must reproduce the above
 *    copyright notice, this list of conditions and the following disclaimer
 *    in the documentation and/or other materials provided with the distribution.
 *  * Neither the name of the University of Illinois at Chicago nor
 *    the names of its contributors may be used to endorse or promote
 *    products derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 * Direct questions, comments etc about SAGE to http://www.evl.uic.edu/cavern/forum/
 *
 *****************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <image.h>
#include <stdlib.h>
#include <memory.h>
#include <sys/types.h>
#include "image.h"
#include "imginfo.h"

IMG *
SGImakedisp(fname)
        char *fname;
{
        IMAGE *image;
        register IMG *im;
        unsigned short *trow;
        register int k;
        int width, height;
        int y, z;
        static int one = 1;

        int littleendian = (*(char *)&one == 1);

        image = iopen(fname, "r");
        if(image == NULL)
            return NULL;

        width = image->xsize;
        height = image->ysize;
        im = (IMG *)malloc(sizeof(IMG));
        im->rowbytes = sizeof(IMulong) * width;
        im->type = IT_LONG;
        im->xsize = width;
        im->ysize = height;
        im->data = (unsigned char *)malloc(im->rowbytes * height + (sizeof(short)*width));
        if(im->data == NULL) {
            fprintf(stderr, "Can't malloc %d bytes of memory for image\n",
                im->rowbytes * height);
            exit(2);
        }
        trow = (unsigned short *)(im->data + im->rowbytes * height);
        if(image->zsize == 3)
            memset(im->data, 255, im->rowbytes * height);

        for(y = 0; y < image->ysize; y++) {
            for(z = 0; z < image->zsize; z++) {
                register unsigned char *op;
                register unsigned short *ip;


                getrow(image, trow, y, z);
                k = image->xsize;
                op = (unsigned char *) (im->data + im->rowbytes * y)
                                        + (littleendian ? z : 3 - z);
                ip = trow;
                do {
                    *op = *ip++;
                    op += sizeof(IMulong);
                } while(--k > 0);
            }
        }
        if(image->zsize == 1) {
            register IMulong *op;
            register int v;

            k = image->xsize * image->ysize;
            op = (IMulong *)im->data;
            do {
                v = (*op & 0xFF);       /* XXX byte-order dependent */
                *op++ = v | (v<<8) | (v<<16) | 0xFF000000;
            } while(--k > 0);
        }
        iclose(image);

        return im;
}