Added to the LSR : http://lsr.di.unimi.it/LSR/Item?id=972
Cheers,
Piere
2015-01-23 11:19 GMT+01:00 Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com>:
> 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
