/*'manual_ctrl.c': SEXY用の手動によるtest drive program。
| header file 'sexy.h' を用いており、また、便宜のため
| 'makefile' を用意した。
|
|※正しいppsの値を入れても何故かもう１度訊かれるというbugが残っています。
| ごめんなさい。
| 7/29/04 Nishino Takashi
*/

#include "sexy.h"

#define Rept(n) for(i=0;i<n;i++)
#define Quit 8
#define Nutral 0

int main(){
  Window root,win,but[9],jud;
  Pixmap pxm;
  Colormap cm;
  GC gc,bkline;
  XSetWindowAttributes at;
  XEvent evt;
  int fd,flags=DoRed|DoGreen|DoBlue;
  unsigned i,state,pps;
  u_int8_t v1,v2,v3;
  unsigned long blk,wht,pln,pix[9];
  static ori[]={0,0, 85,0, 170,0, 170,85, 170,170, 85,170, 0,170, 0,85, 85,85};
  static XPoint p[8][10]={
    {   +17,+17,    +21,+60, +10,-29, +29,-10 , -60,-21},
    {   127,+12,    -28,+56, +28,-12, +28,+12 , -28,-56},
    {254-17,+17,    -21,+60, -10,-29, -29,-10 ,  60,-21},
    {254-12,127,    -56,-28, +12,+28, -12,+28 ,  56,-28},
    {254-17,254-17, -21,-60, -10,+29, -29,+10 ,  60, 21},
    {   127,254-12, -28,-56, +28,+12, +28,-12 , -28, 56},
    {   +17,254-17, +21,-60, +10,+29, +29,+10 , -60, 21},
    {   +12,127,    +56,-28, -12,+28, +12,+28 , -56,-28}
  };
  time_t meas;
  double sec;

  dis=XOpenDisplay(NULL);
  cm=DefaultColormap(dis,0);
  blk=BlackPixel(dis,0);
  wht=WhitePixel(dis,0);
  root=RootWindow(dis,0); //same as DefaultRootWindow
  win=XCreateSimpleWindow(dis,root,400,100,255,255,2,blk,wht);
  pxm=XCreatePixmap(dis,win,255,255,DefaultDepth(dis,0));
  Rept(9)
    but[i]=XCreateWindow(dis,win,ori[i*2],ori[i*2+1],85,85,0,0,InputOnly,CopyFromParent,NULL,NULL); //透明な入力専用window

  XStoreName(dis,win,"manual controler - SEXY"); //window title

  XSelectInput(dis,win,ExposureMask);
  Rept(9)
    XSelectInput(dis,but[i],ButtonPressMask|ButtonReleaseMask);

  at.backing_store=WhenMapped; //この機能は機能しない事が殆んどなので、後に
  XChangeWindowAttributes(dis,win,CWBackingStore,&at); //Pixmapを併用する。

  XMapWindow(dis,win);
  XMapSubwindows(dis,win); //子windowを一括map
  do XNextEvent(dis,&evt); while(evt.type!=Expose); //map待ち

  if(XAllocColorCells(dis,cm,False,&pln,0,pix,9))
    Rept(9) XStoreNamedColor(dis,cm,"grey",pix[i],flags); //私有色定義
  else{ printf("Failed allocating.\n"); exit(0); }

// draw arrows on pixmap
  gc=XCreateGC(dis,root,0,0); //GCをふたつ用意
  bkline=XCreateGC(dis,root,0,0);
  XSetForeground(dis,gc,c_pix(cm,"snow"));
  XSetForeground(dis,bkline,blk);
  XFillRectangle(dis,pxm,gc,0,0,255,255); //背景を白で塗りつぶす
  XSetGraphicsExposures(dis,gc,False); //Copyに使うGCにはこの設定をした方がいい
  Rept(9){
    XSetForeground(dis,gc,pix[i]);
    if(i==8) break; //i<=7までは矢印を描き、
    XFillPolygon(dis,pxm,gc,p[i],4/*点の数。自動的に閉じてくれる。*/,
		 Nonconvex/*凸型(Convex)とは限らないが辺は交差しない*/,
		 CoordModePrevious/*相対座標で*/);
    XDrawLines(dis,pxm,bkline,p[i],5/*自動的に閉じてくれないので終点(=始点)まで指定せなかん。*/,
	       CoordModePrevious);
  }
  XFillArc(dis,pxm,gc,85+15,85+15,55,55,0,23040); //i=8では円を描く。
  XDrawArc(dis,pxm,bkline,85+15,85+15,55,55,0,23040);

  XCopyArea(dis,pxm,win,gc,0,0,255,255,0,0); //pixmapからwinにcopy
  XFlush(dis); //忘れやすいけどこれがないと即座に描かれない

  fd=open("/dev/ppi0",O_RDWR,0600);
// ----------------------------------------------------- main
  do{
    i=0;
    printf("Input the frequency(pps;%d-%d) (End if 0): ",PMIN,PMAX);
    fpurge(stdin); scanf("%d",&pps);

    XWarpPointer(dis,None,win,0,0,0,0,127,127);
    state=Nutral;

    while(pps>PMIN && pps<=PMAX && state!=Quit){
      if(i!=Quit) Rept(9) XStoreNamedColor(dis,cm,"Red",pix[i],flags);

      XNextEvent(dis,&evt);
      switch(evt.type){

      case Expose:
	XCopyArea(dis,pxm,win,gc,evt.xexpose.x,evt.xexpose.y,evt.xexpose.width,evt.xexpose.height,evt.xexpose.x,evt.xexpose.y);
	XFlush(dis);
	continue;

      case ButtonPress:
	Rept(8) if(evt.xbutton.window==but[i]) break; //これでボタン番号が得られる(ただしdefaultはquitとみなす)

	/*ここで、ボタンの番号を示す。
	  ------------------------
	  | 0(＼) | 1(↑) | 2(♂) |  0  1
	  |-------+-------+-------|1┌→x
	  | 7(←) |8(quit)| 3(→) | ↓
	  |-------+-------+-------|0 y
	  | 6(〆) | 5(↓) | 4(ゝ) |
	  ------------------------
	*/

	XStoreNamedColor(dis,cm,"Coral",pix[i],flags);
	XFlush(dis);

	if(i!=Quit){
	  v1=(i>1&&i<5)<<2|(i<3); //x,yの回転方向(#2,#0)を設定
	  v2=(i%4!=1)<<3|(i%4!=3)<<1; //x,yの回転の有無

	  meas=time(NULL); //計測始め
	  for(i=0;XCheckMaskEvent(dis,ButtonReleaseMask,&evt)==False;i++){
	    //XNextEventはeventを待つが、XCheckMaskEventは待たずにFalseを出す
	    pulse(fd,&v1);
	    v1^=v2; //XOR演算
	  }
	  sec=difftime(time(NULL),meas); //計測終り
	  i/=2;
	  fprintf(stdout,"\n%dcounts/%.0lfsec = %.1lfpps ( ideal: %d)\n"
		  "error=(1/real - 1/ideal)=%lf seconds\n"
		  ,i,sec,i/sec,pps,sec/(double)i-1/(double)pps);
	  i=0; //Quit(=8)以外の値に初期化
	}
	continue;

      case ButtonRelease:
	if(i==Quit){
	  state=i;
	  Rept(9)
	    XStoreNamedColor(dis,cm,"grey",pix[i],flags);
	  XFlush(dis);
	  XWarpPointer(dis,win,root, 0,0/*範囲始点*/, 0,0/*終点(0を書くと「最大まで」の意になる)*/,10,100); //win内にいたら飛ばす
	}
      } //switch終り
      break; //Releaseのときだけ(それ以外はcontinue;なので)ループから出る
    } //roop1
  } while(pps); //roop2

  endctl(fd);
  XFreePixmap(dis,pxm);
  XDestroyWindow(dis,win);
  XCloseDisplay(dis);
}