/* compati.h
 *          Turbo C++とXwindowとの互換性をもたせるライブラリ
 *           (C) H.Ishikawa 1994  2018
 */
#include <stdio.h>        /* printf() sprintf() */
#ifdef   __MSDOS__        /* Turbo C++の場合__MSDOS__は1と定義されている */
/*Ｔｕｒｂｏ　Ｃの場合*/
#include <stdlib.h>       /*  rand()  */
#include <graphics.h> 　  /*  cleardevice()  putpixel()  setcolor()
			      setlinestyle()  line()  outtextxy()
			      closegraph()  detectgraph() initgraph() */
#include <conio.h>        /*  getch()  gotoxy()*/

#define RAND()    ((double)rand() / (1.0 + 32767))
#define WIDTH    639      /* 高さ480幅640の場合 */
#define HIGHT    479
#define SPACE    20

void opengraph(void);

void opengraph(void)
{
  int    gerr;
  int    Gd, Gm;
  detectgraph(&Gd, &Gm);
  initgraph(&Gd, &Gm, "c:\\turboc3\\bgi\\"); /* BGIの位置を設定のこと */
  if ((gerr = graphresult()) != 0) {
    printf("Error:%s\n",grapherrormsg(gerr));
    exit(1);
  }
  cleardevice();
}


#else
/*Ｘ−Ｗｉｎｄｏｗの場合 */
#include <stdlib.h>                         /*  rand() */
#include <string.h>                         /*  strlen() */
#include <unistd.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>

#define RAND_MAX 2147483647

#define RAND()    ((double)rand() / (1.0 + 2147483647))
#define WIDTH     639 
#define HIGHT     479
#define SPACE     20 
#define MAXCOLORS 16

/* turbo C との互換性のためのグラフィック関数 */ 
void opengraph(void); 

void cleardevice(void);

void putpixel(int x, int y, int color);

void setcolor(int color);

void setlinestyle(int linestyle, unsigned upattern, int thickness);

void line(int x0, int y0, int x1, int y1);

void outtextxy(int x, int y, char textstring[]);

void closegraph(void);

int  getch(void);

void gotoxy(int x, int y);

/* X11のための変数 */
Display              *comp_d;
Window               comp_rw,   comp_w;
XSetWindowAttributes comp_att;
GC                   comp_gc;
Colormap             comp_map;
XColor               comp_c0,   comp_c1;
static char          comp_col[MAXCOLORS][16] = {"black", "blue", "green",
                              "sky blue",  "red", "magenta", "brown",
                              "light gray", "dark gray",
                              "light sky blue", "light sea green",
                              "light cyan", "hot pink",
                              "light magenta", "yellow", "white"};
unsigned long        comp_c[MAXCOLORS];   /* カラーピクセル値 */

/* 関数定義 */
void opengraph(void)
{
  int    comp_i;
  comp_d = XOpenDisplay (NULL);           /* サーバとの接続 */
  comp_rw = XDefaultRootWindow (comp_d);  /* ルートウィンドウのID取得 */
  comp_map = XDefaultColormap(comp_d, 0); /* デフォルトのカラーマップＩＤ取得*/
  for (comp_i = 0; comp_i < MAXCOLORS; comp_i++) {
    XAllocNamedColor (comp_d, comp_map, comp_col[comp_i], &comp_c1, &comp_c0);
    comp_c[comp_i] = comp_c1.pixel;       /* 指定した色の割当 */ 
  }
  comp_w = XCreateSimpleWindow (comp_d, comp_rw, 0, 0, 
           WIDTH, HIGHT, 1, comp_c[15], comp_c[0]);
                                          /* ウィンドウの生成 */
  comp_att.backing_store = Always;
  XChangeWindowAttributes (comp_d, comp_w, CWBackingStore, &comp_att);
                                          /* バッキングストアにより常に表示 */
  XMapWindow(comp_d,comp_w);              /* ウィンドウのマップ */
  comp_gc = XCreateGC (comp_d, comp_rw, 0, 0);
  XStoreName(comp_d, comp_w, "graphic");  /* ウィンドウに名前 */  
  XFlush (comp_d);
  usleep(100000);                         /* 2018/11/06 タイミングをとる */
}

void cleardevice(void)
{
  XClearWindow(comp_d, comp_w);
  XFlush(comp_d);
}

void putpixel(int x, int y, int color)
{
  if (color < MAXCOLORS) { XSetForeground(comp_d, comp_gc, comp_c[color]); }
  XDrawPoint (comp_d, comp_w, comp_gc, x, y);
}

void setcolor(int color)
{
  if (color < MAXCOLORS) { XSetForeground(comp_d, comp_gc, comp_c[color]); }
}

void setlinestyle(int linestyle, unsigned upattern, int thickness)
{
  int line_style;
  if (linestyle == 0){                        
    line_style = LineSolid;               /* 実線 */
  }else{
    line_style = LineOnOffDash;           /* 破線 */
  }
  XSetLineAttributes (comp_d, comp_gc, 
                      thickness, line_style, CapButt, JoinMiter);
}

void line(int x1, int y1, int x2, int y2)
{
  XDrawLine(comp_d, comp_w, comp_gc, x1, y1, x2, y2);
}

void outtextxy(int x, int y, char textstring[])
{
  int i;
  char letter[2];
  for (i = 0; i < strlen(textstring); i ++) {
    letter[0] = textstring[i];
    XDrawString(comp_d, comp_w, comp_gc, x + 7*i, y + 11, letter, 1);
  }
} 

void closegraph(void)
{
  XCloseDisplay(comp_d);
}

int getch(void)
{
  XFlush (comp_d);                        /* はきだしてから */
  return(getchar());                      /* 入力待ち */
}

