Gifscii (fact or fantasy)

I recently saw a post for a utility called Gifscii.  This utility was
supposed to convert a gif file to ascii.  I put the name through Archie
with no success and also went to the ftp site in the post (now forgotten).

If the file does exit does someone know of its whereabouts and location.
I would like to thank all the contributors to this newsgroup, which have
posted some lovely ascii art.
 
Thanx in advance.
 ---------------------------------------------------------------------
 : ComputerLink Online Inc.            Realms of Despair!            :
 : (416)233-5410                       telnet mud.compulink.com 4000 :
 : 106 lines, 300-28,800 bps           endless medieval enjoyment!   :
 :                                                                   :
 : Join our International Teleconference --> chat.compulink.com 9000 :
 ---------------------------------------------------------------------

In article <3e0h38$90...@news.compulink.com>, galactic <gal...@cml.com> wrote:
>I recently saw a post for a utility called Gifscii.  This utility was
>supposed to convert a gif file to ascii.  I put the name through Archie
>with no success and also went to the ftp site in the post (now forgotten).
>
>If the file does exit does someone know of its whereabouts and location.
>I would like to thank all the contributors to this newsgroup, which have
>posted some lovely ascii art.
> 

Here's the c++ source-code as I found it.

/*GIFSCII 2.2 Source
Please direct all questions to the author:
Paul Kline
pk6...@acad.drake.edu*/

/* Gifscii version 2.2 (c) 04/94
   -  Added edge detect toggle
*/
/* Gifscii version 2.1 (c) 03/94
   -  Moved platform-dependent code to top of source - attempting source portability.
   -  Much-needed c-code cleanup plus memory-related changes for MSDOS environment
      provided by Phil Stracchino ala...@netcom.com
   -  Added code to skip extension/comment blocks to process gif89 format.
   -  Added brightness & contrast controls
   -  Added large/small increment panning
   -  Improved small-image conversion
   -  Improved 2-color gif handling
   -  Changed command codes for more flexibility
   -  Animated vt100 screen-reveals
   -  Switch between full and reduced character sets
   -  Error message improvements
*/
/* Gifscii version 1.0 (c) 02/15/94 Paul Kline  pk6...@acad.drake.edu       */
/* ascgif  version 1.6 (c) May, 1992 John Ferrell jwf...@juts.ccc.amdahl.com   */

/*  This program converts graphics stored in gif format to ascii text        */
/*  Syntax is 'gifscii filename columns lines'                               */
/*  If run without command-line arguments, program will ask for them.        */

#include <string.h>
#include <stddef.h>  /* some Unix compilers use <stddef.h> (was <stdlib.h>)*/
#include <stdio.h>
#include <math.h>

#if defined( GO32 ) && !defined( GIFSCIIDEFS )  /* msdos, DJGPP compiler */
#define GIFSCIIDEFS
#define MAIN_RETURN_TYPE void
#define USEFILETYPE "rb"
#include <malloc.h>
typedef unsigned long ULONG;        /* 32Bit */
#define FAR
#define FLIP_WORD_NEEDED 0
void        *screen;
/*  compile with: cc gifscii.c [ -o <output filename> ] -lm */
#endif

#if defined( MSDOS ) && !defined( GIFSCIIDEFS )  /* msdos platform */
#define GIFSCIIDEFS
#define MAIN_RETURN_TYPE void
#define USEFILETYPE "rb"
#include <malloc.h>
typedef unsigned long ULONG;        /* 32Bit */
#define FAR  far
#define malloc  _fmalloc
#define FLIP_WORD_NEEDED 0
void        *screen;
#endif

#if defined( THINK_C ) && !defined( GIFSCIIDEFS ) /* macintosh Think_C */
#define GIFSCIIDEFS
#define MAIN_RETURN_TYPE void
#define USEFILETYPE "rb"
typedef unsigned long  ULONG;       /* 32Bit */
#define FAR
#define FLIP_WORD_NEEDED 1
/*  Compiler Information:
        menu: EDIT/OPTIONS/THINK_C
        button: Language Extensions ON
        button: THINK_C ON
*/
#endif

#if defined( VAXC ) && !defined( GIFSCIIDEFS ) /* VAX RMS CC */
#define GIFSCIIDEFS
#define MAIN_RETURN_TYPE int
#define USEFILETYPE "rb"
typedef unsigned int  ULONG;        /* 32Bit */
#define FAR
#define FLIP_WORD_NEEDED 0
/*  Compiler Information:
$
$ CC   GIFSCII/G_FLOAT
$ DEFINE  LNK$LIBRARY   SYS$LIBRARY:VAXCRTLG
$ DEFINE  LNK$LIBRARY_1 SYS$LIBRARY:VAXCRTL
$ LINK GIFSCII
*/
#endif

#if !defined( GIFSCIIDEFS)        /* other platform */
#define MAIN_RETURN_TYPE void
#define GIFSCIIDEFS
#define USEFILETYPE "rb"
typedef unsigned int  ULONG;        /* 32Bit */
#define FAR
#define FLIP_WORD_NEEDED 1
#endif

typedef unsigned char  UBYTE;   /* 8Bit */
typedef unsigned short UWORD;   /* 16Bit */
typedef UWORD  FAR   * pUWORD;
typedef UBYTE  FAR   * pUBYTE;
typedef pUBYTE FAR   * hUBYTE;
typedef unsigned short BOOL;
typedef char         * pchar;
typedef FILE         * pFILE;

#define TRUE  1
#define FALSE 0

typedef struct tagAsciiMetric {
   UWORD am_ul;
   UWORD am_ur;
   UWORD am_ml;
   UWORD am_mr;
   UWORD am_bl;
   UWORD am_br;
   char  am_char;
} AscMetric, FAR * pAscMetric;

typedef struct tagGIFdesc {
   UWORD gd_Width;
   UWORD gd_Height;
   UBYTE gd_ColInfo;
   UBYTE gd_BackGround;
   UBYTE gd_PixelAspect;
} GIFdesc, FAR *pGIFdesc;

typedef struct tagImageDesc {
   UWORD id_Left;
   UWORD id_Top;
   UWORD id_Width;
   UWORD id_Height;
   UBYTE id_Info;
} ImageDesc, FAR * pImageDesc;

typedef struct tagRGB {
   UBYTE rgb_Red;
   UBYTE rgb_Green;
   UBYTE rgb_Blue;
} RGB, FAR *pRGB;

#define GIF_EXTENSION   0x21
#define GIF_IMAGE       0x2C
#define GIF_TERMINATOR  0x3B
#define GIF_INTERLACE   0x40
#define GIF_LOCALMAP    0x80
#define GIF_COMMENT_EXT 0xFE

GIFdesc                 gdesc;

static char             ascfile[250];
static char             rvlfile[250];
static RGB              GlobalColourTable[256];
static RGB              LocalColourTable [256];
static RGB              colour;
static ImageDesc        idesc;
static UWORD            Xpos, Ypos;
static BOOL             interleave;
static UBYTE            LeaveStep[5]  = {1, 8, 8, 4, 2};
static UBYTE            LeaveFirst[5] = {0, 0, 4, 2, 1};
static ULONG            ImageNumber;
static ULONG            ImageColours;
pFILE                   GIFfh = NULL;
pFILE                   CAPT = NULL;
static int              ReadError;
static UBYTE            CodeSize;
static int              EOFCode;
static UBYTE            ReadMask;
static int              CompDataPointer;
static int              CompDataCount;
static UBYTE            CompData[256];
static UWORD            Prefix[4096];
static UBYTE            Suffix[4096];
static UBYTE            OutCode[1024];
static UBYTE            ByteBuf;
hUBYTE                  BitPlane;
UBYTE                   b_w = 0;
UBYTE                   x_l = 0;
UBYTE                   edge_detect = 0;
char                    gif_filename[250];
static double           aspect;        /* image width/height */
static char             RevealStore[24][80];
UWORD                   gri,rdi,bli;

