I've just seen I overlooked your message, Harm. Thank you both, and for the upload to the LSR! Best, David
On 23 January 2015 at 13:18, Pierre Perol-Schneider < pierre.schneider.pa...@gmail.com> wrote: > 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