Colorblind Palette

8.12

Colorblind Palette🔗ℹ

Lists of colorblind friendly colors.

Inspiration: https://davidmathlogic.com/colorblind

Examples:

> (require pict pict-abbrevs colorblind-palette)
> (ptable
    #:ncols 2
    (for/list ((color* (in-list (list ibm-palette* wong-palette* tol-palette*)))
               (lbl (in-list '(ibm wong tol))))
      (list
        (text (symbol->string lbl) (cons 'bold 'roman) 14)
        (apply ht-append 2
               (for/list (((color idx) (in-indexed color*)))
                 (vc-append 2
                            (filled-rectangle 50 50 #:color color)
                            (text (number->string idx) 'modern 14)))))))

value
ibm-palette* : (listof (is-a?/c color%))
value
wong-palette* : (listof (is-a?/c color%))
value
tol-palette* : (listof (is-a?/c color%))