int                    gx=0;
int                    gy=0;
int                    gxd=0;
int                    gyd=0;

MAIN_RETURN_TYPE main( int argc, pchar argv[] );
void ERROR( pchar str );
void FlipWord( pUWORD pword );
int  ReadCode( pFILE fh );
void AddPixel( UBYTE index );
BOOL DoImage( pFILE fh );
void show();
void ColourValue( int cx, int cy, int cxd, int cyd);
void RevealImage( int rvl_type );

MAIN_RETURN_TYPE main( int argc, pchar argv[])
{
   register int         index;
   char                 sig[7];
   int                  size;
   int                  i;
   int                  error;
   int                  colours;
   size_t               offset;
   long                 cmdcode;
   long                 xtension;
   char                 gif_width[6]  = "00000";
   char                 gif_height[6] = "00000";

   if (argc >= 2)
   {
      strcpy(gif_filename, argv[1]);
   }
   else
   {
      printf("\nWhat is the name of the gif file?\n");
      gets(gif_filename);
   }
   strcpy( ascfile, gif_filename );
   if (!(GIFfh = fopen(gif_filename,USEFILETYPE)))
       ERROR("Error opening file\n");
   fread(sig,1,6,GIFfh);
   sig[3] = '\0';
   if (strcmp("GIF", sig) != 0)
      ERROR("Not a GIF file...\n");
   if (fread((char *) &gdesc,1,7,GIFfh) != 7)
      ERROR("Error reading screen descriptor\n");
   FlipWord(&gdesc.gd_Width);
   FlipWord(&gdesc.gd_Height);
   printf("\n\nGifscii: %s\nWidth = %d Height = %d\n",
      gif_filename,(int)gdesc.gd_Width,(int)gdesc.gd_Height);
   printf("Optimal Columns = %d  Optimal Lines = %d\n",
      (int)(gdesc.gd_Width / 6),(int)(gdesc.gd_Height / 10));
   aspect = (double) gdesc.gd_Width / (double) gdesc.gd_Height;
   for (offset=0; offset<strlen( ascfile ); offset++)
      if (ascfile[offset]=='.')
      {
         ascfile[offset] = 0;
         break;
      }
   strcpy( rvlfile, ascfile );
   strcat( ascfile, ".asc" );

   if (argc >= 3)
   {
      strcpy(gif_width,argv[2]);
   }
   else
   {
      printf("\nOutput will be sized to the number of lines and columns you specify");
      printf("\n");
      printf("\nLines     Columns    Lines        Columns");
      printf("\nSpec.      Spec.     Output       Output");
      printf("\n-----      -----     -----         -----");
      printf("\n  0          0       GH/10        GW/6");
      printf("\n  0          C       C*GH/GW*.6   C");
      printf("\n  L          0       L            L*GW/GH/.6");
      printf("\n  L          C       L            C");
      printf("\n");
      printf("\nGW = GifWidth, GH = GifHeight");
      printf("\n");
      printf("\nHow many columns to create? ");
      gets(gif_width);
   }
   if (argc >= 4)
   {
   strcpy(gif_height,argv[3]);
   }
   else
   {
      printf("\nHow many lines to create? ");
      gets(gif_height);
   }
   if (strlen( gif_width ))
      gx=atoi(gif_width);
   if (strlen( gif_height ))
      gy=atoi(gif_height);
   if ((gx == 0) && (gy == 0))
   {
      gx = (int)gdesc.gd_Width/6;
      gy = (int)gdesc.gd_Height/10;
   }
   if (gx == 0 && gy > 0)
      gx = (int) ((long)gy * (long)gdesc.gd_Width * 10L / ((long)gdesc.gd_Height  * 6L));
   if (gy == 0 && gx > 0)
      gy = (int) ((long)gx * (long)gdesc.gd_Height * 6L / ((long)gdesc.gd_Width  * 10L));
   printf("Width = %d, Height = %d, Columns = %d, Lines = %d,\n",
      (int)gdesc.gd_Width, (int)gdesc.gd_Height, gx, gy);
   colours = (int)(1L << ((gdesc.gd_ColInfo & 7) + 1));
   ImageColours = (ULONG) colours;
   if (!(gdesc.gd_ColInfo & 1L << 7))
   {
      printf("No global colour map supplied, using internal.\n");
      for (index = 0; index < colours; index++)
         {
         GlobalColourTable[index].rgb_Red   =
         GlobalColourTable[index].rgb_Green =
         GlobalColourTable[index].rgb_Blue  = index;
         }
   }
   else
   {
      printf("Global colour map contains %d entries.\n", colours);
      for (index = 0; index < colours; index++)
         if (fread(&GlobalColourTable[index],1,3,GIFfh) != 3)
            ERROR("Error reading global colour\n");
   }
   size = ((gdesc.gd_Width + 7) / 8) + 1;
   size += (size + 127) >> 7;

   if (!(BitPlane = (hUBYTE)malloc(gdesc.gd_Height * sizeof(pUBYTE *))))
      {
      printf("\n>%ld bytes required",(long)((long)gdesc.gd_Height * (long)gdesc.gd_Width * (long)sizeof(UBYTE)));
      ERROR("\nNot enough memory\n");
      }
   size = (gdesc.gd_Width + 1) * sizeof(UBYTE);
   for (index = 0; index < (int)gdesc.gd_Height; index++)
      if (!(BitPlane[index] = (pUBYTE)malloc(size)))
         {
         printf("\n>%ld bytes required",(long)((long)gdesc.gd_Height * (long)gdesc.gd_Width * (long)sizeof(UBYTE)));
         ERROR("\nNot enough memory\n");
         }
   ImageNumber = 1;
   for (error = FALSE; error == FALSE;)
   {
      if ((cmdcode = fgetc(GIFfh)) == -1)
         break;
      switch (cmdcode)
      {
         case GIF_EXTENSION:
         {
            if (xtension = fgetc(GIFfh) < 0)         /*  gif extension function */
               ERROR("Bad Extension Header\n");
            while ((cmdcode = fgetc(GIFfh)) > 0)       /*  byte count             */
            {
               printf("\n");
               for (i = 0; i < cmdcode; i++)
               {
                  if (xtension = fgetc(GIFfh) < 0)   /*  extension data (skip)  */
                     ERROR("Bad Extension Header\n");
               }
            }
            printf("\n");
            if (cmdcode < 0)
               ERROR("Bad Extension Header\n");
            break;
         }
         case GIF_IMAGE:
         {
            error = DoImage(GIFfh);
            break;
         }
         case GIF_TERMINATOR:
         {
            show();
            break;
         }
         default:
         {
            error = TRUE;
         }
      }
   }
   printf("End of GIF session\n");
   exit(0);
}

void ERROR(pchar str)
{
   printf(str);
   exit(1);
}

void FlipWord(pUWORD word)
{
   UWORD swap1;
   UWORD swap2;
   swap1 = (UWORD) (*word & 0x00FF);
   swap2 = (UWORD) (*word & 0xFF00) >> 8;
   if (FLIP_WORD_NEEDED == 1)
      *word = (UWORD) swap1 << 8 | (UWORD) swap2;
}

void BuildSubsTable(asciisub)

