/**************************************************************************/
/* GTCLIB- graphics interface to Turbo C                                  */
/**************************************************************************/
#include <stdio.h>
#include <alloc.h>
#include <graphics.h>
#include <stdlib.h>
#include <conio.h>
#include <process.h>

#define CURLEN 3

void *curbuf;
static int gmode;
static int gdriver;
static int gerror;
static int xmaxsc;
static int ymaxsc;
static int palsize;
static int xasp;
static int yasp;
static int debug=0;
static int mback=1;
static int pback=1;
static int sback=3;
static int tback=6;
static int pleft,pright,pbottom,ptop; /*prompt viewport */
static int tleft,tright,tbottom,ttop; /* title viewport */
static int sleft,sright,sbottom,stop; /* status viewport */
static int mleft,mright,mbottom,mtop; /* map viewport */

/**************************************************************************/
/* GINIT initializes graphics mode                                        */
ginit()
{
  if(debug) printf("GINIT \n");
  detectgraph(&gdriver,&gmode);
  if(gdriver<0)
  {
    printf("No graphics hardware detected\n");
    gmode=-1;
    return;
  }
/* testing graphics modes */
/*
  printf("gdriver:%d gmode:%d Enter new?\n",gdriver,gmode);
  scanf("%d %d",&gdriver,&gmode);
*/
  if(debug)
  {
    printf("Detected graphics driver: %d, mode: %d\n",gdriver,gmode);
    printf("Any key!\n");
    getch();
  }
  initgraph(&gdriver,&gmode,"");
  gerror=graphresult();
  if(gerror<0)
  {
    printf("Error setting TC graphic mode!\n");
    printf("INITGRAPH return value: %d\n",gmode);
    printf("graphdriver: %d\n",gdriver);
    printf("graphmode  : %d\n",gmode);
    return;
  }
  else
  {
    xmaxsc=getmaxx();
    ymaxsc=getmaxy();
    if(debug) printf("xmaxsc: %d ymaxsc %d\n",xmaxsc,ymaxsc);
    palsize=getpalettesize();
    if(debug) printf("palsize: %d\n",palsize);
    getaspectratio(&xasp,&yasp);
    if(debug) printf("xasp: %d yasp %d\n",xasp,yasp);
    pleft=0;
    pright=xmaxsc;
    pbottom=ymaxsc-15;
    ptop=ymaxsc-30;
    tleft=0;
    tright=xmaxsc;
    tbottom=15;
    ttop=0;
    sleft=0;
    sright=xmaxsc;
    sbottom=ymaxsc;
    stop=ymaxsc-15;
    mleft=0;
    mright=xmaxsc;
    mbottom=ymaxsc-30;
    mtop=15;
    setviewport(mleft,mtop,mright,mbottom,1);
    clearport(mleft,mtop,mright,mbottom,mback);
/* allocate a little memory for cursor */
    curbuf=malloc(imagesize(0,0,0,2*CURLEN+1));
  }
}
/**************************************************************************/
/* GTERM terminates the graphics mode                                     */
gterm()
{
  if(debug) printf("GTERM \n");
  if(gmode) closegraph();
}
/**************************************************************************/
/* GGETLM inquires for the graphics limits and pixel aspect ratio         */
ggetlm(float *xmin, float *xmax, float *ymin, float *ymax, float *pixasp)
{
  int fudge=2;
  *xmin=mleft+fudge;
  *xmax=mright-fudge;
  *ymax=mbottom-fudge;
  *ymin=mtop+fudge;
  *pixasp=(float) yasp / (float) xasp;
  return;
}
/**************************************************************************/
/* GCLEAR clears the map viewport                                         */
gclear()
{
  if(debug) printf("GCLEAR \n");
  clearport(mleft,mtop,mright,mbottom,mback);
}
/**************************************************************************/
/* GMOVE- moves to new position x,y                                       */
gmove(int x, int y)
{
  if(debug) printf("GMOVE x: %d y: %d\n",x,y);
  moveto(x,y);
}

