Adjonction d’une croix sur la hampe des notes d’un fragment parlé
Voici comment ajouter une croix aux hampes. Le début du fragment parlé
est stipulé par une commande \speakOn, et la fin par une
commande \speakOff.
speakOn = \override Stem.stencil =
#(lambda (grob)
(let* ((x-parent (ly:grob-parent grob X))
(is-rest? (ly:grob? (ly:grob-object x-parent 'rest))))
(if is-rest?
empty-stencil
(ly:stencil-combine-at-edge
(ly:stem::print grob)
Y
(- (ly:grob-property grob 'direction))
(grob-interpret-markup
grob
(markup #:center-align #:fontsize -4
#:musicglyph "noteheads.s2cross"))
-1.7))))
speakOff = \revert Stem.stencil
\new Staff {
\relative c'' {
a4 b a c
\speakOn
g4 f r g8 a
b4 r r8 d e4
\speakOff
c4 a g f
}
}