//=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
//  "flib.cc"
//  Xfig 3.2 互換データ生成システム
//  Copyright(C) by Naoki Watanabe.
//  All rights reserved.
//  Last revised on Sep 7th, 1998.
//=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

#include <stdio.h>
#include <string.h>
#include "flib.h"

// FIGファイル内でのfont指定の番号
static int  FIG_Font_No[5]={0,1,2,3,32};

class PixelTable
{
  u_long pixel[256];
  u_char max_entry;
public:
  PixelTable( void ){
    int n;
    for( n=0; n<256; n++ ){
      pixel[n] = 0;
    }
    max_entry = 32;
  }
  u_char Entry( u_long pix ){
    if( max_entry>256 ) return 0;
    pixel[max_entry] = pix;
    return max_entry++;
  }
  u_char operator () ( u_long pix ){
    u_char n;
    for( n=32; n<max_entry; n++ ){
      if( pix == pixel[n] ) return n;
    }
    return 0;
  }
} Pixel;



//=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
// FIG用GCの制御機構の定義
//=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

//---- FIGGCを生成して初期化する関数 -------------
FIGGC FCreateFIGGC( Display*, FIGID, unsigned long, FIGGCValues* )
{
  FIGGC fgc = new FIGGCValues;

  fgc->foreground  = 0;
  fgc->background  = 7;
  fgc->font_no     = 0;
  fgc->font_size   = 0;

  return fgc;
}

//---- FIGGCを解放する関数 -----------------------
void FFreeFIGGC( Display*, FIGGC fgc )
{
  delete fgc;
}

//---- FIGGCにForeground色を設定する関数 ---------
void FSetForeground( Display*, FIGGC fgc, u_long fg )
{
  fgc->foreground = Pixel(fg);
}

//---- FIGGCに fontを設定する関数 ----------------
void FSetFont( Display*, FIGGC fgc, int font_no, int font_size )
{
  fgc->font_no   = font_no;
  fgc->font_size = font_size;
}

//=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
// FIG描画関数の定義
//=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

//---- FIGを開いて初期化する関数 -----------------
FIGID FCreateFile( Display*, const char* fname, u_int win_w, u_int win_h, u_int fig_w, u_int fig_h )
{
  FIGID fig   = new FIGIDValues;
  fig_w       = u_int(fig_w * 45);
  fig_h       = u_int(fig_w * win_h/win_w);
  fig->cugc   = FCreateFIGGC(0,0,0,0);
  fig->DOT2FU = (double)fig_w/win_w;

  if( (fig->fptr = fopen( fname, "wt" )) == NULL ){
    fprintf( stderr, "Can not create a file %s\n", fname );    exit(-1);
  }

  fprintf( fig->fptr,
    "#FIG 3.2\n" "Landscape\n" "Center\n" "Metric\n"
    "Letter\n" "100.00\n" "Single\n" "0\n" "1200 2\n" );

  return fig;
}

//---- FIGを閉じる関数 ---------------------------
void FCloseFile( Display*, FIGID fig )
{
  fclose( fig->fptr );
  delete fig;
}

//---- 色を登録する関数 --------------------------
// この関数はあらゆる描画命令に先だって唱えなければならない。
void FDefineColor( FIGID fig, FIGGC, u_long pixel, u_short red, u_short green, u_short blue )
{
  fprintf( fig->fptr,
    "0 %3d #%02x%02x%02x\n", Pixel.Entry(pixel),
	  u_char(red/256), u_char(green/256), u_char(blue/256) );
}

//---- 点を描く関数 -----------------------------
void FDrawPoint( Display*, FIGID fig, FIGGC fgc, int x, int y )
{
  fprintf( fig->fptr,
    "2 1 0 1 %d %d 0 0 -1 0.000 0 0 -1 0 0 1\n",
    fgc->foreground, fgc->background );

  fprintf( fig->fptr, "%d %d\n", fig->Fu(x), fig->Fu(y) );
}

//---- 線分を描く関数 ----------------------------
void FDrawLine( Display*, FIGID fig, FIGGC fgc, int x1, int y1, int x2, int y2 )
{
  fprintf( fig->fptr,
    "2 1 0 1 %d %d 0 0 -1 0.000 0 0 -1 0 0 2\n",
    fgc->foreground, fgc->background );

  fprintf( fig->fptr, "%d %d %d %d\n",
           fig->Fu(x1), fig->Fu(y1),
           fig->Fu(x2), fig->Fu(y2) );
}

//---- 長方形を描く関数 --------------------------
void FDrawRectangle( Display*, FIGID fig, FIGGC fgc, int xo, int yo, u_int w, u_int h )
{
  fprintf( fig->fptr,
    "2 2 0 1 %d %d 0 0 -1 0.000 0 0 -1 0 0 5\n",
    fgc->foreground, fgc->background );

  int x1, x2, y1, y2;
  x1 = fig->Fu(xo);    y1 = fig->Fu(yo);
  x2 = fig->Fu(xo+w);  y2 = fig->Fu(yo+h);
  fprintf( fig->fptr,
    "%d %d %d %d %d %d %d %d %d %d\n",
    x1, y1, x2, y1, x2, y2, x1, y2, x1, y1 );
}

//---- 長方形を塗る関数 --------------------------
void FFillRectangle( Display*, FIGID fig, FIGGC fgc, int xo, int yo, u_int w, u_int h )
{
  fprintf( fig->fptr,
    "2 2 0 1 %d %d 0 0 20 0.000 0 0 -1 0 0 5\n",
    fgc->foreground, fgc->foreground );

  int x1, x2, y1, y2;
  x1 = fig->Fu(xo);    y1 = fig->Fu(yo);
  x2 = fig->Fu(xo+w);  y2 = fig->Fu(yo+h);
  fprintf( fig->fptr,
    "%d %d %d %d %d %d %d %d %d %d\n",
     x1, y1, x2, y1, x2, y2, x1, y2, x1, y1 );
}

