Colour bars/Display: Difference between revisions
no edit summary
Thundergnat (talk | contribs) m (→{{header|Forth}}: fix markup) |
No edit summary |
||
Line 959:
Locate ,, 1 '' turn cursor on
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}}==
|