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

Reply via email to