Following Aaron's formidable example, I've done some minor modifications.
Just a matter of taste, of course…:
- straight lines (flags.ugrace) to more resemble the original symbols and
make them more distinguishable from a caesura.
- "downgraded" the syntax to make it all work with the current stable
version 2.18.2, too (# in front of the musicglyph names and \combine instead
of the new \overlay command.
- turn instead of trill as a basis, simply because it will stay closer to
the notehead without having to tweak outside-staff-priority. If there's a
concurring text script like "the shake turned", this text will be placed
between the notehead and a trill, but a turn will stay with its notehead.
%%%%%%%%%%%%%
\version "2.18.2"
forefall-markup = \markup \rotate #'-15 \musicglyph #"flags.ugrace"
forefall = #(let ((m (make-articulation "turn")))
(set! (ly:music-property m 'tweaks)
(acons 'stencil (lambda (grob)
(grob-interpret-markup grob forefall-markup))
(ly:music-property m 'tweaks)))
m)
backfall-markup = \markup \rotate #'-65 \musicglyph #"flags.ugrace"
backfall = #(let ((m (make-articulation "turn")))
(set! (ly:music-property m 'tweaks)
(acons 'stencil (lambda (grob)
(grob-interpret-markup grob backfall-markup))
(ly:music-property m 'tweaks)))
m)
shakeTurned-markup = \markup \combine
\lower #'0.75 \rotate #'205 \scale #'(1 . 1.25) \musicglyph
#"ties.lyric.default"
\combine
\rotate #'-15 \musicglyph #"flags.ugrace"
\lower #'0.5 \rotate #'-15 \musicglyph #"flags.ugrace"
shakeTurned = #(let ((m (make-articulation "turn")))
(set! (ly:music-property m 'tweaks)
(acons 'stencil (lambda (grob)
(grob-interpret-markup grob shakeTurned-markup ))
(ly:music-property m 'tweaks)))
m)
\relative {
\omit Staff.Clef
\omit Staff.TimeSignature
\override Staff.TextScript.staff-padding = #4
\cadenzaOn
<>^"Forefall"
s4 g'\forefall s8 \bar "|" s8 f16[ g8.] s4 \bar "||"
<>^"Backfall"
s4 g\backfall s8 \bar "|" s8 a16[ g8.] s4 \bar "||"
<>^"Turn"
s4 g\turn s8 \bar "|" s8 g16[ a32 g f16 g] s8 \bar "||"
<>^"the shake turned"
s4 g\shakeTurned s8 \bar "|" s8 a16[ g a g] fis[ g8.] s8\bar "||"
}
%%%%%%%%%%%%%
OfTheGraces.png
<http://lilypond.1069038.n5.nabble.com/file/t3887/OfTheGraces.png>
All the best,
Torsten
--
Sent from: http://lilypond.1069038.n5.nabble.com/User-f3.html
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