/**************************************************************************/
/* GDRAW- draws to new position x,y                                       */
gdraw(int x, int y)
{
  if(debug) printf("GDRAW x: %d y: %d\n",x,y);
  lineto(x,y);
}
/**************************************************************************/
/* GPIX- sets pixel at x,y to current color                               */
gpix(int x, int y, int color)
{
  if(debug) printf("GPIX x: %d y: %d color: %d\n",x,y,color);
  putpixel(x,y,color);
}
/**************************************************************************/
/* GSETCO- sets color for line drawing                                    */
gsetco(int color)
{
  if(debug) printf("GSETCO color: %d\n",color);
  setcolor(color);
}
/**************************************************************************/
/* GTIC inverts the image in shape of a tic */
void gtic(int tx,int ty)
{
  int op=4;
  if(  tx>CURLEN && tx<xmaxsc-CURLEN
    && ty>CURLEN && ty<ymaxsc-CURLEN)
  {
    getimage(tx-CURLEN,ty,tx+CURLEN,ty,curbuf);
    putimage(tx-CURLEN,ty,curbuf,op);
    getimage(tx,ty-CURLEN,tx,ty+CURLEN,curbuf);
    putimage(tx,ty-CURLEN,curbuf,op);
  }
  return;
}
/**************************************************************************/
/* GSAVE copies a picture from screen to file                             */
gsave(char *filnam)
{
  if(debug) printf("GSAVE: %s \n",filnam);
  if(gmode)
  {
    setviewport(0,0,xmaxsc,ymaxsc,1);
    storeimag(filnam);
    setviewport(mleft,mtop,mright,mbottom,1);
  }
}
/**************************************************************************/
/* GLOAD copies a picture from file to screen                             */
gload(char *filnam, int *scrnop)
{
  if(debug) printf("GLOAD: filnam: %s scrnop: %d\n",filnam,*scrnop);
  if(gmode)
  {
    setviewport(0,0,xmaxsc,ymaxsc,1);
    recalimag(filnam,scrnop);
    setviewport(mleft,mtop,mright,mbottom,1);
  }
}
/**************************************************************************/
/* GPROMP puts a string on the screen                                     */
gpromp(char* prompt)
  {
  if(debug) printf("GPROMP: %s \n",prompt);
  if(gmode)
  {
    setviewport(pleft,ptop,pright,pbottom,1);
    clearport(pleft,ptop,pright,pbottom,pback);
    outtextxy(2,2,prompt);
    setviewport(mleft,mtop,mright,mbottom,1);
  }
  return;
  }

/**************************************************************************/
/* GSTAT- puts a string one row above screen bottom                       */
gstat(char *string)
{
  setviewport(sleft,stop,sright,sbottom,1);
  clearport(sleft,stop,sright,sbottom,sback);
  outtextxy(2,2,string);
  setviewport(mleft,mtop,mright,mbottom,1);
/*  setviewport(0,0,xmaxsc,ymaxsc,1);*/
  return;
}
/**************************************************************************/
/* GTITLE plots the map title                                             */
gtitle(char *title)
{
  if(debug) printf("GTITLE: %s \n",title);
  if(gmode)
  {
    setviewport(tleft,ttop,tright,tbottom,1);
    clearport(tleft,ttop,tright,tbottom,tback);
    outtextxy(2,2,title);
    setviewport(mleft,mtop,mright,mbottom,1);
  }
  return;
}
/************************************************************************/
/* CLEARPORT clears specified view area with the color                  */
clearport(int left, int top, int right, int bottom, int color)
{
  setfillstyle(SOLID_FILL,color);
  setviewport(0,0,xmaxsc,ymaxsc,1);
  bar(left,top,right,bottom);
  setviewport(left,top,right,bottom,1);
  return;
}
/***********************************************************************/
#define PARTS 10

char *buffer;

FILE *file;
size_t imaglen;
size_t len;
short x;

int storeimag(char * filnam)
{
  imaglen = imagesize(0,0,xmaxsc/PARTS,ymaxsc);
  buffer= (char *) malloc((unsigned int)imaglen);
  if (buffer==(char *) NULL)
  {
    printf("Error in malloc\n");
    return -1;
  }
  if ((file = fopen(filnam,"wb")) == NULL)
  {
    printf("Error opening file: %s\n",filnam);
    free(buffer);
    return -1;
  }
  for (x=0; x<xmaxsc; x+=xmaxsc/PARTS)
  {
/*printf("x: %d\n",x);*/
    getimage(x,0,x+xmaxsc/PARTS,ymaxsc,buffer);
    if ((len=fwrite(buffer,1,(size_t)imaglen,file)) != imaglen)
    {
      printf("%ld bytes written to file: %s\n",len,filnam);
    }
/*printf("x,len: %d %lu\n",x,len);*/
  }
  fclose(file);
  free (buffer);
  return(0);
}


int recalimag( char * filnam, int *scrnop)

{
  imaglen= imagesize(0,0,xmaxsc/PARTS,ymaxsc);
/*printf("imaglen: %ld\n",imaglen);*/
  buffer= (char *) malloc(imaglen);
  if(buffer==(char *) NULL )
  {
    printf("Error in malloc\n");
    return -1;
  }
  if((file = fopen(filnam,"rb")) == NULL)
  {
    printf("Error opening file: %s\n",filnam);
    free(buffer);
    return -1;
  }
  for (x=0;x<xmaxsc;x+=xmaxsc/PARTS)
  {
    if((len=fread(buffer,1,imaglen,file)) != imaglen)
    {
      printf("%ld bytes expected, %ld bytes read\n",imaglen,len);
    }
    putimage (x,0,buffer,*scrnop);
/*printf("x,len: %d %ld\n",x,len);	*/
  }
  fclose(file);
  free (buffer);
  return 0;
}