/*  Copyright Feb, 1994 Paul Kline.  pk6...@acad.drake.edu                  */
/*  All rights to these tables and gif-ascii conversion routines reserved.   */
/*  These tables and routines may be copied and distributed except that no   */
/*  computer program may be developed from them for commercial or for-profit */
/*  purposes without the express written permission of the copyright holder  */
/*  This notice is not to be understood as granting such permission.         */
/*  All output of the program is the property of the owner of the input      */

UBYTE            asciisub [5][5][5][5][5][5];
{
   pFILE                fp_ascsub;
   UBYTE                sub_char;
   UWORD                i1, i2, i3, i4, i5, i6, a1;
   UWORD                d1, d2, d3, d4, d5, d6, subtot, curtot, curix;
   int                  asciitabcount = 72;
   char                 asciitabfile[12] = "gifscii.tb1";
   AscMetric            asciitab[73] =
      {
       {0,0,0,0,0,0,' '},
       {0,0,0,0,2,2,'.'},
       {0,0,1,1,2,2,':'},
       {0,0,2,2,0,0,'-'},
       {0,2,0,1,0,0,'\''},
       {0,2,1,2,3,0,'/'},
       {1,2,0,1,0,0,'`'},
       {1,2,1,1,0,0,'~'},
       {1,3,1,0,0,0,'^'},
       {2,0,2,1,0,3,'\\'},
       {2,2,2,2,3,3,'X'},
       {3,3,3,3,3,3,'M'},
       {4,4,4,4,4,4,'$'},

       {0,1,2,1,1,2,'<'},
       {1,0,2,2,2,0,'>'},
       {0,0,2,2,3,3,'x'},
       {0,0,2,2,4,4,'u'},
       {0,0,2,3,4,3,'z'},
       {0,0,3,2,3,0,'r'},
       {0,0,3,2,4,3,'c'},
       {0,0,3,3,0,0,'='},
       {0,0,3,3,1,1,'+'},
       {0,0,3,3,3,3,'n'},
       {0,0,3,3,3,4,'s'},
       {0,0,3,3,4,4,'o'},
       {0,0,4,4,3,3,'m'},
       {0,0,4,4,4,3,'e'},
       {0,2,3,3,4,4,'d'},
       {1,1,3,2,4,4,'i'},
       {1,2,3,3,0,3,'4'},
       {1,4,0,2,4,4,'J'},
       {2,0,2,0,4,3,'L'},
       {2,0,3,2,4,3,'k'},
       {2,0,3,3,3,3,'h'},
       {2,0,3,3,4,4,'b'},
       {2,2,2,2,2,2,'!'},
       {2,2,2,2,4,4,'U'},
       {2,2,3,3,2,4,'t'},
       {2,2,3,3,3,3,'H'},
       {2,2,3,3,4,4,'W'},
       {2,2,4,1,4,3,'K'},
       {2,3,2,0,3,2,'('},
       {2,3,3,1,3,0,'f'},
       {2,3,4,4,3,3,'@'},
       {3,1,3,3,1,2,'%'},
       {3,2,0,2,2,3,')'},
       {3,2,3,2,4,4,'&'},
       {3,2,4,4,3,4,'N'},
       {3,3,1,1,0,0,'"'},
       {3,3,1,2,2,2,'?'},
       {3,3,1,2,4,3,'2'},
       {3,3,1,3,3,4,'3'},
       {3,3,2,0,4,3,'C'},
       {3,3,2,1,4,4,'G'},
       {3,3,2,2,3,4,'S'},
       {3,3,2,2,4,4,'Q'},
       {3,3,2,3,3,4,'9'},
       {3,3,3,2,4,4,'6'},
       {3,3,3,3,4,4,'8'},
       {3,3,4,4,1,1,'*'},
       {3,4,1,2,3,3,'7'},
       {3,4,2,2,4,3,'Z'},
       {4,2,2,2,4,4,'l'},
       {4,3,2,2,4,4,'D'},
       {4,3,3,1,3,0,'F'},
       {4,3,3,1,4,3,'E'},
       {4,3,3,2,3,4,'5'},
       {4,3,3,3,3,0,'P'},
       {4,3,3,3,3,3,'R'},
       {4,3,3,3,4,4,'B'},
       {4,4,2,2,3,3,'T'},
       {4,4,2,2,4,4,'I'},
       {4,4,3,3,1,1,'#'}
      };
   if ( x_l )
      strcpy( asciitabfile, "gifscii.tb2" );
   else
      strcpy( asciitabfile, "gifscii.tb1" );
   if ((fp_ascsub = fopen(asciitabfile,"r")) == NULL )
   {
      if ( x_l )
      {
         asciitabcount = 14;
         asciitab[10].am_char = '|';
         asciitab[11].am_char = '\'';
         asciitab[12].am_char = ' ';
      }
      else
      {
         asciitabcount = 72;
         asciitab[10].am_char = 'X';
         asciitab[11].am_char = 'M';
         asciitab[12].am_char = '$';
      }
      printf("\nBuilding tables on file %s",asciitabfile);
      printf("\n(this should only happen the first time)\n");
      if ((fp_ascsub = fopen(asciitabfile,"w")) == NULL)
         ERROR("\nCan't create gifscii.tbx on disk\n");
         for (i1 = 0; i1 <= 4; i1++) {
            for (i2 = 0; i2 <= 4; i2++) {
               for (i3 = 0; i3 <= 4; i3++) {
                  for (i4 = 0; i4 <= 4; i4++) {
                     for (i5 = 0; i5 <= 4; i5++) {
                        for (i6 = 0; i6 <= 4; i6++) {
                           curtot=65535;
                           curix=5;
                           for (a1 = 0; a1 <= asciitabcount; a1++) {
                              d1 = asciitab[a1].am_ul - i1;
                              d2 = asciitab[a1].am_ur - i2;
                              d3 = asciitab[a1].am_ml - i3;
                              d4 = asciitab[a1].am_mr - i4;
                              d5 = asciitab[a1].am_bl - i5;
                              d6 = asciitab[a1].am_br - i6;
                              d1 = d1 * d1;
                              d2 = d2 * d2;
                              d3 = d3 * d3;
                              d4 = d4 * d4;
                              d5 = d5 * d5;
                              d6 = d6 * d6;
                              subtot = d1 + d2 + d3 + d4 + d5 + d6;
                              if (subtot < curtot)
                              {
                                 curtot = subtot;
                                 curix  = a1;
                              }
                           }
                           sub_char = asciitab[curix].am_char;
                           if ((fwrite(&sub_char,1,1,fp_ascsub)) == 0)
                               ERROR("\nError writing gifscii.tbx to disk\n");
                        }
                     }
                  }
               }
            }
         }
         fclose(fp_ascsub);
   }
   if ((fp_ascsub = fopen(asciitabfile,"r")) == NULL)
      ERROR("\nCan't find gifscii.tbx on disk\n");
   for (i1 = 0; i1 <= 4; i1++) {
      for (i2 = 0; i2 <= 4; i2++) {
         for (i3 = 0; i3 <= 4; i3++) {
            for (i4 = 0; i4 <= 4; i4++) {
               for (i5 = 0; i5 <= 4; i5++) {
                  for (i6 = 0; i6 <= 4; i6++) {
                     if (fread(&sub_char,1,1,fp_ascsub) == 0)
                         ERROR("\nError reading gifscii.tbx from disk\n");
                     asciisub[i1][i2][i3][i4][i5][i6] = sub_char;
                  }
               }
            }
         }
      }
   }
   fclose(fp_ascsub);
   }

