~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

Linux Cross Reference
Tina6/tina-libs/tina/file/fileRas_io.c

Version: ~
Architecture: ~ [ i386 ] ~ [ alpha ] ~ [ m68k ] ~ [ mips ] ~ [ ppc ] ~ [ sparc ] ~ [ sparc64 ] ~

  1 /**********
  2  * 
  3  * Copyright (c) 2003, Division of Imaging Science and Biomedical Engineering,
  4  * University of Manchester, UK.  All rights reserved.
  5  * 
  6  * Redistribution and use in source and binary forms, with or without modification, 
  7  * are permitted provided that the following conditions are met:
  8  * 
  9  *   . Redistributions of source code must retain the above copyright notice, 
 10  *     this list of conditions and the following disclaimer.
 11  *    
 12  *   . Redistributions in binary form must reproduce the above copyright notice,
 13  *     this list of conditions and the following disclaimer in the documentation 
 14  *     and/or other materials provided with the distribution.
 15  * 
 16  *   . Neither the name of the University of Manchester nor the names of its
 17  *     contributors may be used to endorse or promote products derived from this 
 18  *     software without specific prior written permission.
 19  * 
 20  * 
 21  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
 22  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
 23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
 24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE 
 25  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
 26  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
 27  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 28  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
 29  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
 30  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
 31  * POSSIBILITY OF SUCH DAMAGE.
 32  *
 33  **********
 34  * 
 35  * Program :    TINA
 36  * File    :  $Source: /home/tina/cvs/tina-libs/tina/file/fileRas_io.c,v $
 37  * Date    :  $Date: 2007/02/15 01:52:29 $
 38  * Version :  $Revision: 1.4 $
 39  * CVS Id  :  $Id: fileRas_io.c,v 1.4 2007/02/15 01:52:29 paul Exp $
 40  *
 41  * Author  :  Legacy TINA
 42  *
 43  * Notes   :
 44  *            Functions to read RASTER image file
 45  *********
 46 */
 47 
 48 #include "fileRas_io.h"
 49 
 50 #if HAVE_CONFIG_H
 51   #include <config.h>
 52 #endif
 53 
 54 #include <stdio.h>
 55 #include <string.h>
 56 #include <tina/sys/sysDef.h>
 57 #include <tina/sys/sysPro.h>
 58 #include <tina/image/imgPro.h>
 59 #include <tina/image/imgDef.h>
 60 
 61 Imrect *ras_read_image(char *pathname, Vartype  vtype)
 62 {
 63     Imrect         *image=NULL;
 64     FILE           *fd=NULL;
 65     void           *row=NULL;
 66     int            lx, ly, uy, i;
 67     double         offset;
 68     int            height, width, magic, depth, length, type;
 69     int            maptype, maplength, j=0;
 70     char           *temps=NULL;
 71 
 72     if ((fd = fopen(pathname, "r")) == NULL){
 73         string_append(temps, "can not open file ", pathname, 0);
 74         error(temps, non_fatal);
 75         return (NULL);
 76     }
 77     fread((char *)&magic, sizeof(int), 1, fd);
 78     fread((char *)&width, sizeof(int), 1, fd);
 79     fread((char *)&height, sizeof(int), 1, fd);
 80     fread((char *)&depth, sizeof(int), 1, fd);
 81     fread((char *)&length, sizeof(int), 1, fd);
 82     fread((char *)&type, sizeof(int), 1, fd);
 83     fread((char *)&maptype, sizeof(int), 1, fd);
 84     fread((char *)&maplength, sizeof(int), 1, fd);
 85 
 86 /* width is rounded to the nearest 16 bits */
 87     width = 2*((width+1)/2);
 88     temps = ralloc(maplength);
 89     if((maptype != 0) || (maplength !=0)){
 90         fread(temps, 1, maplength, fd);
 91     }
 92     image = im_alloc(height, width, NULL, vtype);
 93 
 94     lx = image->region->lx;
 95     ly = image->region->ly;
 96     uy = image->region->uy;
 97     for (i = 0; i < height; ++i){
 98         IM_PIX_GETP(image, i, lx, row);
 99         fread(row, 1, width, fd);
100     }
101     if(maplength!=0){
102         for(i=0; i<height; i++){
103                 for(j=0; j<width; j++){
104                         IM_PIX_GET(image, i, j, offset);
105                         IM_PIX_SET(image, i, j, temps[(int)offset]);
106                 }
107         }
108     }
109     fclose(fd);
110     rfree(temps);
111     return (image);
112 }
113 
114 

~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

This page was automatically generated by the LXR engine.
Visit the LXR main site for more information.