Colour pinstripe/Display: Difference between revisions
→{{header|XPL0}}
(Added Wren) |
|||
Line 1,441:
SetVid(3); \restore normal text mode display
]</lang>
=={{header|Yabasic}}==
{{trans|SmileBASIC}}
<lang Yabasic>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
</lang>
{{omit from|AWK}}
| |||