#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/cursorfont.h> /*to change cursor*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h> /*文字列操作*/
#include <ctype.h> /*for tolower*/
#include <unistd.h> /*for usleep*/
#include <fcntl.h> /*以下3つはprinter port との通信のために必要*/
#include <dev/ppbus/ppi.h>
#include <dev/ppbus/ppbconf.h>
#include <time.h> /*実行に掛かった時間を測るため*/

int pps=100,num; /*外で宣言した(grobal)変数は*/
Display* dis;    /*その値を保ち続けるので、  */
Window canv;     /*多関数間での共有ができる！*/

#define MAX 512
#ifndef ERR /*定義されてなかったら定義する*/
#define ERR -1
#endif
#define TchX 0x40 /*x sensor*/
#define TchY 0x20 /*y sensor*/
#define ON 0x10
#define OFF 0x00
#define CELL 2
#define Clea 10 /*clearance*/
#define CAN_W (CELL*(505-Clea*2)) /*稼働領域397mm×210mmで、*/
#define CAN_H (CELL*(267-Clea*2)) /*1dot=.785mmやし。*/
#define R_H 740 /*Janetの画面の高さ(ちなみに幅の方は1020)*/
#define re_x(t) ((t+.5)*CELL) /*関数ﾓﾄﾞｷも定義可(ﾏｸﾛ)*/
#define re_y(t) ((t+.5)*CELL)
#define PenUp 0.1
#define WAIT 8500 /*実験で求めたおおよその1/2秒あたりprint処理回数*/
#define PMAX 400 /*maximal pps*/
#define PMIN 10 /*minimal pps*/

typedef struct{
  int x,y;
  u_int8_t connection;
} COORD;

/* ここで全関数の型を先に宣言した方がいいっちゃいいんやけど、
記述する順番にさえ気をつければ大丈夫(よい子は真似しないかも)。
*/

/* ----------------------------------- question & input */
char ask(char str[]){
  char a;
  printf("\a%s: ",str);
  fpurge(stdin);
  if((a=getchar())==0xa) ask(str); //改行やったら訊き直す
  return tolower(a); //小文字で返す
}

/* -------------------------------- get the color pixel */
unsigned long c_pix(Colormap cm,char *name){
  XColor c0,c1;
  XAllocNamedColor(dis,cm,name,&c1,&c0); //色のpixel値を返す
  return c1.pixel;
}

/* --------------------------- 線分の始点を青い●で表示 */
void mark(GC gc,int x,int y,unsigned long px[]){
  XSetForeground(dis,gc,px[6]^px[4]); //XORされるのでXORしておく
  XFillArc(dis,canv,gc,x-4,y-4,8,8,0,360*64);
  XFlush(dis);
}

/* ----------------------------------------- 太線を描画 */
void trace(GC gc,COORD dat[],int start,int end){
  int i;
  for(i=start;i<end;i++)
    if(dat[i].connection==ON)
      XDrawLine(dis,canv,gc,re_x(dat[i].x),re_y(dat[i].y),re_x(dat[i+1].x),re_y(dat[i+1].y));
  XFlush(dis);
}

/* --------------------------------------- 残り点数表示 */
void lest(int n){
  int i;
  i=strlen("You can point ### more.");
  while(i--) printf("\b"); //[BackSpace]を文字数分出力
  printf("You can point %3d more.",MAX-2-n);
  fflush(stdout); //強制表示(cf.XFlush)
}

/* ----------------------------------------- input name */
char* filename(char str[],char s_l[]){
  int i;
  printf("Input the file name: ");
  fpurge(stdin); //bufferを空にする
  scanf("%s",str);
  if(str[0]=='\0') strcpy(str,"untitled"); //名無しは「名無し」と名付ける
  for(i=0;i<strlen(str);i++){
    if(str[i]=='.'){ //もし'.'があったらその後ろを消す
      str[i]='\0'; //(お分かりのように、今の場合file名中には
      break;       // '.'を使えない。)
    }
  }
  str=strcat(str,".sxy"); //拡張子まがいのものをつける
  printf("Trying to %s `%s'...\n",s_l,str);
  return str; //address of string
}

