#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <math.h>
#include "kg.h"

#define N (600)

#define X0 (80+900+80)
#define X1 (80)
#define X2 (80+900)

#define Y0 (24+N+64+24)
#define Y1 (24)
#define Y2 (24+N)
#define Y3 (24+N+64)

#define P0 (40)
#define P1 (120)


int main(int argc,char **argv) {
  int n;
  static unsigned short dat[1800];
  static unsigned char dat2[N][900];
  int c0;
  int c1;
  int c2;
  int c3;
  int i;
  int j;
  FILE *fp;
  int c;
  static char s[256];

  n=0;
  while (1) {
    fprintf(stderr,"%d\n",n);
    fread(dat,sizeof(short),1800,stdin);if (feof(stdin)) break;
    for (i=0;i<450;i++) {
      c0=127*(dat[i*4  ]/100.0-P0)/(P1-P0);
      c1=127*(dat[i*4+1]/100.0-P0)/(P1-P0);
      c2=127*(dat[i*4+2]/100.0-P0)/(P1-P0);
      c3=127*(dat[i*4+3]/100.0-P0)/(P1-P0);
      if (c0<c2) c0=c2;if (c0<0) c0=0;if (c0>127) c0=127;
      if (c1<c3) c1=c3;if (c1<0) c1=0;if (c1>127) c1=127;
      dat2[n][i    ]=c0;
      dat2[n][i+450]=c1;
    }
    //sprintf(s,"convert png:- %1d.jpg",n%10);
    //fp=popen(s,"w");
    sprintf(s,"%1d.png",n%4);
    fp=fopen(s,"w");
    KGopen(X0,Y0,"color","png",fp);
    KGstring(20,X1,Y1-2,1,"Kawatabi",black);
    KGbox(X1-1,Y1-1,X2+1,Y3+1,black);
    //KGline(X1+215/2,Y3,X1+215/2,Y3+2,black);
    //KGline(X1+548/2,Y3,X1+215/2,Y3+2,black);
    //KGline(X1+882/2,Y3,X1+215/2,Y3+2,black);
    //KGline(X1+450+215/2,Y3,X1+215/2,Y3+2,black);
    //KGline(X1+450+548/2,Y3,X1+215/2,Y3+2,black);
    //KGline(X1+450+882/2,Y3,X1+215/2,Y3+2,black);
    KGstring(20,X1+215/2,Y3+4,8,"20",black);
    KGstring(20,X1+548/2,Y3+4,8,"30",black);
    KGstring(20,X1+882/2,Y3+4,8,"40",black);
    KGstring(20,X1+450+215/2,Y3+4,8,"20",black);
    KGstring(20,X1+450+548/2,Y3+4,8,"30",black);
    KGstring(20,X1+450+882/2,Y3+4,8,"40",black);

    KGstring(20,X1-4,Y1+120,6,"-240",black);
    KGstring(20,X1-4,Y1+240,6,"-180",black);
    KGstring(20,X1-4,Y1+360,6,"-120",black);
    KGstring(20,X1-4,Y1+480,6,"-60",black);

    for (j=0;j<N;j++) {
      for (i=0;i<900;i++) {
        c=dat2[(n+j+1)%N][i];
        KGline(X1+i,Y1+j,X1+i,Y1+j,col[c]);
      }
    }

    for (i=0;i<900;i++) {
      c=dat2[n][i]/2;
      KGline(X1+i,Y2,X1+i,Y3-c,white);
      KGline(X1+i,Y3-c,X1+i,Y3,blue);
    }
    KGline(X1+450,Y1,X1+450,Y3,black);
    KGclose();
    //pclose(fp);
    fclose(fp);
    n++;if (n>=N) {n=0;break;}
  }

  exit(0);
}