Colour bars/Display: Difference between revisions
→{{header|Chipmunk Basic}}: Added.
(Dialects of BASIC moved to the BASIC section.) |
(→{{header|Chipmunk Basic}}: Added.) |
||
Line 353:
RECTANGLE FILL C%*W%, 0, W%, H%
NEXT
</syntaxhighlight>
==={{header|Chipmunk Basic}}===
The sequence of colors.
<syntaxhighlight lang="basic">
100 rem Colour bars/Display
110 graphics 0 : graphics cls
120 for i = 0 to 7
130 read r,g,b
140 graphics color r,g,b
150 for j = 0 to 79
160 x = i*80+j
170 graphics moveto x,0
180 graphics lineto x,399
190 next j
200 next i
500 data 0,0,0 : rem black
510 data 100,0,0 : rem red
520 data 0,100,0 : rem green
530 data 0,0,100 : rem blue
540 data 100,0,100 : rem magenta
550 data 0,100,100 : rem cyan
560 data 100,100,0 : rem yellow
570 data 100,100,100 : rem white
</syntaxhighlight>
| |||