//---- 連続線分を描く関数 ------------------------
void FDrawLines( Display*, FIGID fig, FIGGC fgc, XPoint p[], int np, int mode )
{
  fprintf( fig->fptr,
    "2 1 0 1 %d %d 0 0 -1 0.000 0 0 -1 0 0 %d\n",
    fgc->foreground, fgc->background, np );

  if( mode == CoordModePrevious ){
    int px=p[0].x, py=p[0].y;
    for( int i=1 ; i<np ; i++ ){
      px = p[i].x = px + p[i].x;
      py = p[i].y = py + p[i].y;
    }
  }
  for( int i=0 ; i<np ; i++ ){
    fprintf( fig->fptr,
      "%d %d ",
      fig->Fu(p[i].x), fig->Fu(p[i].y) );
  }
  fprintf( fig->fptr, "\n");
}

//---- 多角形を描く関数 --------------------------
void FDrawPolygon( Display*, FIGID fig, FIGGC fgc, XPoint p[], int np, int mode )
{
  fprintf( fig->fptr,
    "2 3 0 1 %d %d 0 0 -1 0.000 0 0 -1 0 0 %d\n",
    fgc->foreground, fgc->background, np+1 );

  if( mode == CoordModePrevious ){
    int px=p[0].x, py=p[0].y;
    for( int i=1 ; i<np ; i++ ){
      px = p[i].x = px + p[i].x;
      py = p[i].y = py + p[i].y;
    }
  }
  for( int i=0 ; i<np ; i++ ){
    fprintf( fig->fptr,
      "%d %d ",
      fig->Fu(p[i].x), fig->Fu(p[i].y) );
  }
  fprintf( fig->fptr,
    "%d %d\n",
    fig->Fu(p[0].x), fig->Fu(p[0].y) );
}

//---- 多角形を塗る関数 --------------------------
void FFillPolygon( Display*, FIGID fig, FIGGC fgc, XPoint p[], int np, int, int mode )
{
  fprintf( fig->fptr,
    "2 3 0 1 %d %d 0 0 20 0.000 0 0 -1 0 0 %d\n",
    fgc->foreground, fgc->foreground, np+1 );

  if( mode == CoordModePrevious ){
    int px=p[0].x, py=p[0].y;
    for( int i=1 ; i<np ; i++ ){
      px = p[i].x = px + p[i].x;
      py = p[i].y = py + p[i].y;
    }
  }
  for( int i=0 ; i<np ; i++ ){
    fprintf( fig->fptr,
      "%d %d ",
      fig->Fu(p[i].x), fig->Fu(p[i].y) );
  }
  fprintf( fig->fptr,
    "%d %d\n",
    fig->Fu(p[0].x), fig->Fu(p[0].y) );
}

//---- 円/楕円を描く関数 -------------------------
// ang1, ang2は意味を持たず、真円、真楕円のみを描く
//------------------------------------------------
void FDrawArc( Display*, FIGID fig, FIGGC fgc, int xo, int yo, u_int w, u_int h, int, int )
{
  int sub_type;
  if( w == h ) sub_type = 4; else sub_type = 2;
  fprintf( fig->fptr,
    "1 %d 0 1 %d %d 0 0 -1 0.000 1 0.0000 ",
    sub_type, fgc->foreground, fgc->background );

  int xc, yc, a, b;
  a  = fig->Fu(w/2);
  b  = fig->Fu(h/2);
  xc = fig->Fu(xo) + a;
  yc = fig->Fu(yo) + b;
  if( sub_type == 4 ){ // circle
    fprintf( fig->fptr,
      "%d %d %d %d %d %d %d %d\n",
      xc, yc, a, b, xc-a, yc, xc+a, yc );
  }else{               // ellipse
    fprintf( fig->fptr,
      "%d %d %d %d %d %d %d %d\n",
      xc, yc, a, b, xc-a, yc-b, xc+a, yc+b );
  }
}

//---- 円/楕円を塗る関数 -------------------------
// ang1, ang2は意味を持たず、真円、真楕円のみを描く
//------------------------------------------------
void FFillArc( Display*, FIGID fig, FIGGC fgc, int xo, int yo, u_int w, u_int h, int, int )
{
  int sub_type;
  if( w == h ) sub_type = 4; else sub_type = 2;
  fprintf( fig->fptr,
    "1 %d 0 1 %d %d 0 0 20 0.000 1 0.0000 ",
    sub_type, fgc->foreground, fgc->foreground );

  int xc, yc, a, b;
  a  = fig->Fu(w/2);
  b  = fig->Fu(h/2);
  xc = fig->Fu(xo) + a;
  yc = fig->Fu(yo) + b;
  if( sub_type == 4 ){ // circle
    fprintf( fig->fptr,
      "%d %d %d %d %d %d %d %d\n",
      xc, yc, a, b, xc-a, yc, xc+a, yc );
  }else{               // ellipse
    fprintf( fig->fptr,
      "%d %d %d %d %d %d %d %d\n",
      xc, yc, a, b, xc-a, yc-b, xc+a, yc+b );
  }
}

//---- 文字を描く関数(英数字のみ) ----------------
void FDrawString( Display*, FIGID fig, FIGGC fgc, int x, int y, const char* str, int )
{
  fprintf( fig->fptr,
    "4 0 %d 0 0 %d %d 0.0000 4 0 0 ",
    fgc->foreground, FIG_Font_No[fgc->font_no], fgc->font_size );

  fprintf( fig->fptr,
    "%d %d %s\\001\n", 
    fig->Fu(x), fig->Fu(y), str );
}