25 lines
411 B
Text
25 lines
411 B
Text
w = 640 : h = 480
|
|
open window w, h
|
|
h4 = h/4
|
|
|
|
FOR I=1 TO 4
|
|
COLIDX=0
|
|
YTOP=(I-1)*h4
|
|
FOR X=1 TO w STEP I
|
|
IF mod(COLIDX, 8) = 0 RESTORE COLOURS
|
|
READ R,G,B
|
|
color R, G, B
|
|
fill rectangle X,YTOP,X+I,YTOP+h4
|
|
COLIDX = COLIDX + 1
|
|
NEXT
|
|
NEXT
|
|
|
|
label COLOURS
|
|
DATA 0,0,0
|
|
DATA 255,0,0
|
|
DATA 0,255,0
|
|
DATA 0,0,255
|
|
DATA 255,0,255
|
|
DATA 0,255,255
|
|
DATA 255,255,0
|
|
DATA 255,255,255
|