Liste der X11 Farben generieren

Zur Navigation springen Zur Suche springen
#(ly:load "x11-color.scm")

% To show all available colors (~17 pages), replace
% (take x11-color-list 15) by x11-color-list
#(define-markup-list-command (listcolors layout props) ()
   (interpret-markup-list layout props
     (map (lambda (colorspec)
            (markup #:with-color (x11-color (car colorspec))
              #:filled-box '(-0.5 . 10) '(-1 . 3) 1
              (symbol->string (car colorspec))))
       x11-color-list)))

\markuplist \column-lines \listcolors

Links