/* ------------------------------------------ data save */
int save(COORD dat[],int n,char name[]){
  FILE *fp;
  int i;

  if((fp=fopen(name,"w"))==NULL){ //書き込みモード("w")で開く
    fprintf(stderr,"You couldn't open the file.\n");
    return ERR; //開けなかったらエラー処理
  }

  fprintf(fp,"#======================================#\n");
  fprintf(fp,"# %s",name);
  for(i=0;i<37-strlen(name);i++) fprintf(fp," "); //空白で埋める
  if(strlen(name)<38) fprintf(fp,"#"); //file名が壁を突き破るほど長けりゃ壁は書かない
  fprintf(fp,"\n");
  fprintf(fp,"#   data for SEXY  (x,y /connection)   #\n");
  fprintf(fp,"#======================================#\n\n");
  for(i=1;i<=n;i++)
    fprintf(fp,"%3d,%3d /%x\n",dat[i].x,dat[i].y,dat[i].connection);
  fclose(fp);
  return --i;
}

/* ------------------------------------------ data load */
int load(COORD dat[],char name[]){ //読み取りモード("r")で開く
  FILE *fp;
  char str[80],check[2];
  int i=0;
  if((fp=fopen(name,"r"))==NULL){
    fprintf(stderr,"You couldn't open file `%s'. It may not exist.\n",name);
    return ERR;  
  }
  do{
    fgets(str,80,fp); //1行ごと読み込み
    sscanf(str,"%1s",&check); //先頭文字を抽出(spaceを排除)
    if(str[0]=='\n'||check[0]=='#') continue; //空行,ｺﾒﾝﾄ無視
    ++i;
    sscanf(str,"%d,%d /%x",&dat[i].x,&dat[i].y,&dat[i].connection);
  }while(!(ferror(fp)||feof(fp))); //エラーや末尾なら止める
  fprintf(stdout,"`%s' loaded successfully.\n",name);
  return i;
}

/* ------------------------------------- how long it takes */
int proceeding(COORD dat[],int n){
  int dx,dy,i,p=0,min;
  float sec=.0,warmup;
  warmup=Clea*3/(double)pps;
  for(i=0;i<n;i++){
    dx=abs(dat[i+1].x-dat[i].x);
    dy=abs(dat[i+1].y-dat[i].y);
    p+=(dx>dy?dx:dy); //dxとdyで大きい方
    sec+=(dat[i].connection==OFF)*PenUp;
  }
  p/=pps;
  p+=sec;
  min=p/60;
  sec=p%60;
  printf("The time to process will be %.2f\" + %d\'%.2lf\".\n",warmup,min,sec);
  return p;
}

/* -------------- sleep 1/pps/2 seconds after the pulse */
void pulse(int f,u_int8_t* vp){
  int s;
  ioctl(f,PPISDATA,vp);
  for(s=0;s<WAIT/(float)pps-.015;s++){
    fprintf(stdout,"\b ");
    fflush(stdout);
  }
}

/* ---------------------------- 零点補正のためのroutine */
void move(int fd,u_int8_t v1,u_int8_t v2,u_int8_t chk,int dst){
  int i=0;
  u_int8_t tch;
  while(i<dst*2){
    v1^=v2; //XOR演算⇒v1の clock pulse を出力
    pulse(fd,&v1);
    ++i;
    if(chk==OFF) continue;

    --i; //無限ループのためiを増やさない
    ioctl(fd,PPIGDATA,&tch);
    if(tch&chk) break; //tch掛けるchkが1(センサに当った)なら止める
  }
}

/* ---------------------------------- ctl終了決まり文句 */
void endctl(int f){
  u_int8_t v=OFF;
  ioctl(f,PPISDATA,&v);
  close(f);
}

