Re: Notes en couleur

[Christian LE BARS]

Bonsoir Jean.

merci pour ta solution, cependant elle n'est pas complète ,

si j'ai bien le fa dièse de la 5eme ligne je n'ai pas le fa dièse du 1er 
intervalle.

remarque: je suis en ré major pas en ré mineur.

voici ton code intégré dans ma partition:

\version "2.22.2"

%--------------------------------------------
\layout {
  \context {
    \Staff
    \consists
      #(lambda (context)
         (make-engraver
          (acknowledgers
           ((rhythmic-head-interface engraver grob source-engraver)
            (let* ((cause (event-cause grob))
                   (pitch (ly:event-property cause 'pitch))
                   (alter (ly:pitch-alteration pitch)))
              (if (not (zero? alter))
                  (let ((step-alter (cons (ly:pitch-steps pitch)
                                          alter))
                        (key-sig (ly:context-property context 
'keyAlterations)))
                    (if (not (member step-alter key-sig))
                        (set! (ly:grob-property grob 'color)
                              (assq-ref (ly:grob-property grob 'details)
                                        'altered-color))))))))))
  }
}
%-----------------------------------------------------------
alteredColor = \override NoteHead.details.altered-color = \etc
 %------------------------------------
Global=
{
  \numericTimeSignature
  \time 3/4
  \key d\major
  \alteredColor #magenta
}
%-------------------------------------------
Droite =
\relative c'
 {
  \Global

   fis'8  e  fis4  d8 a b2 8 g a2  fis4 <b, g'>   fis'  g
  e4. e'8  cis  a8 4 g  fis  g < fis  a> <g b> a8 b a e g  fis fis  g
   fis  d e4 d2.
 }
 %-----------------------------------
 Gauche =
\relative c
 {
  \clef bass
  \Global
  \set Staff.pedalSustainStyle = #'mixed
  d4\sustainOn b'8 c a4 g,\sustainOff g'8 b d,4 d a' a e,2 b'4
  a g' e d a' d, e,2 b'4 a g' e d a' g d, d'2
 }
 %------------------------------------------
 \score
  {
   <<
 %   \Accords
    \new PianoStaff
     << % les portées piano
      \new Staff { \Droite }
      \new Staff { \Gauche }
     >>
   >>
   \layout { indent= 0}
  }

 je te souhaite une bonne soirée.

Cordialement Christian