github publish

GIF/GIF2.C

@@ -0,0 +1,147 @@
+#include <stdio.h>
+#include <conio.h>
+#include <string.h>
+#include <dos.h>
+#include "..\types.h"
+#include "decoder.c"
+#include "..\bgraph.h"
+
+
+char *gif_buffer,*gif_ptr;
+char *decomp_buff,*decomp_ptr;
+char *comp_buff,*comp_ptr;
+
+int g_xsize,g_ysize;
+char paleta[768];
+
+int get_byte()
+  {
+  return(*gif_ptr++);
+  }
+
+int curline;
+char *obrazovka;
+
+int out_line(char *data,int linelen)
+  {
+  memcpy(obrazovka,data,linelen);
+  memcpy(decomp_ptr,data,linelen);
+  decomp_ptr+=linelen;
+  obrazovka+=640;
+  if (++curline>=g_ysize) return (curline);
+  return 0;
+  }
+
+void setpalette(char *paleta)
+  {
+  int i;
+
+  for (i=0;i<256;i++)
+     {
+     outp(0x3c6,0xff);
+     outp(0x3c8,i);
+     outp(0x3c9,*paleta++>>2);
+     outp(0x3c9,*paleta++>>2);
+     outp(0x3c9,*paleta++>>2);
+     }
+  }
+
+
+void load_gif(char *filename)
+  {
+  FILE *pic;
+  long lengif;
+
+
+  pic=fopen(filename,"rb");
+  if (pic==NULL) return;
+  fseek(pic,0,SEEK_END);
+  lengif=ftell(pic);
+  gif_buffer=(char *)malloc(lengif);gif_ptr=gif_buffer;
+  fseek(pic,6,SEEK_SET);
+  fread(&g_xsize,2,1,pic);
+  fread(&g_ysize,2,1,pic);
+  decomp_buff=(char *)malloc(g_xsize*g_ysize);decomp_ptr=decomp_buff;
+  fseek (pic, 0x0d, SEEK_SET);
+  fread(&paleta,768,1,pic);
+  setpalette(paleta);
+  fseek (pic, 0x317, SEEK_SET);
+  lengif-=0x317;
+  fread(gif_buffer,lengif,1,pic);
+  curline=0;
+  decoder(g_xsize);
+  fclose(pic);
+  free(gif_buffer);
+  }
+
+#define save_nibble(x) if (nibble_sel) {*(comp_ptr++)|=(x)<<4;nibble_sel=!nibble_sel;} else {*(comp_ptr)=(x);nibble_sel=!nibble_sel;}
+
+int Hi_coder_1()
+  {
+  char palette[8];
+  long state[8];
+  char nibble_sel=0;
+  long picsize,cntr=0;
+  long r_size=0;
+
+  memset(palette,0x0,8);
+  memset(state,0x0,4*8);
+  picsize=g_xsize*g_ysize;
+
+  while (picsize)
+     {
+     char i,b;
+
+     b=*decomp_ptr++;cntr++;
+     for (i=0;i<8;i++) if (palette[i]==b) break;
+     if (i!=8)
+        {
+        save_nibble(i);
+        state[i]=cntr;
+        r_size++;
+        }
+        else
+        {
+        long min=0x7fffffff;char sl=0;
+
+        for (i=0;i<8;i++)
+           if (state[i]<min)
+           {
+           min=state[i];sl=i;
+           }
+        palette[sl]=b;
+        state[sl]=cntr;
+        save_nibble(sl+8);
+        save_nibble(b & 0xf);
+        save_nibble(b >> 4);
+        r_size+=3;
+        }
+     picsize--;
+     }
+  r_size>>=1;
+  return r_size;
+  }
+
+
+void prepare_compress()
+  {
+  comp_buff=(char *)malloc(512000);
+  comp_ptr=comp_buff;
+  decomp_ptr=decomp_buff;
+  }
+
+
+int main()
+  {
+  initmode256("..\xlat256.pal");
+  memset(lbuffer,0xff,640*480);
+  getchar();
+  obrazovka=(char *)lbuffer;
+  load_gif("desk_d.gif");
+  prepare_compress();
+  Hi_coder_1();
+  getchar();
+  return 0;
+  }
+
+