/* ---------------------------------------- 実際に prot */
double draw(COORD dat[],int n){
  int i,j,k,s,bar,dx,dy,fd;
  u_int8_t val,cp,tch,x_y;
  float dk,ax,ay,percentage;
  time_t start,temp1;
  double past,temp2,temp3,temp4;

  /*DATA#と用途の対応は次の通り(cp=Clock Pulse)
  | #6:xsensor #5:ysensor #4:pen
  | #3:xcp #2:xdirection(正=1) #1:ycp #0:ydirection(正=0)
  */
  fd=open("/dev/ppi0",O_RDWR,0600);

  fprintf(stdout,"Warming up...\n"); //まずは零点補正…
/*move(fd,0x04,0x0a,OFF,20); dx>0,dy>0,checkしない
  move(fd,0x01,0x02,TchY,NULL);   dx=0,dy<0,yをcheck
  move(fd,0x00,0x08,TchX,NULL);   dx<0,dy=0,xをcheck
  回路班の都合によりセンサを着けてないからできない */
//左上端におるとして、余裕を持たせるため今の座標を(-Clea,-Clea)とする。
  move(fd,0x04,0x0a,OFF,Clea); //俺が定めた原点にイかせる。

  fprintf(stdout,"\bProtting...\n"); //で、ここからprotting。
  start=time(NULL);
  printf("[                ]  0％ ");
  fflush(stdout);
  for(i=0;i<n;i++){
    if(dat[i+1].x<0||dat[i+1].x>CAN_W/CELL||dat[i+1].y<0||dat[i+1].y>CAN_H/CELL){
      fprintf(stderr,"\nWrong coordination value!\n");
      endctl(fd);
      return ERR;
    }
    val=dat[i].connection;
    ioctl(fd,PPISDATA,&val); //まずペンを上げ下げ
    if(val==OFF&&dat[i-1].connection==ON)
      usleep(PenUp*1000000); //跳ねないようにちょっと待つ
    dx=dat[i+1].x-dat[i].x;
    dy=dat[i+1].y-dat[i].y;
    val|=((dx>0)<<2)|(dy<0); //x,yの回転方向(#2,#0)を設定
    /*条件判別式(例えば'x>0')は真⇒1、偽⇒0の値を取る
      '<<N'は左に N bits shift つまり2のN乗を掛けることに相当
      '>>N'は右に N bits shift つまり2の-N乗を掛けることに相当
    */
    ax=abs(dx);
    ay=abs(dy);

    k=0;
    temp1=time(NULL);
    for(j=0;j<(ax<ay?ay:ax);j++){ //j<max{ay,ax}なら繰り返す
      val&=~0xa; //両方の clock pulse を off
      pulse(fd,&val);

      dk=(j+1)*(ax<ay?ax/ay:ay/ax)-(float)k; //上昇分
      if(dk<.5) //増分が小さいときは
	val|=0x8>>(2*(ax<ay)); //x(#3)またはy(#1)のみ on
      else{
	val|=0xa; //両方とも on
	k++;
      }
      pulse(fd,&val);

      ioctl(fd,PPIGDATA,&tch); /*センサを調べる
      if(tch&0x60){
	fprintf(stderr,"\n触られて、\n");
	if(tch&0x40)
	  fprintf(stderr,"x軸のセンサが感じちゃいました。\n");
	if(tch&0x20)
	  fprintf(stderr,"y軸のセンサが感じちゃいました。\n");
	endctl(fd);
	return ERR;
	}*/
    } //end of for(j) in L238

    //進行状況を表示する
    percentage=(i+1.0)/(n+1.0);
    for(bar=0;bar<22;bar++) putchar('\b');
    for(bar=1;bar<=16;bar++) putchar(bar-.5<=percentage*16?'*':' ');
    fprintf(stdout,"]%3.0lf％",percentage*100);
    fflush(stdout);
  }
  for(bar=0;bar<22;bar++) putchar('\b');
  for(bar=1;bar<=16;bar++) putchar('*');
  fprintf(stdout,"]100％  Complete.\n");

  endctl(fd);
  past=difftime(time(NULL),start); //何秒かかったか
  return past;
}

