tga_map.c

Go to the documentation of this file.

/* --
OpenFX version 2.0 - Modelling, Animation and Rendering Package
Copyright (C) 2000 - 2007 OpenFX Development Team
-- */

/*  TGA_MAP.C  */

#include <stdlib.h>
#include <stdio.h>

#include <windows.h>


typedef struct SCREENBUFFER {
 unsigned char R,G,B,A;
} fullscreenbuffer;

static long LoadTgaImageMap(char *fn, long *xxx, long *yyy, BOOL size_only,
   unsigned char *p24R, unsigned char *p24G, unsigned char *p24B);

static HINSTANCE hThisInstance;

#if __WATCOMC__
int APIENTRY LibMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#else
BOOL WINAPI DllMain(HANDLE hDLL, DWORD dwReason, LPVOID lpReserved){
#endif
  switch (dwReason) {
    case DLL_PROCESS_ATTACH: {
      hThisInstance=hDLL;
      break;
    }
    case DLL_PROCESS_DETACH:
      break;
  }
  return TRUE;
}

BOOL _GetExternalImageSize
 (char *filename,
  long *x,
  long *y,
  unsigned char *source_buffer){
 return LoadTgaImageMap(filename,x,y,1,NULL,NULL,NULL);
}

BOOL _GetExternalImage
 (char *filename,
  long x, long y,
  unsigned char *Red,
  unsigned char *Green,
  unsigned char *Blue,
  unsigned char *source_buffer){
 return LoadTgaImageMap(filename,&x,&y,0,Red,Green,Blue);
}

BOOL _PutExternalImage
 (char *szOutFileName,
  long nx, long ny,
  long quality,
  fullscreenbuffer *image){
 return FALSE;
}

static short R_getvariword(long n, FILE *f, long *vw){
 long c;
 if((c=(long)getc(f)) == EOF)return 0;
 *vw = c;         if(n == 1)return 1;
 if((c=(long)getc(f)) == EOF)return 0;
 *vw |= (c << 8);  if(n == 2)return 1;
 if((c=(long)getc(f)) == EOF)return 0;
 *vw |= (c << 16); if(n == 3)return 1;
 if((c=(long)getc(f)) == EOF)return 0;
 *vw |= (c << 24);
 return 1;
}


#define UPSIDEDOWN  {l++; if(l == wi){l=0; pr -= wi*2; pg -= wi*2; pb -= wi*2; }}


static long LoadTgaImageMap(char *fn, long *xxx, long *yyy, BOOL size_only,
   unsigned char *p24R, unsigned char *p24G, unsigned char *p24B){
 char c0,c1,c2;
 unsigned char *pr,*pg,*pb;
 long i,j,k,l,n,cmo,cml,xor,yor,wi,hi,iok=0,ialloc=0,idsize,cm_type,vw,
      image_type,cmes,pixel_size,image_descriptor,n_attr,upsidedown,b_size,
      s1,s2,s,pat;
 FILE *t24;
 t24=fopen((char *)fn,"rb");
 if(t24 != NULL){
   if(! R_getvariword(1,t24,&idsize))goto CLOSEOUT;
   if(! R_getvariword(1,t24,&cm_type))goto CLOSEOUT; /* 0 for non mapped */
   if(! R_getvariword(1,t24,&image_type))goto CLOSEOUT; /* image type */
   if(image_type != 2 && image_type != 10)goto CLOSEOUT;
   if(! R_getvariword(2,t24,&cmo))goto CLOSEOUT;  /* color map 5 bytes */
   if(! R_getvariword(2,t24,&cml))goto CLOSEOUT;
   if(! R_getvariword(1,t24,&cmes))goto CLOSEOUT;
   if(! R_getvariword(2,t24,&xor))goto CLOSEOUT;  /* Image spec 10 bytes */
   if(! R_getvariword(2,t24,&yor))goto CLOSEOUT;
   if(! R_getvariword(2,t24,&wi))goto CLOSEOUT;
   if(! R_getvariword(2,t24,&hi))goto CLOSEOUT;
   if(! R_getvariword(1,t24,&pixel_size))goto CLOSEOUT;
   if(! R_getvariword(1,t24,&image_descriptor))goto CLOSEOUT;
   if(idsize > 0)for(i=0;i<idsize;i++)if(getc(t24) == EOF)goto CLOSEOUT;
   if(cm_type == 1 && cml > 0){
     for(i=cmo;i<cml;i++)if(! R_getvariword(cmes/8,t24,&j))goto CLOSEOUT;
   }
   n_attr = image_descriptor & 0xf;
   upsidedown = (image_descriptor & 0x20) > 0 ? 0:1;
   if((image_descriptor & 0xc0) > 0)goto CLOSEOUT; /* interlaced */
   b_size=i=wi*hi; *xxx = (short)wi; *yyy = (short)hi;
   if(size_only){
     fclose(t24);
     return 1;
   }
   ialloc=1;

   if(upsidedown){
     pr=p24R+wi*(hi-1);
     pg=p24G+wi*(hi-1);
     pb=p24B+wi*(hi-1);
   }
   else{
     pr=p24R; pg=p24G; pb=p24B;
   }
   if     (pixel_size == 16){n=2;s1=5;s2=10;s=3;pat=0x1f;}
   else if(pixel_size == 24){n=3;s1=8;s2=16;s=0;pat=0xff;}
   else                     {n=4;s1=8;s2=16;s=0;pat=0xff;}
   if(image_type == 2){ /* uncompressed */
     l=0; for(i=0;i<hi;i++)for(j=0;j<wi;j++){
       if(! R_getvariword(n,t24,&vw))goto CLOSEOUT;
       *pb++ = (char)( vw        & pat) << s;
       *pg++ = (char)((vw >> s1) & pat) << s;
       *pr++ = (char)((vw >> s2) & pat) << s;
       if(upsidedown)UPSIDEDOWN
     }
   }
   else{  /* compressed */
     l=0; k=0; while(k < b_size){
       i=getc(t24); if(feof(t24))goto CLOSEOUT;
        if(i < 128){
         for(j=0;j<i+1;j++){
           if(! R_getvariword(n,t24,&vw))goto CLOSEOUT;
           *pb++ = (char)( vw        & pat) << s;
           *pg++ = (char)((vw >> s1) & pat) << s;
           *pr++ = (char)((vw >> s2) & pat) << s;
           k++;
           if(upsidedown)UPSIDEDOWN
         }
       }
       else{
         if(! R_getvariword(n,t24,&vw))goto CLOSEOUT;
         c0 = (char)( vw        & pat) << s;
         c1 = (char)((vw >> s1) & pat) << s;
         c2 = (char)((vw >> s2) & pat) << s;
         i -= 128;
         for(j=0;j<i+1;j++){
           *pb++ = c0;  *pg++ = c1;  *pr++ = c2; k++;
           if(upsidedown)UPSIDEDOWN
         }
       }
     }
   }
   iok=1;
   CLOSEOUT:
   fclose(t24);
 }
 if(iok == 0){
   return 0;
 }
 return 1;
}
#undef UPSIDEDOWN