Colour bars/Display: Difference between revisions
Content added Content deleted
m (→{{header|C}}: Removed incorrect "header" templates) |
(Quick and dirty factor) |
||
Line 472: | Line 472: | ||
GOBACK |
GOBACK |
||
.</lang> |
.</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}}== |
=={{header|Icon}} and {{header|Unicon}}== |