/* --------------------------------------- Display Help */
void mouse(Window r,Window m,Colormap cm,unsigned long px[]){
  int c=3;
  GC soli,stip;
  static char dots[]={0xfc,0xfe,0xff,0xfe,0x9f,0xff,0x9f,0xdf,0xff,0xdf,0xff,0xf3,
		      0xff,0xf3,0xfb,0xf3,0xfb,0xff,0xfb,0x7f,0xfe,0x7f,0x7e,0xff,
		      0x7e,0xff,0xef,0xff,0xcf,0xef,0xcf,0xef,0xff,0xef,0xff,0xf9,
	 	      0xff,0xf9,0xfd,0xf9,0xfd,0xff,0xfd,0x3f,0xff,0x3f,0xbf,0xff,
		      0xbf,0xff,0xe7,0xff,0xe7,0xf7,0xe7,0xf7,0xff,0xf7,0xff,0xfc,
		      0xff,0xfc,0xfe}; //模様のdata
  static XPoint p[3][10]={{44,65, 40,100, 40,111, 68,116, 68,64},
			  {69,64, 69,116, 94,116, 94,67, 0,0},
			  {95,67, 95,115, 118,112, 120,96, 118,72}},
    p_l[14]={47,147, 45,165, 52,194, 58,207, 64,218, 64,189, 54,169},
      p_r[8]={116,126, 112,156, 109,165, 120,156},
	rim[12]={119,156, 116,126, 119,100, 120,92, 118,72, 95,67};
	//XPoint型構造体のメンバは short x,y
	//  static num[]={5,4,5};p[i]に含まれる点の個数

  soli=XCreateGC(dis,r,0,0);
  stip=XCreateGC(dis,r,0,0);
  XSetFillStyle(dis,soli,FillSolid); //蛇足やけど一応。
  XSetForeground(dis,stip,c_pix(cm,"DarkSlateBlue"));
  XSetBackground(dis,stip,c_pix(cm,"SlateBlue"));
  XSetFillStyle(dis,stip,FillOpaqueStippled); //自分で定義した模様にする
  XSetStipple(dis,stip,XCreateBitmapFromData(dis,m,dots,21,21));
//------------------ 塗りつぶし
  XSetForeground(dis,soli,c_pix(cm,"LightGrey"));
  XFillRectangle(dis,m,soli,76,112,41,54);
  XFillArc(dis,m,soli,40,-24,72,248,180*64,90*64);
  XFillArc(dis,m,soli,32,108,88,116,-90*64,115*64);
// button
  while(c){
    XSetForeground(dis,soli,px[c--]);
    XFillPolygon(dis,m,soli,p[c],5-c%2,Convex/*凸型多角形*/,CoordModeOrigin/*絶対値座標*/);
  }

// grip
  //left side
  XDrawLine(dis,m,stip,40,114,47,149);
  XFillPolygon(dis,m,stip,p_l,7,Convex,CoordModeOrigin);
  XFillArc(dis,m,stip,44,184,24,36,-3600,7440);
  //right side
  XFillPolygon(dis,m,stip,p_r,4,Convex,CoordModeOrigin);
  XFillArc(dis,m,stip,108,156,24,40,90*64,150*64);

//----------------------- 輪郭
  XSetForeground(dis,soli,px[0]);
  XDrawArc(dis,m,soli,0,64,128,48,4000,2900);
  XDrawArc(dis,m,soli,-80,-204,320,320,-6680,1800);
  XDrawLine(dis,m,soli,68,64,68,115);
  XDrawLine(dis,m,soli,94,67,94,115);

  XDrawLine(dis,m,soli,44,65,40,100);
  XDrawArc(dis,m,soli,40,-24,72,248,180*64,90*64);
  XDrawArc(dis,m,soli,32,108,88,116,-90*64,7070);
  XDrawLines(dis,m,soli,rim,6,CoordModeOrigin);

  XDrawLine(dis,m,soli,118,148,116,120);

  //-------------bottun configurations
  XDrawLine(dis,m,soli,36,28,54,85);
  XDrawLine(dis,m,soli,82,52,80,86);
  XDrawLine(dis,m,soli,116,36,106,88);
  XSetFont(dis,soli,XLoadFont(dis,"-adobe-utopia-regular-r-normal-*-120-*-*-*-*-iso8859-*"));
  XDrawString(dis,m,soli,16,24,"Set a point",11);
  XDrawString(dis,m,soli,64,48,"Undo",4);
  XDrawString(dis,m,soli,96,32,"Cancel",6);
  XFlush(dis);
}

/* ------------------------------------ encolor the button */
void encolor(Colormap cm,unsigned long p,int flg){
  XStoreNamedColor(dis,cm,"Salmon",p,flg);
  XFlush(dis);
  usleep(100000); //色が変わったのが判るように一瞬待つ
  XStoreNamedColor(dis,cm,"LightGrey",p,flg);
  XFlush(dis);
}

/* -------------------------------------------------- 後記 */
void Coments(){
  printf("\n"
	 "■参考文献/web page\n"
	 "・「C言語課題」 by 浅川直樹\n"
	 "・「新C言語入門 ﾋﾞｷﾞﾅｰ編」 by 林晴比古\n"
	 "・「ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ言語C 第２版」 by B.W.ｶｰﾆﾊﾝ/D.M.ﾘｯﾁｰ\n"
	 "・「X-Window Ver.11ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ【第２版】」 by 木下凌一/林秀幸\n"
	 "・「Xlib入門」(www-cms.phys.s.u-tokyo.ac.jp/~naoki/CIPINTRO/XLIB/) by 渡辺尚貴\n"
	 "・「Programing」(www1.u-netsurf.ne.jp/~ozawa/prog/prog.html) by ｵｻﾞﾜﾉﾘｱｷ\n"
	 "\n"
	 "■製作者連絡先(05年３月まで)\n"
	 "  〒921-8031 金沢市野町5-8-10 泉学寮\n"
	 "   西野 高志\n"
	 "  076-242-3241(呼出)\n"
	 "\n"
	 "■一言\n"
	 "  ちょっとヤりすぎました…\n"
	 "  分からない事があったら私の現連絡先を調べあげてご連絡下さい。"
	 "\n"
	 " (c) July 29, 2004 by Nishino Takashi\n"
	 "\n");
}