void gotoxy(int x, int y)
{
                                          /* 何もしない */ 
}

#endif

/* window.h
 *          スクリーン座標と論理座標を変換するＷＩＮＤＯＷシステム
 *          (C)   H.Ishikawa   1994      2018
 */

#define  WINDOW    5                 /* Windowの数　0から最大4まで */

int    win_sx1[WINDOW];              /* スクリーン座標上のx1 */
int    win_sy1[WINDOW];              /* スクリーン座標上のy1 */
int    win_sx2[WINDOW];              /* スクリーン座標上のx2 */
int    win_sy2[WINDOW];              /* スクリーン座標上のy2 */
double win_wx1[WINDOW];              /* 論理座標上のx1 */
double win_wy1[WINDOW];              /* 論理座標上のy1 */
double win_wx2[WINDOW];              /* 論理座標上のx2 */
double win_wy2[WINDOW];              /* 論理座標上のy2 */
double win_sdx[WINDOW];              /* スクリーン座標と論理座標の比 */
double win_sdy[WINDOW];              /* スクリーン座標と論理座標の比 */
double win_cpx[WINDOW];              /* 現在位置x */
double win_cpy[WINDOW];              /* 現在位置y */
 
/* プロトタイプ */
void SetWindow(int win, double wx1, double wy1, double wx2, double wy2,
                                int x1, int y1, int x2, int y2);

double GetWx(int win, int screenx);

double GetWy(int win, int screeny);

int GetSx(int win, double x);

int GetSy(int win, double y);

void Axis(int win,
          const char x_axis[], double x_scale, const char y_axis[], double y_scale);

void Line(int win, double x0, double y0, double x1, double y1);

void PutPixel(int win, double x, double y, int color);

void MoveTo(int win, double x, double y);

void LineTo(int win, double x, double y);


/* 関数定義 */
void SetWindow(int win, double wx1, double wy1, double wx2, double wy2,
                                int x1, int y1, int x2, int y2)
{
  win_sx1[win] = x1;  win_sy1[win] = y1;
  win_sx2[win] = x2;  win_sy2[win] = y2;
  win_wx1[win] = wx1; win_wy1[win] = wy1;
  win_wx2[win] = wx2; win_wy2[win] = wy2;
  win_sdx[win] = (double)(x2-x1) / (wx2-wx1);
  win_sdy[win] = (double)(y2-y1) / (wy2-wy1);
}

double GetWx(int win, int screenx)
{
  return(win_wx1[win] + (double)((screenx - win_sx1[win]) / win_sdx[win]));
}

double GetWy(int win, int screeny)
{
  return(win_wy1[win] + (double)((screeny - win_sy1[win]) / win_sdy[win]));
}

int GetSx(int win, double x)
{
  return(win_sx1[win] + (int)((x - win_wx1[win]) * win_sdx[win]));
}

int GetSy(int win, double y)
{
  return(win_sy1[win] + (int)((y - win_wy1[win]) * win_sdy[win]));
}

void Axis(int win,
          const char x_axis[], double x_scale, const char y_axis[], double y_scale)
{
  double x ;
  double y ;
  char scale[80];
  setcolor(2);                                         /* 緑 */    
  if (win_wy1[win] <= 0.0 && 0.0 <= win_wy2[win]) {
    Line(win, win_wx1[win], 0.0, win_wx2[win], 0.0); 
  }  /* 縦軸 */
  if (win_wx1[win] <= 0.0 && 0.0 <= win_wx2[win]) {
    Line(win, 0.0, win_wy1[win], 0.0, win_wy2[win]);
  }   /* 横軸 */
  setlinestyle(1, 0, 1);                               /* 破線 */
  x = x_scale;
  /* 原点から右へ目盛りをかく */
  while (x <= win_wx2[win]) { 
    if (win_wx1[win] <= x) {Line( win, x, win_wy1[win], x, win_wy2[win]);}
    x = x + x_scale;
  }
  x = -x_scale;
  /* 原点から左に目盛りをかく */
  while (win_wx1[win] <= x) {
    if (x <= win_wx2[win]) {Line( win, x, win_wy1[win], x, win_wy2[win]);}
    x = x - x_scale;
  }
  y = y_scale;
  /* 原点から上に目盛りをかく */
  while (y <= win_wy2[win]) {
    if (win_wy1[win] <= y) {Line( win, win_wx1[win], y, win_wx2[win], y);}
    y = y + y_scale;
  }
  y = -y_scale;
  /* 原点から下に目盛りをかく */
  while (win_wy1[win] <= y) {
    if (y <= win_wy2[win]) Line( win, win_wx1[win], y, win_wx2[win], y);
    y = y - y_scale;
  }
  setcolor(15);                                        /* 白 */
  setlinestyle(0, 0, 1);
  /* タイトルをかく */
  sprintf(scale, "W%1d: hor:%s[%g/div] ver:%s[%g/div]",
          win,x_axis, x_scale, y_axis, y_scale);
  outtextxy(GetSx(win,win_wx1[win]), GetSy(win,win_wy1[win]), scale);
}

void   Line(int win, double x0, double y0, double x1, double y1)
{
  line(GetSx(win,x0), GetSy(win, y0), GetSx(win, x1), GetSy(win, y1));
}

void  PutPixel(int win, double x, double y,int color)
{
  putpixel(GetSx(win, x), GetSy(win, y),color);
}

void MoveTo(int win, double x, double y)
{
  win_cpx[win] = x;
  win_cpy[win] = y;
}

void LineTo(int win, double x, double y)
{
  Line(win, win_cpx[win], win_cpy[win], x, y);
  MoveTo(win, x, y);
}