Colour bars/Display: Difference between revisions
m
size of picture adjusted
(→Wren: Fix wren wrapping around image) |
UlrichUlrich (talk | contribs) m (size of picture adjusted) |
||
| (4 intermediate revisions by 2 users not shown) | |||
Line 1,113:
where attrs = map color2attr colors
nBars = length colors
colors = [black, brightRed, brightGreen, brightBlue, brightMagenta, brightCyan, brightYellow, brightWhite]
color2attr c = Attr Default Default (SetTo c)
main :: IO ()
main = do
cfg <- standardIOConfig
Line 1,131 ⟶ 1,132:
showBars bounds
shutdown vty</syntaxhighlight>
[[File:Haskell_Colourbars_A_0.png|700px]]
Graphical version using SFML.
Line 2,059 ⟶ 2,062:
|0100
( set
rgb
color0: 000 - black
color1: f00 - red
color2: 0f0 - green
color3: 00f - blue )
#0f00 .System/r DEO2
#00f0 .System/g DEO2
| |||