int ReadCode( pFILE fh )
{
   register int              temp = 0;
   register int              DstMasked;
   register int              DstMask;
   long                      size;

   DstMasked = (int)(1L << CodeSize);
   for (DstMask = 1; DstMask != DstMasked; DstMask <<= 1)
   {
      if (!ReadMask)
      {
         if (CompDataPointer == CompDataCount)
         {
            if ((size = fgetc(fh)) == -1)
            {
               printf("\nI/O Error during decompression.\n");
               ReadError = 1;
               return EOFCode;
            }
            if (fread((pchar)CompData,(size_t)1, (size_t)size, fh) != (size_t)size)
            {
               printf("\nI/O Error during decompression.\n");
               ReadError = 1;
               return EOFCode;
            }
            CompDataCount = (int)size;
            CompDataPointer = 0;
         }
         ReadMask = 1;
         ByteBuf = CompData[CompDataPointer++];
      }
      if (ByteBuf & ReadMask)
         temp |= DstMask;
      ReadMask <<= 1;
   }
   return temp;
}

void AddPixel(UBYTE index)
{
   register UWORD XStore;
   register UWORD YStore;
   XStore = Xpos + idesc.id_Left;
   YStore = Ypos + idesc.id_Top;
   BitPlane[YStore][XStore] = index;
   if (++Xpos == idesc.id_Width)
   {
      Xpos = 0;
      Ypos += LeaveStep[interleave];
      if (Ypos >= idesc.id_Height)
         Ypos = LeaveFirst[++interleave];
   }
}

BOOL DoImage(pFILE fh)
{
   register int index;
   register int colours;
   int          Code;
   printf("Image #%lu encountered.\n", ImageNumber++);
   if (fread((char *) & idesc,1,9,fh) != 9)
      ERROR("Error reading image descriptor.\n");
   FlipWord(&idesc.id_Left);
   FlipWord(&idesc.id_Top);
   FlipWord(&idesc.id_Width);
   FlipWord(&idesc.id_Height);
   interleave = (BOOL) ((ULONG)idesc.id_Info & 1L << 6);
   if (interleave)
      interleave = 1;
   if (idesc.id_Info & 1L << 7)
   {
      colours = (int)(1L << ((idesc.id_Info & 7) + 1));
      printf("Local colour map contains %d entries.\n", colours);
      for (index = 0; index < colours; index++)
        if (fread(&LocalColourTable[index],1,3,fh) != 3)
            ERROR("......Error reading local colour\n");
   }
   else
   {
      colours = (int)(1L << ((gdesc.gd_ColInfo & 7) + 1));
      for (index=0; index < colours; index++)
         LocalColourTable[index] = GlobalColourTable[index];
   }

   Xpos = Ypos = 0;

   {
      int       MaxCode, ClearCode, CurCode, OldCode, InCode, FreeCode;
      int       OutCount;
      int       FirstFree;
      UBYTE     InitCodeSize, FinChar, BitMask;
      if ((CodeSize = fgetc(fh)) == 255)
         ERROR("\n......I/O Error during decompression.\n");
      ClearCode = (int)(1L << CodeSize);
      EOFCode = ClearCode + 1;
      FreeCode = FirstFree = ClearCode + 2;
      CodeSize++;
      InitCodeSize = CodeSize;
      MaxCode = (int)(1L << CodeSize);
      ReadError = ReadMask = OutCount = 0;
      CompDataPointer = CompDataCount = 0;
      BitMask = colours - 1;
      Code = ReadCode(fh);
      while (Code != EOFCode)
      {
/*   printf("\n%d %d %d %d %d",Code,CodeSize,EOFCode,ClearCode,FreeCode); */
         if (ReadError)
         {
            printf("Read Error");
            return TRUE;
         }
         if (Code == ClearCode)
         {
            CodeSize = InitCodeSize;
            MaxCode = (int)(1L << CodeSize);
            FreeCode = FirstFree;
            FinChar = CurCode = OldCode = Code = ReadCode(fh);
            AddPixel(FinChar);
         }
         else
         {
            CurCode = InCode = Code;
            if (CurCode >= FreeCode)
            {
               CurCode = OldCode;
               OutCode[OutCount++] = FinChar;
            }
            while (CurCode > BitMask)
            {
               if (OutCount > 1024)
               {
                  printf("\nCorrupt GIF file (OutCount)\n");
                  return TRUE;
               }
               OutCode[OutCount++] = Suffix[CurCode];
               CurCode = Prefix[CurCode];
            }
            FinChar = CurCode;
            AddPixel(FinChar);
            for (index = OutCount - 1; index >= 0; index--)
              AddPixel(OutCode[index]);
            OutCount = 0;
            Prefix[FreeCode] = OldCode;
            Suffix[FreeCode] = FinChar;
            OldCode = InCode;
            if (++FreeCode >= MaxCode)
            {
               if (CodeSize < 12)
               {
                  CodeSize++;
                  MaxCode <<= 1;
               }
            }
         }
         Code = ReadCode(fh);
   }
   }
   if ((Code = fgetc(fh)) == -1)
      {
         printf("Read Code Error");
         return TRUE;
      }
   if (Code != 0)
      printf("Warning:  Unaligned packet.\n");
   return FALSE;
   }

