Red's Predefined Colors

red-predefined-colors.red

Red [
	Needs: 'View
]

b-or-w?: func [color [tuple!] /local darkness [float!]] [
    darkness: 1 - (((0.299 * color/1) + (0.587 * color/2) + (0.114 * color/3)) / 255)
    either (darkness < 0.5) [return black][return white]
]

size: 100x25
blk: load help-string tuple!
sort/skip blk 2
colors: parse blk [collect [some [keep word! | skip]]]
content: ""
repeat i length? colors [
    append content reduce ["base " (size) " " (colors/:i) " font-color " (b-or-w? do colors/:i) " " (rejoin [{"} colors/:i {"}]) " center middle" "^/"]
    if (mod i 4) = 0 [append content reduce ["return"  "^/"]]
]

view compose/deep [
    title "Red's Predefined Colors"
    backdrop 123.123.103
    across
    (load content)
]