Re: Re : Re: Altérations dièse ou bémol au lieu de bécarre avec easyHeadsOn

[Ya Gloops]

Bonjour Martial !
Un autre problème survient lorsque qu'il y a un f# ou un sib qui suit dans la 
même mesure. 

#(define Ez_numbers_engraver
   (make-engraver
    (acknowledgers
     ((note-head-interface engraver grob source-engraver)
      (let* ((context (ly:translator-context engraver))
             (tonic-pitch (ly:context-property context 'tonic))
             (tonic-name (ly:pitch-notename tonic-pitch))
             (grob-pitch
              (ly:event-property (event-cause grob) 'pitch))
             (grob-name (ly:pitch-notename grob-pitch))
             (delta (modulo (- grob-name tonic-name) 7))
             (note-names
              (make-vector 7 (number->string (1+ delta)))))
        (ly:grob-set-property! grob 'note-names note-names))))))


#(set-global-staff-size 26)


\layout {
  ragged-right = ##t
  \context {
    \Voice
    \consists \Ez_numbers_engraver
  }
}


%
bDwn = \once \override  Accidental.alteration-glyph-name-alist  = #'((0 . 
"accidentals.natural.arrowdown"))
bUp = \once \override  Accidental.alteration-glyph-name-alist  = #'((0 . 
"accidentals.natural.arrowup"))
\score {
  \relative c' {
    \easyHeadsOn
    \key g \major
    g' \bDwn f fis
  }


  \layout {  }
}


%//////


\score {
 \relative c' {
  \easyHeadsOn
  \key f \major
  f \bUp b bes
}
  \layout {  }
}






Le dimanche 19 mars 2023 à 10:22:02 UTC+1, Martial R <martialr@gmail.com> a 
écrit : 





ha j'ai oublié  il faut mettre  \once devant

bDwn = \once \override  Accidental.alteration-glyph-name-alist  = #'((0 . 
"accidentals.natural.arrowdown"))
bUp =  \once \override  Accidental.alteration-glyph-name-alist  = #'((0 . 
"accidentals.natural.arrowup"))

Le dim. 19 mars 2023 à 10:03, Martial R <martialr@gmail.com> a écrit :
> Bonjour, 
> 
> Et en faisant ainsi ? 
> certe ce n'est pas encore automatique mais on devrait y arriver 
> \version "2.24.1"
> 
> #(define Ez_numbers_engraver
>    (make-engraver
>     (acknowledgers
>      ((note-head-interface engraver grob source-engraver)
>       (let* ((context (ly:translator-context engraver))
>              (tonic-pitch (ly:context-property context 'tonic))
>              (tonic-name (ly:pitch-notename tonic-pitch))
>              (grob-pitch
>               (ly:event-property (event-cause grob) 'pitch))
>              (grob-name (ly:pitch-notename grob-pitch))
>              (delta (modulo (- grob-name tonic-name) 7))
>              (note-names
>               (make-vector 7 (number->string (1+ delta)))))
>         (ly:grob-set-property! grob 'note-names note-names))))))
> 
> #(set-global-staff-size 26)
> 
> \layout {
>   ragged-right = ##t
>   \context {
>     \Voice
>     \consists \Ez_numbers_engraver
>   }
> }
> 
> % 
> bDwn = \override  Accidental.alteration-glyph-name-alist  = #'((0 . 
> "accidentals.natural.arrowdown"))
> bUp = \override  Accidental.alteration-glyph-name-alist  = #'((0 . 
> "accidentals.natural.arrowup"))
> \score {
>   \relative c' {
>     \easyHeadsOn
>     \key g \major
>     g' \bDwn f 
>   }
> 
>   \layout {  }
> }
> 
> %//////
> 
> \score {
>  \relative c' {
>   \easyHeadsOn
>   \key f \major
>   f \bUp b 
> }
>   \layout {  }
> }
> %----------------------------
> -- 
> Martial Rameaux
> 
> Le sam. 18 mars 2023 à 21:23, Ya Gloops <yagloops@yahoo.fr> a écrit :
>> Malheureusement, ce système modifie toutes les altérations, alors qu'il ne 
>> faudrait modifier que celle qui sont à l'armure...
>> Les fa# en sol majeur, les sib en fa majeur, les fa# et do# en ré majeur etc 
>> etc...
> 
> 
> 


-- 
Martial Rameaux