Oups, grace's note head looks a little too big.
So here again:
\version "2.19.13"
parentGrace = #(define-music-function (parser loc myGrace ) (ly:music?)
#{
\once \override NoteHead.X-offset = #-.5
\once \omit Staff.Flag
\once \omit Staff.Stem
\once \override ParenthesesItem.font-size = #-1
\once \override NoteHead.font-size = #-4
\once \override ParenthesesItem.stencil = #(lambda (grob)
(let* ((acc (ly:grob-object (ly:grob-parent grob Y)
'accidental-grob))
(dot (ly:grob-object (ly:grob-parent grob Y) 'dot)))
(if (not (null? acc)) (ly:pointer-group-interface::add-grob grob
'elements acc))
(if (not (null? dot)) (ly:pointer-group-interface::add-grob grob
'elements dot))
(parentheses-item::print grob)))
\parenthesize $myGrace
#})
{
\clef "altovarC"
\pitchedTrill c2\startTrillSpan
-\tweak minimum-length #10
-\tweak springs-and-rods #ly:spanner::set-spacing-rods
-\tweak bound-details.left.Y #-3.25
-\tweak bound-details.right.Y #-2.75
-\tweak bound-details.left.padding #3.5
-\tweak bound-details.right.padding #.8
\glissando ~ des
\grace { \parentGrace d8 }
c8\stopTrillSpan r8
}
Cheers,
Pierre
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
