BOX - [描画] |
||||||
… 四角形の描画
BOX X1,Y1,X2,Y2
X1: 始点X座標
Y1: 始点Y座標
X2: 終点X座標
Y2: 終点Y座標
X1,Y1の座標からX2,Y2の座標に四角形を描画します。座標はウィンドウの左上角が 0,0 です。
四角形の色には、COLORFGで指定した描画色を使用します。
画面外の座標も指定できますが、実際に描画される範囲は、物理的な範囲の画面のみとなります。
COLORFG、LINE、BOXFILL、BOXCIRCLE、CIRCLE、PSET、PAINT
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
BOX - [描画] |