Colour bars/Display: Difference between revisions
→{{header|AmigaBASIC}}: add screenshot
UlrichUlrich (talk | contribs) m (missing colour brightBlue added. there were only seven bars.) |
(→{{header|AmigaBASIC}}: add screenshot) |
||
| (3 intermediate revisions by one other user not shown) | |||
Line 317:
=={{header|BASIC}}==
==={{header|AmigaBASIC}}===
[[File:Amigabasic color bars.png|thumb|Output]]
<syntaxhighlight lang="amigabasic">SCREEN 1,320,200,5,1
WINDOW 2,"Color bars",(0,10)-(297,186),15,1
Line 1,116 ⟶ 1,117:
color2attr c = Attr Default Default (SetTo c)
main :: IO ()
main = do
cfg <- standardIOConfig
Line 1,131 ⟶ 1,133:
showBars bounds
shutdown vty</syntaxhighlight>
[[File:Haskell_Colourbars_A_0.png|700px]]
Graphical version using SFML.
| |||