gif_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
-- */

/*  GIF_MAP.C  */

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

#include "giflib.h"

#include "../common/mem.h"

#define GIFCOLOURS 256

extern short GIF_decoder(short linewidth);


static HINSTANCE hThisInstance;

static long colourmap_size,brush_size;
static long ScreenXMax,ScreenYMax,ScreenColorBits;
static PixelType *ScanLine;


GifColorType GifColourMap[GIFCOLOURS];
GifFileType *GifFile;
unsigned char *decoderline;
static UCHAR *screen;
static BOOL  gif_iLace;
static long  gif_row,gif_inc,gif_width,gif_height;

static HANDLE Bit_Handle;

static unsigned char *Bit_Handle_Buffer,*Bit_Handle_Pointer;

long get_byte(void){
  return (long)(*Bit_Handle_Pointer++);
}

long out_line (unsigned char *pixels, long linelen){
 memcpy((screen + gif_row*gif_width),pixels,gif_width);
 gif_row+=abs(gif_inc);
 if(gif_row >= gif_height){
  if     (gif_inc == -8){gif_inc=8; gif_row=4;}
  else if(gif_inc ==  8){gif_inc=4; gif_row=2;}
  else if(gif_inc ==  4){gif_inc=2; gif_row=1;}
 }
 return 0;
}

static long LoadGifImageMap(char *fn, long *xxx, long *yyy, BOOL size_only,
   unsigned char *pr, unsigned char *pg, unsigned char *pb){
   int map_xmax, map_ymax;
   unsigned char *pp,*P=NULL,*pR=NULL,*pG=NULL,*pB=NULL;
   DWORD file_size,dwRead;
   long i,j,status;
   unsigned finished, planes;
   unsigned char buffer[16];
   if((pR=(unsigned char *)X__Malloc(256)) == NULL)return(0);
   if((pG=(unsigned char *)X__Malloc(256)) == NULL)return(0);
   if((pB=(unsigned char *)X__Malloc(256)) == NULL)return(0);
   status = 0;
   Bit_Handle=CreateFile(fn,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,
      FILE_ATTRIBUTE_READONLY,(HANDLE)NULL);
   if(Bit_Handle == INVALID_HANDLE_VALUE)goto BAD1;

   file_size=GetFileSize(Bit_Handle,NULL);
   Bit_Handle_Buffer=(unsigned char *)X__Malloc(file_size);
   if(Bit_Handle_Buffer == NULL)goto BAD;
   Bit_Handle_Pointer=Bit_Handle_Buffer;
   if(!ReadFile(Bit_Handle,Bit_Handle_Buffer,file_size,&dwRead,NULL))goto BAD;
   if(dwRead != file_size)goto BAD;
   if((decoderline = (unsigned char *) X__Malloc (2049)) == NULL)goto BAD;
   for (i=0;i<2049;i++)decoderline[i] = (unsigned char) 0;
   /* Get the screen description */
   gif_row=0; gif_inc=1;
   for (i = 0; i < 13; i++)buffer[i] = (unsigned char)get_byte();
   if (strncmp((char *)buffer,"GIF87a",3) ||
       buffer[3] < '0' || buffer[3] > '9' ||
       buffer[4] < '0' || buffer[4] > '9' ||
       buffer[5] < 'A' || buffer[5] > 'z' )goto BAD;
   planes = ((unsigned)buffer[10] & 0x0F) + 1;
   colourmap_size = (int)(1 << planes);
   if ((buffer[10] & 0x80) == 0)goto BAD;
   for (i = 0; i < colourmap_size ; i++) {
     pR[i]  = (unsigned char)get_byte();
     pG[i]  = (unsigned char)get_byte();
     pB[i]  = (unsigned char)get_byte();
   }
   finished = FALSE;
   while (!finished) {
      switch (get_byte()) {
         case ';':                /* End of the GIF dataset */
            finished = TRUE;
            status = 0;
            break;
         case '!':                /* GIF Extension Block */
            get_byte();           /* read (and ignore) the ID */
            while ((i = get_byte()) > 0) /* get data len*/
            for (j = 0; j < i; j++)
                get_byte(); /* flush data */
            break;
         case ',': /* Start of image object. get description */
            for (i = 0; i < 9; i++) {
              buffer[i]=(unsigned char)get_byte();
            }
            if (status < 0) {
               finished = TRUE;
               break;
            }
            if((buffer[8] & 0x40) == 0x40)gif_iLace=TRUE;
            else                          gif_iLace=FALSE;
            if(gif_iLace)gif_inc = -8;
            map_xmax = (short)(buffer[4] | (buffer[5] << 8));
            map_ymax = (short)(buffer[6] | (buffer[7] << 8));
            brush_size=(long)(map_xmax)*(long)(map_ymax);
            gif_width=map_xmax;
            gif_height=map_ymax;
            *xxx=map_xmax; *yyy=map_ymax;
            if(size_only){
              X__Free(decoderline);
              X__Free(Bit_Handle_Buffer);
              X__Free(pR); X__Free(pG); X__Free(pB);
              CloseHandle(Bit_Handle);
            return 1;
            }
            if((P=(unsigned char *)X__Malloc(brush_size)) == NULL)
              goto BAD;
            screen=P;
            if(map_xmax > 2048 || map_ymax > 1024)goto BAD;
            status = GIF_decoder((short)(map_xmax)); /*put bytes in Buf*/
            finished = TRUE;
            break;
         default:
            status = -1;
            finished = TRUE;
            break;
      }
   }
   X__Free(decoderline);
   X__Free(Bit_Handle_Buffer);
   CloseHandle(Bit_Handle);
   // Now make the 24bit map;

   if(P == NULL)goto BAD1;
   if(pr == NULL || pg == NULL || pb == NULL){
     goto BAD1;
   }  
   pp=P;
   for(i=0; i < map_ymax; i++) for(j=0; j < map_xmax; j++){
     *pr++ = pR[*pp];
     *pg++ = pG[*pp];
     *pb++ = pB[*pp];
     pp++;
   }
   X__Free(pR); X__Free(pG); X__Free(pB); if(P != NULL)X__Free(P);
   return 1;
   BAD:
   if(Bit_Handle_Buffer != NULL)X__Free(Bit_Handle_Buffer);
   CloseHandle(Bit_Handle);
   BAD1:
   X__Free(pR); X__Free(pG); X__Free(pB); if(P != NULL)X__Free(P);
   return 0;
}