void show()
{
   UWORD              c1, c2, c3, c4, c5, c6;
   UWORD              x1, x2, y1, y2, y3, y4, y5;
   double             SumsqRed, SumsqGreen, SumsqBlue, SumsqTotal;
   double             SumRed, SumGreen, SumBlue, SumTotal, SumWork, SumCt;
   double             VarRed, VarGreen, VarBlue, VarTotal;
   UWORD              Bright1, Bright2, Bright3, Bright4;
   UWORD              AvgBright, StdBright;
   UWORD              contrast, bright;
   int                i, j, x, y;
   char               Cbuf [1];
   int                flag;
   int                ix, iy;
   int                dx, dy;
   int                rx, ry;
   int                lmargin, tmargin, wmargin, show_width, show_height;
   char               errstring[100];
   char               rvl_type_char[6] = "00000";
   int                revealtype = 0;
   UBYTE              asciisub [5][5][5][5][5][5];
   x= y = ix = iy = dx = dy = i = j = 0;
   lmargin = tmargin = 0;
   show_width  = gdesc.gd_Width;
   show_height = gdesc.gd_Height;
   aspect = ((double)show_width / (double)gx) / ((double)show_height / (double)gy);
   contrast = bright = 5;
   BuildSubsTable(asciisub);
   do
   {
   revealtype = 0;
   printf("\n(v)iew (zZ)oom (s)ave (lrud)=Pan (i)nvert (h)elp (cC)cont (bB)bright: ");
   while ((flag=getchar()) == (char)10);
   if (flag == 'S')
      flag = 's';
   if (flag == 'I')
      flag = 'i';
   if (flag == 'V')
      flag = 'v';
   if (flag == 'H')
      flag = 'h';
   if (flag == 'A')
      flag = 'a';
   if (flag == 'X')
      flag = 'x';
   if (flag == 'E')
      flag = 'e';
   switch(flag)
   {
      case 's':
      {
         printf("\nAppending copy of screen to file %s\n", ascfile);
         if (!(CAPT = fopen(ascfile,"a")))
            ERROR("Open error\n");
         Cbuf[0] = 10;
         if (fwrite(Cbuf,1,1,CAPT) != 1)
         {
            sprintf( errstring, "Unable to write to %s.\n", ascfile);
            ERROR( errstring );
         }
         if (fwrite(gif_filename, 1, strlen(gif_filename), CAPT) != strlen(gif_filename))
         {
            sprintf( errstring, "Unable to write to %s.\n", ascfile);
            ERROR( errstring );
         }
         break;
      }
      case 'l':
      {
         if (lmargin > 0)
            lmargin = lmargin * 8 / 10;
         break;
      }
      case 'r':
      {
         wmargin = (int) idesc.id_Width - (lmargin + show_width);
         lmargin = lmargin + (int)((long)wmargin * 8L / 10L);
         break;
      }
      case 'u':
      {
         if (tmargin > 0)
            tmargin = tmargin * 8 / 10;
         break;
      }
      case 'd':
      {
         wmargin = (int) idesc.id_Height - (tmargin + show_height);
         tmargin = tmargin + (int)((long)wmargin * 8L / 10L);
         break;
      }
      case 'L':
      {
         if (lmargin > 0)
            lmargin = lmargin * 6 / 10;
         break;
      }
      case 'R':
      {
         wmargin = (int) idesc.id_Width - (lmargin + show_width);
         lmargin = lmargin + (int)((long)wmargin * 6L / 10L);
         break;
      }
      case 'U':
      {
         if (tmargin > 0)
            tmargin = tmargin * 7 / 10;
         break;
      }
      case 'D':
      {
         wmargin = (int) idesc.id_Height - (tmargin + show_height);
         tmargin = tmargin + (int)((long)wmargin * 6L / 10L);
         break;
      }
      case 'i':
      {
         b_w = b_w ^ 1;
         break;
      }
      case 'c':
      {
         if(contrast > 0)
            --contrast;
         break;
      }
      case 'C':
      {
         if(contrast < 9)
            ++contrast;
         break;
      }
      case 'B':
      {
         if(bright < 9)
            ++bright;
         break;
      }
      case 'b':
      {
         if(bright > 0)
            --bright;
         break;
      }
      case 'z':
      {
         if (aspect < 1)
         {
            lmargin = lmargin + (show_width / 20);
            show_width = show_width * 9 / 10;
            show_height = (int) ((double)show_width * (double)gy / (double)gx / aspect);
            tmargin = (gdesc.gd_Height - show_height) / 2;
         }
         else
         {
            tmargin = tmargin + (show_height / 20);
            show_height = show_height * 9 / 10;
            show_width = (int) ((double)show_height * aspect / (double)gx / (double)gy);
            lmargin = (gdesc.gd_Width - show_width) / 2;
         }
         break;
      }
      case 'x':
      {
         x_l = x_l ^ 1;
         BuildSubsTable(asciisub);
         break;
      case 'e':
      {
         edge_detect = edge_detect ^ 1;
         break;
      }
      }
      case 'Z':
      {
         lmargin = tmargin = 0;
         show_width  = gdesc.gd_Width;
         show_height = gdesc.gd_Height;
         break;
      }
      case 'h':
      {
         printf("\n");
         printf("v   = View The Gif\n");
         printf("z   = Zoom In On The Center\n");
         printf("Z   = Zoom Out To Normal Size\n");
         printf("s   = Save to disk\n");
         printf("l/L = Pan Left\n");
         printf("r/R = Pan Right\n");
         printf("u/U = Pan Up\n");
         printf("d/D = Pan Down\n");
         printf("i   = Invert Black/White\n");
         printf("c   = Decrease Contrast\n");
         printf("C   = Increase Contrast\n");
         printf("b   = Decrease Brightness\n");
         printf("B   = Increase Brightness\n");
         printf("A   = Animate vt100 Screen Reveal\n");
         printf("X   = Toggle between min/max ascii sets\n");
         printf("E   = Edge detect toggle\n");
         printf("Any other character will quit\n");
         break;
      }
      case 'v':
      {
         break;
      }
      case 'a':
      {
         printf("\n");
         printf(" 1 = In->Out\n");
         printf(" 2 = Out->In\n");
         printf(" 3 = Left->Right\n");
         printf(" 4 = Right->Left\n");
         printf(" 5 = Sides->In\n");
         printf(" 6 = Random\n");
         printf("\nEnter Reveal Type:\n");
         revealtype = 0;
         do
         {
            gets(rvl_type_char);
            revealtype = atoi(rvl_type_char);
            if (revealtype < 1 | revealtype > 6)
               revealtype = 0;
         } while (revealtype == 0);
         for (x1 = 0; x1 < 79; x1++)
         {
            for (y1 = 0; y1 < 24; y1++)
               RevealStore[y1][x1] = 32;
         }
         flag = 'v';
         break;
      }
      default:
      {
         return;
      }
   }

/*  Copyright Feb, 1994 Paul Kline.  pk6...@acad.drake.edu                  */
/*  All rights to these tables and gif-ascii conversion routines reserved.   */
/*  These tables and routines may be copied and distributed except that no   */
/*  computer program may be developed from them for commercial or for-profit */
/*  purposes without the express written permission of the copyright holder  */
/*  This notice is not to be understood as granting such permission.         */
/*  All output of the program is the property of the owner of the input      */

   if (flag != 'h')
   {
   ix = lmargin + idesc.id_Left;
   iy = tmargin + idesc.id_Top;
   dx = show_width  / gx;
   dy = show_height / gy;
   rdi=gri=bli=1;
   SumCt = 1;
   SumsqRed = SumsqGreen = SumsqBlue = 0;
   SumRed = SumGreen = SumBlue = 0;
   switch (dx)
   {
      case 1:
         x1 = 0;
         x2 = 0;
         break;
      case 2:
         x1 = 1;
         x2 = 0;
         break;
      default:
         x1 = dx / 3;
         if (x1 == 0)
            x1 = 1;
         x2 = x1 * 2;
   }
   switch (dy)
   {
      case 1:
         y1 = 0;
         y2 = 0;
         y3 = 0;
         y4 = 0;
         y5 = 0;
      break;
      case 2:
         y1 = 0;
         y2 = 0;
         y3 = 1;
         y4 = 1;
         y5 = 1;
      break;
      case 3:
         y1 = 0;
         y2 = 1;
         y3 = 1;
         y4 = 2;
         y5 = 2;
      break;
      case 4:
         y1 = 0;
         y2 = 1;
         y3 = 2;
         y4 = 3;
         y5 = 3;
      case 5:
         y1 = 1;
         y2 = 2;
         y3 = 2;
         y4 = 3;
         y5 = 4;
      break;
      default:
         y1 = dy / 6;
         y2 = y1 * 2;
         y3 = y1 * 3;
         y4 = y1 * 4;
         y5 = y1 * 5;
   }
   if (ImageColours == 2)
   {
      LocalColourTable[0].rgb_Red   = 255 / 3;
      LocalColourTable[0].rgb_Green = 255 / 3;
      LocalColourTable[0].rgb_Blue  = 255 / 3;
      LocalColourTable[1].rgb_Red   = 255 * 2 / 3;
      LocalColourTable[1].rgb_Green = 255 * 2 / 3;
      LocalColourTable[1].rgb_Blue  = 255 * 2 / 3;
   }
   y = iy;
   for (j=1; j<gy; j++)
   {
      x=ix;
      for (i=1; i<gx; i++)
      {
         ColourValue(x,y,dx,dy);
         AvgBright = colour.rgb_Red + colour.rgb_Green + colour.rgb_Blue;
         if ((AvgBright < 730) && (AvgBright > 35))
         {
            SumCt++;
            SumRed       +=  (double) colour.rgb_Red;
            SumsqRed     +=  ((double)colour.rgb_Red * (double)colour.rgb_Red);
            SumGreen     +=  (double) colour.rgb_Green;
            SumsqGreen   +=  ((double)colour.rgb_Green * (double)colour.rgb_Green);
            SumBlue      +=  (double) colour.rgb_Blue;
            SumsqBlue    +=  ((double)colour.rgb_Blue * (double)colour.rgb_Blue);
         }
         x += dx;
      }
      y += dy;
   }
   VarRed   = (SumsqRed   - (SumRed*SumRed     / SumCt)) / SumCt;
   VarGreen = (SumsqGreen - (SumGreen*SumGreen / SumCt)) / SumCt;
   VarBlue  = (SumsqBlue  - (SumBlue*SumBlue   / SumCt)) / SumCt;
   VarRed   = VarRed * VarRed * VarRed * VarRed;
   VarGreen = VarGreen * VarGreen * VarGreen * VarGreen;
   VarBlue  = VarBlue * VarBlue * VarBlue * VarBlue;
   VarTotal = VarRed + VarGreen + VarBlue + 1;
   rdi = (UWORD) (VarRed   * 100 / VarTotal);
   gri = (UWORD) (VarGreen * 100 / VarTotal);
   bli = (UWORD) (100 - rdi - gri);
   SumCt = 1;
   SumsqTotal = 0;
   SumTotal = 0;
   y = iy;
   for (j=1; j<gy; j++)
   {
      x=ix;
      for (i=1; i<gx; i++)
      {
         ColourValue(x,y,dx,dy);
         AvgBright = colour.rgb_Red + colour.rgb_Green + colour.rgb_Blue;
         if ((AvgBright < 730) && (AvgBright > 35))
         {
            SumCt++;
            SumWork = ((double)colour.rgb_Red   * (double)rdi
                     + (double)colour.rgb_Green * (double)gri
                     + (double)colour.rgb_Blue  * (double)bli);
            SumTotal   += SumWork;
            SumsqTotal += SumWork * SumWork;
         }
         x += dx;
      }
      y += dy;
   }
   AvgBright = (UWORD)(SumTotal / SumCt / 100);
   VarTotal = (SumsqTotal - (SumTotal * SumTotal / SumCt)) / SumCt;
   StdBright = (UWORD) sqrt(VarTotal) / 100;
   if (bright < 5)
      AvgBright = AvgBright + ((255 - AvgBright) * (5 - bright) / 8);
   else
      AvgBright = AvgBright - ((AvgBright) * (bright - 5) / 8);
   if (contrast < 5)
      StdBright = StdBright + (StdBright * (5 - contrast) / 5);
   else
      StdBright = StdBright - (StdBright * (contrast - 5) / 5);

   if (AvgBright < 20)
      AvgBright = 20;
   if (AvgBright > 230)
      AvgBright = 230;
   if (StdBright < AvgBright / 10)
      StdBright  = AvgBright / 10;
  /*
  printf("\n %d %d",(int)AvgBright,(int)bright);
  printf(" %d %d",(int)StdBright,(int)contrast);
  */
   StdBright = StdBright * 3 / 5;
   if (AvgBright > StdBright)
      Bright2 = AvgBright - StdBright;
   else
      Bright2 = AvgBright * 1 / 2;
   if ((AvgBright + StdBright) < 255)
      Bright3 = AvgBright + StdBright;
   else
      Bright3 = AvgBright + (255 - AvgBright) / 2;
   if (Bright2 > StdBright)
         Bright1 = Bright2 - StdBright;
   else
      Bright1 = Bright2 / 2;
   if ((255 - StdBright) > Bright3)
      Bright4 = Bright3 + StdBright;
   else
      Bright4 = (Bright3 + 255) / 2;
/*
   printf("\n %f %f %f %f %f %f",SumsqRed,SumsqGreen,SumsqBlue,SumRed,SumGreen,SumBlue);
   printf("\n %f %f %f %u %u %u",VarRed,VarGreen,VarBlue,rdi,gri,bli);
   printf("\n %u %u %u %u %u %u ",AvgBright,StdBright,Bright1,Bright2,Bright3,Bright4);
*/
   y=iy;
   for (j=0; j<gy; j++)
   {
      if (flag=='s')
      {
         Cbuf[0] = 10;
         if(fwrite(Cbuf,1,1,CAPT) != 1)
         {
            sprintf(errstring, "Unable to write to %s.\n",ascfile);
            ERROR(errstring);
         }
      }
      printf("\n");
      x=ix;
       for (i=0; i<gx; i++)
         {
            c1 = c2 = c3 = c4 = c5 = c6 = 0;
            ColourValue( x     ,y    ,dx ,dy );
            c1 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y    ,dx ,dy );
            c1 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x     ,y+y1 ,dx ,dy );
            c1 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y1 ,dx ,dy );
            c1 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y    ,dx ,dy );
            c2 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x2  ,y    ,dx ,dy );
            c2 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y1 ,dx ,dy );
            c2 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x2  ,y+y1 ,dx ,dy );
            c2 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x     ,y+y2 ,dx ,dy );
            c3 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y2 ,dx ,dy );
            c3 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x     ,y+y3 ,dx ,dy );
            c3 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y3 ,dx ,dy );
            c3 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y2 ,dx ,dy );
            c4 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x2  ,y+y2 ,dx ,dy );
            c4 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y3 ,dx ,dy );
            c4 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x2  ,y+y3 ,dx ,dy );
            c4 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x     ,y+y4 ,dx ,dy );
            c5 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y4 ,dx ,dy );
            c5 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x     ,y+y5 ,dx ,dy );
            c5 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y5 ,dx ,dy );
            c5 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y4 ,dx ,dy );
            c6 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x2  ,y+y4 ,dx ,dy );
            c6 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x1  ,y+y5 ,dx ,dy );
            c6 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            ColourValue( x+x2  ,y+y5 ,dx ,dy );
            c6 += ((UWORD)colour.rgb_Red*rdi+(UWORD)colour.rgb_Green*gri+(UWORD)colour.rgb_Blue*bli)/100;
            c1 = c1 >> 2;
            c2 = c2 >> 2;
            c3 = c3 >> 2;
            c4 = c4 >> 2;
            c5 = c5 >> 2;
            c6 = c6 >> 2;
            if (c1 <  Bright1) c1=0;
            if (c1 >= Bright4) c1=4;
            if (c1 >= Bright3) c1=3;
            if (c1 >= Bright2) c1=2;
            if (c1 >= Bright1) c1=1;
            if (c2 <  Bright1) c2=0;
            if (c2 >= Bright4) c2=4;
            if (c2 >= Bright3) c2=3;
            if (c2 >= Bright2) c2=2;
            if (c2 >= Bright1) c2=1;
            if (c3 <  Bright1) c3=0;
            if (c3 >= Bright4) c3=4;
            if (c3 >= Bright3) c3=3;
            if (c3 >= Bright2) c3=2;
            if (c3 >= Bright1) c3=1;
            if (c4 <  Bright1) c4=0;
            if (c4 >= Bright4) c4=4;
            if (c4 >= Bright3) c4=3;
            if (c4 >= Bright2) c4=2;
            if (c4 >= Bright1) c4=1;
            if (c5 <  Bright1) c5=0;
            if (c5 >= Bright4) c5=4;
            if (c5 >= Bright3) c5=3;
            if (c5 >= Bright2) c5=2;
            if (c5 >= Bright1) c5=1;
            if (c6 <  Bright1) c6=0;
            if (c6 >= Bright4) c6=4;
            if (c6 >= Bright3) c6=3;
            if (c6 >= Bright2) c6=2;
            if (c6 >= Bright1) c6=1;
         if (b_w)
         {
            c1 = 4 - c1;
            c2 = 4 - c2;
            c3 = 4 - c3;
            c4 = 4 - c4;
            c5 = 4 - c5;
            c6 = 4 - c6;
         }
         if (flag=='s')
         {
            Cbuf[0] = (char) asciisub [c1][c2][c3][c4][c5][c6];
            if(fwrite(Cbuf,1,1,CAPT) != 1)
            {
               sprintf(errstring, "Unable to write to %s.\n", ascfile);
               ERROR(errstring);
            }
         }
         if (revealtype > 0)
         {
            rx = i + (80 - gx) / 2;
            ry = j + (24 - gy) / 2;
            if ((rx >= 0) & (ry >= 0) & (rx < 80) & (ry < 24))
               RevealStore[ry][rx] = asciisub [c1][c2][c3][c4][c5][c6];
         }
         printf("%c",asciisub [c1][c2][c3][c4][c5][c6]);
         x += dx;
         if (x < 0)
            return;
      }
      y+=dy;
      }
   }
   if (revealtype > 0)
      RevealImage( revealtype );
   if (flag == 's')
      fclose(CAPT);
   } while (TRUE);
   }

