Re: mettre de la couleur à tout (y compris point, d ièse, ornement)

[Xavier Scheuer]

2012/3/28 Eluze <address@hidden>:
> j'avais trouvé une fois:
>
> % override-color-for-all-grobs color - works for a staff or voice
> #(define (override-color-for-all-grobs color)
>  (lambda (context)
>   (let loop ((x all-grob-descriptions))
>    (if (not (null? x))
>     (let ((grob-name (caar x)))
>      (ly:context-pushpop-property context grob-name 'color color)
>      (loop (cdr x)))))))
>
> colorVoice = #(define-music-function (parser location color) (string?)
>  #{ \applyContext #(override-color-for-all-grobs (x11-color color))
>  #})
>
> et ensuite:
>
> \context Voice \relative {
>  \colorVoice #"magenta"
>        c8 d e f g2
>        g2. g4
>  \colorVoice #"black"
>        c8 d e f g2
>        g2. g4
> }
>

Yep, c'est sur le LSR: http://lsr.dsi.unimi.it/LSR/Item?id=443

Cordialement,
Xavier

-- 
Xavier Scheuer <address@hidden>