2013年02月23日投稿 / 投稿者 : otya / タグ : 投稿プログラム QRコード mkII専用
塗りつぶしルーチンです。
プチコンmkII 向けの QR コードです。
- DIM SX[256*192],SY[256*192]
- @PAINT
- P=0
- SX[0]=X:SY[0]=Y
- B=GSPOIT(SX,SY)
- @FILL
- IF P==-1THEN RETURN
- GPSET SX[P],SY[P],C
- G1=GSPOIT(SX[P]-1,SY[P])
- G2=GSPOIT(SX[P],SY[P]-1)
- G3=GSPOIT(SX[P]-1,SY[P])
- G4=GSPOIT(SX[P],SY[P]-1)
- IF G1==B THEN P=P+1SX[P]=SX[P-1]-1SY[P]=SY[P-1]GOTO@FILL
- IF G2==B THEN P=P+1SX[P]=SX[P-1]SY[P]=SY[P-1]-1GOTO@FILL
- IF G3==B THEN P=P+1SX[P]=SX[P-1]+1SY[P]=SY[P-1]GOTO@FILL
- IF G4==B THEN P=P+1SX[P]=SX[P-1]SY[P]=SY[P-1]-1GOTO@FILL
- P=P-1
- GOTO@FILL
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)