Colour bars/Display: Difference between revisions
Content added Content deleted
| Line 320: | Line 320: | ||
[[File:ColorBarRunBasic.png]] |
[[File:ColorBarRunBasic.png]] |
||
==={{header|TI Basic}}=== |
|||
<LANG TI BASIC> |
|||
100 REM SMPTE Format Color Bars |
|||
110 REM with 400 Hz reference tone |
|||
120 CALL CLEAR |
|||
130 CALL SCREEN(2) |
|||
140 CALL COLOR(8,15,1) |
|||
150 CALL COLOR(9,11,1) |
|||
160 CALL COLOR(10,8,1) |
|||
170 CALL COLOR(11,13,1) |
|||
180 CALL COLOR(12,14,1) |
|||
190 CALL COLOR(13,10,1) |
|||
200 CALL COLOR(14,5,1) |
|||
210 CALL COLOR(15,2,1) |
|||
220 CALL COLOR(16,16,1) |
|||
230 GOSUB 510 |
|||
240 REM color bars |
|||
250 CALL VCHAR(1,3,88,96) |
|||
260 CALL VCHAR(1,7,96,96) |
|||
270 CALL VCHAR(1,11,104,96) |
|||
280 CALL VCHAR(1,15,112,96) |
|||
290 CALL VCHAR(1,19,120,96) |
|||
300 CALL VCHAR(1,23,128,96) |
|||
310 CALL VCHAR(1,27,136,96) |
|||
320 REM BLACK BAR |
|||
330 CALL HCHAR(19,1,144,224) |
|||
340 REM WHITE BOX |
|||
350 FOR I=19 TO 24 |
|||
360 CALL HCHAR(I,8,152,6) |
|||
370 NEXT I |
|||
410 REM SMPTE Complementary boxes |
|||
420 CALL HCHAR(18,3,136,4) |
|||
430 CALL HCHAR(18,7,144,4) |
|||
440 CALL HCHAR(18,11,120,4) |
|||
450 CALL HCHAR(18,15,144,4) |
|||
460 CALL HCHAR(18,19,104,4) |
|||
470 CALL HCHAR(18,23,144,4) |
|||
480 CALL HCHAR(18,27,88,4) |
|||
490 CALL SOUND(3000,400,12) |
|||
500 GOTO 490 |
|||
510 SQUARE$="FFFFFFFFFFFFFFFF" |
|||
520 FOR I = 88 TO 152 STEP 8 |
|||
530 CALL CHAR(I,SQUARE$) |
|||
540 NEXT I |
|||
590 RETURN |
|||
</LANG> |
|||
==={{header|ZX Spectrum Basic}}=== |
==={{header|ZX Spectrum Basic}}=== |
||