リバーシを作ってみる。その２

今回は石の描画までやってみた。置かれてる石の色を表す配列を作り、その要素を１つずつ取り出してGCIRCLEで描画している。次回は入力された場所に石を描画するようにしたい。簡単に一部の変数の説明を載せておく

• BD 置かれてる石の色を表す２次元配列
• MX X方向にボードをずらす量
• MY Y方向にボードをずらす量
• C １マスのサイズ
• W ボードのサイズ

CLEAR
PNLTYPE"OFF"
GPAGE 1

@START
GCLS15

DIM BD(10,10)

MX=50
MY=15
C=20
W=8*C

GBOX MX,MY,W+MX,W+MY
GPAINT MX+1,MY+1,10

FOR I=0 TO 8
 L=C*I
 GLINE MX,L+MY,W+MX,L+MY,14
 GLINE L+MX,MY,L+MX,W+MY,14
NEXT

BD(4,4)=1
BD(4,5)=2
BD(5,4)=2
BD(5,5)=1
GOSUB @DRAW

@LOOP
GOTO @LOOP

@DRAW
 FOR Y=0 TO 8
  FOR X=0 TO 8
   ST=BD(X,Y)
   IF ST>0 THEN GOSUB @STONE
  NEXT
 NEXT
RETURN

@STONE
 DX=X*C+MX-10
 DY=Y*C+MY-10
 GCIRCLE DX,DY,8,14+ST
 GPAINT DX,DY,8,14+ST
RETURN