void ColourValue( int cx, int cy, int cxd, int cyd )
{
   int xm1, xp1, ym1, yp1;
   int xd, yd;
   double edge_y_rd, edge_x_rd;
   double edge_y_gr, edge_x_gr;
   double edge_y_bl, edge_x_bl;
   double edge_rd, edge_gr, edge_bl, edge_test;
   colour = LocalColourTable[BitPlane[cy][cx]];
   if (edge_detect)
   {
      if (cx >= cxd)
         xm1 = cx - cxd;
      else
         xm1 = cx;
      if (cy >= cyd)
         ym1 = cy - cyd;
      else
         ym1 = cy;
      if (cx+cxd <= gx)
         xp1 = cx + cxd;
      else
         xp1 = cx;
      if (cy+cyd <= gy)
         yp1 = cy + cyd;
      else
         yp1 = cy;
      colour = LocalColourTable[BitPlane[ym1][cx]];
      edge_y_rd = (double) colour.rgb_Red;
      edge_y_gr = (double) colour.rgb_Green;
      edge_y_bl = (double) colour.rgb_Blue;
      colour = LocalColourTable[BitPlane[yp1][cx]];
      edge_y_rd -= (double) colour.rgb_Red;
      edge_y_gr -= (double) colour.rgb_Green;
      edge_y_bl -= (double) colour.rgb_Blue;
      edge_y_rd = edge_y_rd / 2 + 125;
      edge_y_gr = edge_y_gr / 2 + 125;
      edge_y_bl = edge_y_bl / 2 + 125;
      colour = LocalColourTable[BitPlane[cy][xm1]];
      edge_x_rd = (double) colour.rgb_Red;
      edge_x_gr = (double) colour.rgb_Green;
      edge_x_bl = (double) colour.rgb_Blue;
      colour = LocalColourTable[BitPlane[cy][xp1]];
      edge_x_rd -= (double) colour.rgb_Red;
      edge_x_gr -= (double) colour.rgb_Green;
      edge_x_bl -= (double) colour.rgb_Blue;
      edge_x_rd = edge_x_rd / 2 + 125;
      edge_x_gr = edge_x_gr / 2 + 125;
      edge_x_bl = edge_x_bl / 2 + 125;
      edge_test = edge_y_rd*edge_y_rd + edge_y_gr*edge_y_gr + edge_y_bl*edge_y_bl
                + edge_x_rd*edge_x_rd + edge_x_gr*edge_x_gr + edge_x_bl*edge_x_bl;
      edge_rd = sqrt(edge_y_rd*edge_y_rd + edge_x_rd*edge_x_rd) / 1.42;
      edge_gr = sqrt(edge_y_gr*edge_y_gr + edge_x_gr*edge_x_gr) / 1.42;
      edge_bl = sqrt(edge_y_bl*edge_y_bl + edge_x_bl*edge_x_bl) / 1.42;
      colour.rgb_Red   = (UBYTE) edge_rd;
      colour.rgb_Green = (UBYTE) edge_gr;
      colour.rgb_Blue  = (UBYTE) edge_bl;
   }
}

