24 lines
446 B
Factor
24 lines
446 B
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
|
|
] with-ui ;
|
|
MAIN: colors
|