PAINT - [描画] |
||||||
… 囲まれた範囲の塗りつぶし
PAINT X,Y
X: 表画面のX座標
Y: 表画面のY座標
表画面のX座標とY座標の位置から同じ色で囲まれた範囲を、COLORFGで指定した描画色で塗りつぶします。座標はウィンドウの左上角が 0,0 です。
この処理では、表画面を一度裏画面に取り込み、裏画面上でPAINT処理を行ってから、表画面に画像を転送しています。そのため、裏画面の内容は表画面と同じ内容に変更されます。
COLORFG、LINE、BOX、BOXFILL、BOXCIRCLE、CIRCLE、PSET
REM 944BASIC 'BOX/PAINT サンプル'
CLS: BOX 0,0,239,239
X=0: Y=0: L=120
FOR I=0 TO 8
X=X+20: Y=Y+20: L=L-10: WAIT 2
BOX X,Y,X+L,Y+L
BOX X,Y+L+10,X+10,230
BOX X+L+10,Y,230,Y+10
NEXT I
DIM TMP(4)
*LOOP SYNC
FOR I=0 TO 4
TMP(I)=(RND+TIME)%239
NEXT I
COLORFG TMP(0),TMP(1),TMP(2)
PAINT TMP(3),TMP(4)
GOTO *LOOP
PAINT - [描画] |