Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Colour-bars-Display/Factor/colour-bars-display.factor
+++ b/Task/Colour-bars-Display/Factor/colour-bars-display.factor
@ -0,0 +1,23 @@
+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