Re: Notes en couleur

[Jean Abou Samra]

    Le 27/11/2022 à 20:37, Christian LE BARS a
      écrit :
    
> 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:
>         
>       
    
      
      
      
      Bonsoir Christian,
      
      D'une part, j'avais mal compris ce que tu voulais : je pensais que
      tu cherchais
      à colorier les notes qui ont une altération accidentelle (qui
      n'est pas dans
      l'armure). D'autre part, je me suis planté dans mon code, en
      confondant les fonctions
      ly:pitch-notename et ly:pitch-steps.
      
      S'il ne s'agit que de colorier toutes les notes qui sont jouées
      avec un
      dièse ou un bécarre, c'est beaucoup plus simple :
      
      
      \version "2.22.2"
      
      %--------------------------------------------
      \layout {
        \context {
          \Voice
          \override NoteHead.color =
            #(lambda (grob)
               (and (not (zero? (ly:pitch-alteration (ly:event-property
      (event-cause grob) 'pitch))))
                    (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}
        } 
      
      
      
      
      Cordialement,
      Jean

OpenPGP_signature
Description: OpenPGP digital signature