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

[Eluze]

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
}

Eluze

--
View this message in context: 
http://lilypond-french-users.1298960.n2.nabble.com/mettre-de-la-couleur-a-tout-y-compris-point-diese-ornement-tp7413053p7413248.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.