ポケコン PC-G850Vで電子回路工作(6/10)

ビジュアライゼーションを少し。

BALLを8x8で書いて動かしてみる途中のプログラム。
転がる様子をパターンにしてそれっぽく動かすのは、やっぱりセンスと手間がかかるね。

10  main() {
15   unsigned char a[34]={0,2,6,2,6,0,4,2,6,0,5,0,5,0,5,0,5,
                          0,5,0,5,0,5,0,5,0,5,0,5,0,5,8,12,99};
20   char b[3][21]={"003C7EFFFFFDFD723C00",
                    "003C4EFFFFFDFD723C00",
                    "003C7EFFFFCDFD723C00"};
21   char u[21]="00000000000000000000";
22   int c,d,i;
23   unsigned char r;
24   int x=-1,w,m=0,k=0;
28   clrscr();
30   outport(0x60,1);
40   outport(0x61,1);
45   do {
50    c=10;d=0;i=-1;
70 /* while(a[++i]!=99) {*/
80    do {
90     outport(0x62,(a[i] & 0xFE));
100    if((a[i] & 1)!=0){
120     r=inport(0x62);
140     if(c!=10) {
150      if(r==1)
155       d+=(1＜＜c);
160      if(c==0) { w=(int)(d/8);
162         if(x!=w) {
164       gcursor(70+(k++%50),25);
165       if(k==49){gcursor(70+48,25);gprint(u);k=0;}else gprint(b[m++%3]);
166       gotoxy(0,3);printf("%d",d);
167       line(x+(x＜w),0,w+(x＞w),15,2,0xFFFF,2);x=w;}
168     /*pset(x++,d/22,1); */
169     /*x=(x<144)*x;*/
170      }
175     }
180     c--;
185    }
190   } while(a[i++]!=99);
200  } while(1);
210 }

ポケコンのプログラムをエディタに貼り付けて保存していたのをそのまま貼り付けてみた。まだ改善絶賛進行中なので期待しない事。