Colour bars/Display: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Forth}}: fix markup) |
No edit summary |
||
| Line 959: | Line 959: | ||
Locate ,, 1 '' turn cursor on |
Locate ,, 1 '' turn cursor on |
||
Color 7, 0 '' white text on black background</syntaxhighlight> |
Color 7, 0 '' white text on black background</syntaxhighlight> |
||
=={{header|FutureBasic}}== |
|||
<syntaxhighlight lang="futurebasic"> |
|||
void local fn DoIt |
|||
long index, x = 0 |
|||
CFArrayRef colors = @[fn ColorBlack,fn ColorRed, |
|||
fn ColorGreen,fn ColorBlue,fn ColorMagenta, |
|||
fn ColorCyan,fn ColorYellow,fn ColorWhite] |
|||
window 1, @"Color bars/Display", (0,0,480,270), NSWindowStyleMaskTitled |
|||
pen -1 |
|||
for index = 0 to len(colors) - 1 |
|||
rect fill (x,0,60,270), colors[index] |
|||
x += 60 |
|||
next |
|||
end fn |
|||
fn DoIt |
|||
HandleEvents |
|||
</syntaxhighlight> |
|||
[[Image:ColorBarsDisplayFB.png]] |
|||
=={{header|Gambas}}== |
=={{header|Gambas}}== |
||