#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 LoadGifImageMap(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 LoadGifImageMap(filename,&x,&y,0,Red,Green,Blue);
}


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

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


#define GOOD 2
#define GIFCOLOURS 256

static unsigned long   *colorstats0;
static unsigned short  *colorstats1;

static long getcolor(unsigned short crgb, long Npalette);
static void SortColours(long Ngif, long N_colours);
static void UnCompressWordLine(short bufsize, short *buffer,
                               unsigned short *output);

static short compressbuffer[1024];
GifColorType GifColourMap[GIFCOLOURS];
GifFileType *GifFile;
unsigned char *decoderline;

// read and decompress code

#ifdef _SUNSTYLE
void  UnCompressWordLine(bufsize,buffer,output)
short bufsize;short *buffer; unsigned short *output;{
#else
void  UnCompressWordLine(short bufsize, short *buffer,unsigned short *output){
#endif
 short p,k;
 long i;
 k=0; while(k < bufsize){
   p = *buffer++; k++;
   if(p < 0)
     for(i=0; i<= -p; i++){*output++ = *buffer++; k++;}
   else{
     for(i=0; i<=  p; i++) *output++ = *buffer;
     buffer++; k++;
   }
 }
}

#ifdef _SUNSTYLE
static long distance(argb,brgb) unsigned short argb; unsigned short brgb; {
#else
static long distance(unsigned short argb, unsigned short brgb){
#endif
    long b,g,r;
    b  = (long)( argb        & 0x1f);
    g  = (long)((argb >>  5) & 0x1f);
    r  = (long)((argb >> 10) & 0x1f);
    b -= (long)( brgb        & 0x1f);
    g -= (long)((brgb >>  5) & 0x1f);
    r -= (long)((brgb >> 10) & 0x1f);
    return (r*r + g*g + b*b);
/*    return labs(r) + labs(g) + labs(b);
*/
}

static long getcolor(unsigned short crgb, long Npalette){
  long i,j,best,dist;
/* look for an exact match in the color table (or minimal distance) */
    for (i=0; i < Npalette; i++) {
       if (colorstats1[i] == crgb) return (i);
       if (i == 0) {
         best = 0;
         dist = distance(colorstats1[i],crgb);
       }
       else if ((j=distance(colorstats1[i],crgb)) < dist) {
         best = i;
         dist = j;
       }
    }
    return(best);
}

static void SortColours(long Ngif, long N_colours){
 long i,j,gap,t0,maxdis,used;
 unsigned short t1;
 for (i = 0; i < N_colours; i++) {
     colorstats1[i] = i;
 }
 for (gap = N_colours/2; gap > 0; gap /=2) {
  for (i = gap; i < N_colours; i++) {
    for (j = i-gap; j >= 0 &&
        colorstats0[j] < colorstats0[j+gap]; j -= gap) {
      t0 = colorstats0[j];
      t1 = colorstats1[j];
      colorstats0[j] = colorstats0[j+gap];
      colorstats1[j] = colorstats1[j+gap];
      colorstats0[j+gap] = t0;
      colorstats1[j+gap] = t1;
    }
  }
 }
 for (used = 0; used < N_colours && colorstats0[used] > 0; used++){;}
 if (used > Ngif) {
  for (maxdis = 2; maxdis < 1024; maxdis *= 2) {
   for (i=Ngif/2; i < Ngif; i++) {
    for (j = 0; j < i; j++) {
      if (distance(colorstats1[i],colorstats1[j])<maxdis) {
       for (j=i+1; j< used; j++) {
         colorstats0[j-1] = colorstats0[j];
         colorstats1[j-1] = colorstats1[j];
       }
       --used;
       --i;
       break;
      }
    }
    if (used <= Ngif) break;
   }
   if (used <= Ngif) break;
  }
 }
 return;
}

// end of read and uncompress code
// modify this to get a compression 
 
static void _BuildGif
(  HWND parent_window, HWND status_window,
   int range_f, int range_l, char *flic_file,
   char *stem_file,
   int ResolutionX,int ResolutionY,
   int nCOLOUR, long speed, long tzeros,
   unsigned long *cstats0,unsigned short *cstats1){

 char filename[128],speed_string[128],format[64];
 long used,cpix,size,type,x_x,y_y;
 unsigned short val,Nt,RGB[1024];
 int i,j,frame,frames_found;
 unsigned char *Screen1,*screen;
 FILE *ipf;
 colorstats0=cstats0;
 colorstats1=cstats1;
 if((range_l - range_f) < 3)return;  /* don't animate < 3 frames */
 size=ResolutionX*ResolutionY;
 if((Screen1 = (unsigned char *)X__Malloc(size)) == NULL){
   MessageBox(GetFocus(),(LPCTSTR)"Out of memory",(LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
   return;
 }
 memset(Screen1,'0',size);
 SendMessage(status_window,WM_SETTEXT,0,(LPARAM)"Building color palette");
 SortColours(GIFCOLOURS,nCOLOUR);
 for(i=0;i<GIFCOLOURS;i++){
   GifColourMap[i].Red   = (((colorstats1[i] >> 10) & 0x1F) << 3);
   GifColourMap[i].Green = (((colorstats1[i] >>  5) & 0x1F) << 3);
   GifColourMap[i].Blue  = (((colorstats1[i]      ) & 0x1F) << 3);
 }
 for(i=0;i<nCOLOUR;i++)colorstats0[i] = GIFCOLOURS+1;
 for(frame=range_f;frame<=range_l;frame++){
   sprintf(speed_string,"Building frame %03ld",min(frame,range_l));
   SendMessage(status_window,WM_SETTEXT,0,(LPARAM)speed_string);
   sprintf(format,"%s%ld%s","%s%0",tzeros,"d.16b");
   if(frame < range_l)sprintf(filename,format,stem_file,frame);
   else               sprintf(filename,format,stem_file,range_f);

   if((ipf=fopen(strlwr(filename),"rb")) == NULL){
     goto FATALOPEN1;
   }
   if( fread((char *)&x_x,sizeof(long),1,ipf) != 1 ||
       fread((char *)&y_y,sizeof(long),1,ipf) != 1)goto FATALREAD;
   if(x_x != ResolutionX || y_y != ResolutionY)goto FATALREAD;
   screen=Screen1;
   for(i=0;i<ResolutionY;i++){
     if(fread((char *)&Nt,sizeof(short),1,ipf) != 1)goto FATALREAD;
     if(Nt == 0){
       if(fread((char *)RGB,sizeof(unsigned short),ResolutionX,ipf)
          != ResolutionX)goto FATALREAD;
     }
     else{
       if(fread((char *)compressbuffer,sizeof(short),Nt,ipf) != Nt)
         goto FATALREAD;
       UnCompressWordLine(Nt,compressbuffer,RGB);
     }
     for (j = 0; j < ResolutionX; j++) {
       val=RGB[j];
       if((cpix = (long)colorstats0[(long)val]) > GIFCOLOURS){
         cpix=getcolor(val,GIFCOLOURS);
         colorstats0[(long)val]=(unsigned long)cpix;
       }
       *screen++ = (unsigned char)cpix;
     }
   }
   fclose(ipf);

   if(frame == range_f){  // first frame
     if((GifFile=EGifOpenFileName((char *)strlwr(flic_file),FALSE,1)) == NULL)
       goto FATALWRITE;
     if(EGifPutScreenDesc(GifFile,ResolutionX,ResolutionY,8,
        0, 8, GifColourMap) == ERROR)goto FATALWRITE;
     if(EGifPutBrowserControlDesc(GifFile,0) == ERROR)goto FATALWRITE;
   }
   else if(frame == range_l){
     if(EGifCloseFile(GifFile) == ERROR) {
       goto FATALWRITE;
     }
   }
   if(frame >= range_f && frame < range_l){ /* every image */
     if(EGifPutControlDesc(GifFile,1,0,2,0) == ERROR){
       goto FATALWRITE;
     }
     if(EGifPutImageDesc(GifFile,0,0,ResolutionX,ResolutionY,FALSE,1,
         NULL) == ERROR){
       goto FATALWRITE;
     }
     for (i=0,screen=Screen1;i<ResolutionY;i++,screen += ResolutionX) {
       if (EGifPutLine(GifFile,(PixelType *)screen,ResolutionX) == ERROR) {
         goto FATALWRITE;
       }
     }
   }
 }

 if(MessageBox(GetFocus(),(LPCTSTR)"Delete Temporary files",
          (LPCTSTR)"Flic",MB_YESNO|MB_TASKMODAL|MB_ICONQUESTION) == IDYES){
   FILE *FF;
   sprintf(format,"%s%ld%s","%s%0",tzeros,"d.16b");
   sprintf(filename,format,stem_file,range_f);
   if((FF=fopen(filename,"r")) != NULL){
     fclose(FF);
     for(i=range_f;i<range_l;i++){
       sprintf(format,"%s%ld%s","%s%0",tzeros,"d.16b");
       sprintf(filename,format,stem_file,i);
       if(DeleteFile(filename) == FALSE){
         MessageBox(GetFocus(),(LPCTSTR)strcat(filename," Failed during delete"),
         (LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
         break;
       }
     }
   }
   else MessageBox(GetFocus(),(LPCTSTR)"Failed to delete temporary files",
          (LPCTSTR)"Flic",MB_OK|MB_TASKMODAL);
 }
 goto XXIT;
 FATALWRITE:
   MessageBox(GetFocus(),(LPCTSTR)"Failed on flic write",(LPCTSTR)"Error",MB_OK|MB_TASKMODAL);
   fclose(ipf); goto XXIT;
 FATALREAD:
   MessageBox(GetFocus(),(LPCTSTR)"Read failed on temporary file",(LPCTSTR)"Error",MB_OK|MB_TASKMODAL);
   fclose(ipf); goto XXIT;
 FATALOPEN1:
   MessageBox(GetFocus(),(LPCTSTR)"Temporary file open failed",(LPCTSTR)"Error",MB_OK|MB_TASKMODAL);
   goto XXIT;
 XXIT:
 X__Free(Screen1);
}