TIF_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

-- */

/*  TIF_MAP.C  */

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

#include <windows.h>

int x_size, y_size;
unsigned char *R,*G,*B;

#define FAIL 0
#define OK   1

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


extern long ReadTIF(char *filename, short info_only);

static HINSTANCE hThisInstance;
static void OneTiffFrame(char *outfile, fullscreenbuffer *FullScreenBuffer,
                  long ResolutionX, long ResolutionY);


#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;
}

void tif_display_line(unsigned char *pbgr, long line){
 register long i;
 unsigned char *r,*g,*b;
 r=(R+x_size*line);
 g=(G+x_size*line);
 b=(B+x_size*line);
 for(i=0;i<x_size;i++){
  *r++ = *pbgr++;
  *g++ = *pbgr++;
  *b++ = *pbgr++;
  pbgr++;
 }
}

BOOL _GetExternalImageSize
 (char *filename,
  long *x,
  long *y,
  unsigned char *source_buffer){
 if(ReadTIF(filename,1) == 0)return FALSE;
 *x = x_size;
 *y = y_size;
 return TRUE;
}

BOOL _GetExternalImage
 (char *filename,
  long x, long y,
  unsigned char *Red,
  unsigned char *Green,
  unsigned char *Blue,
  unsigned char *source_buffer){
 x_size=x;
 y_size=y;
 R=Red;
 G=Green;
 B=Blue;
 if(ReadTIF(filename,0) == 0)return FALSE;
 return TRUE;
}

BOOL _PutExternalImage
 (char *filename,
  long x, long y,
  long quality,
  fullscreenbuffer *image){
OneTiffFrame(filename,image,x,y);
 return TRUE;
}


#ifdef _SUNSTYLE
static short R_putlong(lng,f) long lng; FILE *f; {
#else
static short R_putlong(long lng, FILE *f){
#endif
 if(fputc((char)(lng      ),f) == EOF)return FAIL; /* must be INTEL ordering */
 if(fputc((char)(lng >>  8),f) == EOF)return FAIL;
 if(fputc((char)(lng >> 16),f) == EOF)return FAIL;
 if(fputc((char)(lng >> 24),f) == EOF)return FAIL;
 return OK;
}

#ifdef _SUNSTYLE
static short R_putshort(sht,f) short sht; FILE *f;{
#else
static short R_putshort(short sht, FILE *f){
#endif
 if(fputc((char)(sht      ),f) == EOF)return FAIL; /* must be INTEL ordering */
 if(fputc((char)(sht >>  8),f) == EOF)return FAIL;
 return OK;
}

#ifdef _SUNSTYLE
static short R_putbyte(c,f) char c; FILE *f;{
#else
static short R_putbyte(char c ,FILE *f){
#endif
 if(fputc((char)(c),f) == EOF)return FAIL;
 return OK;
}


static void OneTiffFrame(char *outfile, fullscreenbuffer *FullScreenBuffer,
                  long ResolutionX, long ResolutionY){
 fullscreenbuffer *f=NULL;
 FILE *t24;
 short iok=0;
 long x,y,i,j,p,nh,adr0,adr1,adr2;
//   sprintf(outputfile,"%s.TIF",out_root);
 if(FullScreenBuffer == NULL)return;
 if(FullScreenBuffer != NULL){
   if((t24=fopen(outfile,"wb")) != NULL){
     x=ResolutionX; y=ResolutionY; f=FullScreenBuffer;
     R_putshort(0x4949,t24);
     R_putshort(0x002a,t24);
     R_putlong(8,t24); /* first IFD pointer imediate */
     nh=13; R_putshort((short)nh,t24); /* entry count */
     adr1=8+2+nh*12+4+6;  /* should = p */
     adr2=adr1+y*sizeof(long);
     adr0=adr1-6;
     R_putshort(0x00ff,t24); R_putshort(3,t24); R_putshort(1,t24);  /* subf */
                             R_putshort(0,t24); R_putshort(1,t24);
                             R_putshort(0,t24);
     R_putshort(0x0100,t24); R_putshort(4,t24); R_putlong(1,t24);  /* width */
                             R_putlong(x,t24);
     R_putshort(0x0101,t24); R_putshort(4,t24); R_putlong(1,t24);  /* lenght */
                             R_putlong(y,t24);
     R_putshort(0x0102,t24); R_putshort(3,t24); R_putshort(3,t24);  /* bps */
                             R_putshort(0,t24); R_putlong(adr0,t24);
     R_putshort(0x0103,t24); R_putshort(3,t24); R_putshort(1,t24);
                             R_putshort(0,t24); R_putshort(1,t24);
                             R_putshort(0,t24);/* comp */
     R_putshort(0x0106,t24); R_putshort(3,t24); R_putshort(1,t24);
                             R_putshort(0,t24); R_putshort(2,t24);
                             R_putshort(0,t24); /* photo */
     R_putshort(0x0111,t24); R_putshort(4,t24); R_putlong(y,t24);  /* S-off */
                             R_putlong(adr1,t24);
     R_putshort(0x0115,t24); R_putshort(3,t24); R_putshort(1,t24);
                             R_putshort(0,t24); R_putshort(3,t24);
                             R_putshort(0,t24); /* spp  */
     R_putshort(0x0116,t24); R_putshort(4,t24); R_putlong(1,t24);  /* Rpstr */
                             R_putlong(1,t24);
     R_putshort(0x0117,t24); R_putshort(4,t24); R_putlong(y,t24);  /* str-c*/
                             R_putlong(adr2,t24);
     R_putshort(0x0118,t24); R_putshort(3,t24); R_putshort(1,t24);
                             R_putshort(0,t24); R_putshort(0,t24);
                             R_putshort(0,t24); /* spp  */
     R_putshort(0x0119,t24); R_putshort(3,t24); R_putshort(1,t24);
                             R_putshort(0,t24); R_putshort(255,t24);
                             R_putshort(0,t24); /* spp  */
     R_putshort(0x011c,t24); R_putshort(3,t24); R_putshort(1,t24);
                             R_putshort(0,t24); R_putshort(1,t24);
                             R_putshort(0,t24); /* spp  */
     R_putlong(0,t24);
     R_putshort(8,t24); R_putshort(8,t24); R_putshort(8,t24); /*b/sample */
     p=ftell(t24);
     for(i=0;i<y;i++)R_putlong(p+2*sizeof(long)*y+i*x*3,t24);
     for(i=0;i<y;i++)R_putlong(x*3,t24);
     for (i=0;i<y;i++){
       for (j=0;j<x;j++){
         if(R_putbyte(f->R,t24) == FAIL)goto FATALWRITE;
         if(R_putbyte(f->G,t24) == FAIL)goto FATALWRITE;
         if(R_putbyte(f->B,t24) == FAIL)goto FATALWRITE;
         f++;
       }
     }
     iok=1;
     FATALWRITE:
     fclose(t24);
   }
 }
}