Colour bars/Display: Difference between revisions
Content added Content deleted
(Dialects of BASIC moved to the BASIC section.) |
(→{{header|Chipmunk Basic}}: Added.) |
||
Line 353: | Line 353: | ||
RECTANGLE FILL C%*W%, 0, W%, H% |
RECTANGLE FILL C%*W%, 0, W%, H% |
||
NEXT |
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> |
</syntaxhighlight> |
||