Re: Notes en couleur

[Valentin Villenave]

Le 16 octobre 2008 21:16, Viviane Sourdine <address@hidden> a écrit :
> bon, quand vous aurez le temps Mr Villenave (ne vous inquiétez pas ce n'est
> pas très urgent), je suis intéressée par votre réponse sur les couleurs.

La voilà, toute-prête (la solution avait en fait été postée par Jay
Anderson sur la liste anglophone il y a quelque temps).


%Association list of pitches to colors.
#(define color-mapping
 (list
   (cons (ly:make-pitch 0 0 0) (x11-color 'red))))

%Compare pitch and alteration (not octave).
#(define (pitch-equals? p1 p2)
 (and (= (ly:pitch-alteration p1) (ly:pitch-alteration p2))
      (= (ly:pitch-notename p1) (ly:pitch-notename p2))))

#(define (pitch-to-color pitch)
 (let ((color (assoc pitch color-mapping pitch-equals?)))
   (if color (cdr color))))

#(define (color-notehead grob)
 (pitch-to-color (ly:event-property (ly:grob-property grob 'cause) 'pitch)))


\score {
 \new Staff \relative c' {
   \override NoteHead #'color = #color-notehead
   c8 b d dis ees f g aes
 }
}


Cordialement,
Valentin