Anonymous user
Colour bars/Display: Difference between revisions
Quick and dirty factor
m (→{{header|C}}: Removed incorrect "header" templates) |
(Quick and dirty factor) |
||
Line 472:
GOBACK
.</lang>
=={{header|Factor}}==
<lang factor>USING: accessors colors.constants kernel math sequences ui
ui.gadgets ui.gadgets.tracks ui.pens.solid ;
IN: rosetta-code.colour-bars-display
: colors ( -- )
horizontal <track>
{
COLOR: black
COLOR: red
COLOR: green
COLOR: blue
COLOR: magenta
COLOR: cyan
COLOR: yellow
COLOR: white
}
[ <solid> gadget new swap >>interior ] map
dup length recip
[ track-add ] curry each
{ 640 480 } >>pref-dim
"bars" open-window
;
MAIN: colors</lang>
=={{header|Icon}} and {{header|Unicon}}==
|