void RevealImage( int rvl_type )
{
   int        x1,x2,x3,x4,y1,y2,y3,y4,r1,r2,r3,r4,c1,c2,c3,c4;
   char       white_chars[9] = "\x1B[37;40m";
   char       black_chars[9] = "\x1B[30;47m";
   char       normal_chars[5]  = "\x1B[0m";
   char       csi[3] = "\x1B[";
   char       curs_up    = 'A';
   char       curs_down  = 'B';
   char       curs_left  = 'D';
   char       curs_right = 'C';
   char       curs_pos   = 'H';
   char       scroll_region = 'r';
   char       ch1,ch2,ch3,ch4;
   char       rvlname [255];
   int        rnd_count = 0;

   switch (rvl_type)
   {
      case 1:                         /* in -> out */
         strcpy(rvlname, rvlfile);
         strcat(rvlname, ".ito");
         printf("\n\nCreating In-Out Reveal -> %s\n", rvlname);
         if (!(CAPT = fopen(rvlname,"wb")))
            ERROR("Open error\n");
         if (b_w)
            fprintf(CAPT,"%s",black_chars);
         else
            fprintf(CAPT,"%s",white_chars);
         x1 = 41;
         y1 = 13;
         x2 = x1 - 4;
         y2 = y1-1;
         while (x1 >= 4)
         {
            x1 -= 4;
            y1 -= 1;
            x2 += 4;
            y2 += 1;
            fprintf(CAPT,"%s%d;%d%c",csi,y1,x1,curs_pos);
            fwrite(&RevealStore[y1-1][x1-1],1,x2 - x1 + 4,CAPT);
            fprintf(CAPT,"%s%d;%d%c",csi,y2,x1,curs_pos);
            fwrite(&RevealStore[y2-1][x1-1],1,x2 - x1 + 4,CAPT);
            for (r1 = y1+1; r1 < y2; r1++)
            {
               if (r1 != y1 & r1 != y2)
               {
                  fprintf(CAPT,"%s%d;%d%c",csi,r1,x1,curs_pos);
                  fwrite(&RevealStore[r1-1][x1-1],1,4,CAPT);
                  if (x2 > x1+4)
                     fprintf(CAPT,"%s%d%c",csi,x2-x1-4,curs_right);
                  fwrite(&RevealStore[r1-1][x2-1],1,4,CAPT);
               }
            }
         }
         fprintf(CAPT,"%s%d;%d%c",csi,2,1,curs_pos);
         fwrite(&RevealStore[1][0],1,80,CAPT);
         fprintf(CAPT,"%s%d;%d%c",csi,23,1,curs_pos);
         fwrite(&RevealStore[22][0],1,80,CAPT);
         fprintf(CAPT,"%s%d;%d%c",csi,1,1,curs_pos);
         fwrite(&RevealStore[0][0],1,80,CAPT);
         fprintf(CAPT,"%s%d;%d%c",csi,24,1,curs_pos);
         fwrite(&RevealStore[23][0],1,80,CAPT);
         fprintf(CAPT,"%s",normal_chars);
         fprintf(CAPT,"%s%d;%d%c",csi,1,1,curs_pos);
         fclose(CAPT);
         break;
      case 2:                         /* out -> in */
         strcpy(rvlname, rvlfile);
         strcat(rvlname, ".oti");
         printf("\n\nCreating Out-In Reveal -> %s\n", rvlname);
         if (!(CAPT = fopen(rvlname,"wb")))
            ERROR("Open error\n");
         if (b_w)
            fprintf(CAPT,"%s",black_chars);
         else
            fprintf(CAPT,"%s",white_chars);
         x1 = -3;
         y1 = 0;
         x2 = 81;
         y2 = 25;
         while (x1 + 4 < x2 - 4)
         {
            x1 += 4;
            y1 += 1;
            x2 -= 4;
            y2 -= 1;
            fprintf(CAPT,"%s%d;%d%c",csi,y1,x1,curs_pos);
            fwrite(&RevealStore[y1-1][x1-1],1,x2 - x1 + 4,CAPT);
            fprintf(CAPT,"%s%d;%d%c",csi,y2,x1,curs_pos);
            fwrite(&RevealStore[y2-1][x1-1],1,x2 - x1 + 4,CAPT);
            for (r1 = y1+1; r1 < y2; r1++)
            {
               if (r1 != y1 & r1 != y2)
               {
                  fprintf(CAPT,"%s%d;%d%c",csi,r1,x1,curs_pos);
                  fwrite(&RevealStore[r1-1][x1-1],1,4,CAPT);
                  if (x2-x1-4 > 0)
                     fprintf(CAPT,"%s%d%c",csi,x2-x1-4,curs_right);
                  fwrite(&RevealStore[r1-1][x2-1],1,4,CAPT);
               }
            }
         }
         fprintf(CAPT,"%s",normal_chars);
         fprintf(CAPT,"%s%d;%d%c",csi,1,1,curs_pos);
         fclose(CAPT);
         break;
      case 3:                         /* left -> right */
         strcpy(rvlname, rvlfile);
         strcat(rvlname, ".ltr");
         printf("\n\nCreating Left-to-Right Reveal -> %s\n", rvlname);
         if (!(CAPT = fopen(rvlname,"wb")))
            ERROR("Open error\n");
         if (b_w)
            fprintf(CAPT,"%s",black_chars);
         else
            fprintf(CAPT,"%s",white_chars);
         x1 = -3;
         while (x1 < 77)
         {
            x1 += 4;
            for (r1 = 13; r1 <= 24; r1++)
            {
               fprintf(CAPT,"%s%d;%d%c",csi,r1,x1,curs_pos);
               fwrite(&RevealStore[r1-1][x1-1],1,4,CAPT);
               fprintf(CAPT,"%s%d;%d%c",csi,25-r1,x1,curs_pos);
               fwrite(&RevealStore[25-r1-1][x1-1],1,4,CAPT);
            }
         }
         fprintf(CAPT,"%s",normal_chars);
         fprintf(CAPT,"%s%d;%d%c",csi,1,1,curs_pos);
         fclose(CAPT);
         break;
      case 4:                         /* right -> left */
         strcpy(rvlname, rvlfile);
         strcat(rvlname, ".rtl");
         printf("\n\nCreating Right-to-Left Reveal -> %s\n", rvlname);
         if (!(CAPT = fopen(rvlname,"wb")))
            ERROR("Open error\n");
         if (b_w)
            fprintf(CAPT,"%s",black_chars);
         else
            fprintf(CAPT,"%s",white_chars);
         x1 = 81;
         while (x1 > 1)
         {
            x1 -= 4;
            for (r1 = 13; r1 <= 24; r1++)
            {
               fprintf(CAPT,"%s%d;%d%c",csi,r1,x1,curs_pos);
               fwrite(&RevealStore[r1-1][x1-1],1,4,CAPT);
               fprintf(CAPT,"%s%d;%d%c",csi,25-r1,x1,curs_pos);
               fwrite(&RevealStore[25-r1-1][x1-1],1,4,CAPT);
            }
         }
         fprintf(CAPT,"%s",normal_chars);
         fprintf(CAPT,"%s%d;%d%c",csi,1,1,curs_pos);
         fclose(CAPT);
         break;
      case 5:                         /* sides -> in */
         strcpy(rvlname, rvlfile);
         strcat(rvlname, ".sin");
         printf("\n\nCreating Sides->In Reveal -> %s\n", rvlname);
         if (!(CAPT = fopen(rvlname,"wb")))
            ERROR("Open error\n");
         if (b_w)
            fprintf(CAPT,"%s",black_chars);
         else
            fprintf(CAPT,"%s",white_chars);
         x1 = -3;
         x2 = 81;
         while (x1 + 4 < x2 - 4)
         {
            x1 += 4;
            x2 -= 4;
            for (r1 = 13; r1 <= 24; r1++)
            {
               fprintf(CAPT,"%s%d;%d%c",csi,r1,x1,curs_pos);
               fwrite(&RevealStore[r1-1][x1-1],1,4,CAPT);
               if (x2-x1-4 > 0)
                  fprintf(CAPT,"%s%d%c",csi,x2-x1-4,curs_right);
               fwrite(&RevealStore[r1-1][x2-1],1,4,CAPT);
               fprintf(CAPT,"%s%d;%d%c",csi,25-r1,x1,curs_pos);
               fwrite(&RevealStore[25-r1-1][x1-1],1,4,CAPT);
               if (x2-x1-4 > 0)
                  fprintf(CAPT,"%s%d%c",csi,x2-x1-4,curs_right);
               fwrite(&RevealStore[25-r1-1][x2-1],1,4,CAPT);
            }
         }
         fprintf(CAPT,"%s",normal_chars);
         fprintf(CAPT,"%s%d;%d%c",csi,1,1,curs_pos);
         fclose(CAPT);
         break;
      case 6:                         /* random */
         strcpy(rvlname, rvlfile);
         strcat(rvlname, ".rnd");
         printf("\n\nCreating Random Reveal -> %s\n", rvlname);
         if (!(CAPT = fopen(rvlname,"wb")))
            ERROR("Open error\n");
         if (b_w)
            fprintf(CAPT,"%s",black_chars);
         else
            fprintf(CAPT,"%s",white_chars);
         rnd_count = 0;
         while (rnd_count++ < 2000)
         {
            x1 = 4 * ( abs( (int)(rand() / 12 ) % 20 ) );
            y1 = 1 * ( abs( (int)(rand() / 12 ) % 24 ) );
            if (RevealStore[y1][x1] != 0)
            {
               fprintf(CAPT,"%s%d;%d%c",csi,y1+1,x1+1,curs_pos);
               fwrite(&RevealStore[y1][x1],1,4,CAPT);
               RevealStore[y1][x1] = 0;
            }
         }
         x1 = -3;
         x2 = 81;
         while (x1 + 4 < x2 - 4)
         {
            x1 += 4;
            x2 -= 4;
            for (r1 = 13; r1 <= 24; r1++)
            {
               if (RevealStore[r1-1][x1-1] != 0)
               {
                  fprintf(CAPT,"%s%d;%d%c",csi,r1,x1,curs_pos);
                  fwrite(&RevealStore[r1-1][x1-1],1,4,CAPT);
               }
               if (RevealStore[r1-1][x2-1] != 0)
               {
                  fprintf(CAPT,"%s%d;%d%c",csi,r1,x2,curs_pos);
                  fwrite(&RevealStore[r1-1][x2-1],1,4,CAPT);
               }
               if (RevealStore[25-r1-1][x1-1] != 0)
               {
                  fprintf(CAPT,"%s%d;%d%c",csi,25-r1,x1,curs_pos);
                  fwrite(&RevealStore[25-r1-1][x1-1],1,4,CAPT);
               }
               if (RevealStore[25-r1-1][x2-1] != 0)
               {
                  if (x2-x1-4 > 0)
                  fprintf(CAPT,"%s%d;%d%c",csi,25-r1,x2,curs_pos);
                  fwrite(&RevealStore[25-r1-1][x2-1],1,4,CAPT);
               }
            }
         }
         fprintf(CAPT,"%s",normal_chars);
         fprintf(CAPT,"%s%d;%d%c",csi,1,1,curs_pos);
         fclose(CAPT);
         break;
   }
}


-- 
Warning: .signature files should be no longer than 4 lines.
(Only 4 lines of your .signature were posted.)                    ___MMM___
AARRRGGGHHH.....I hate this :-)  (snipit from my newsreader)        (0-0)
e-mail:  nod...@kari.fm.unit.no -------------------------------oOO--(_)--OOo--