On Fri, Feb 28, 2014 at 5:33 AM, Peter Bjuhr <peterbj...@gmail.com> wrote: > > On 2014-02-27 20:44, Peter Bjuhr wrote: > > [...] > > I found this http://lsr.di.unimi.it/LSR/Snippet?id=864, and thanks to that I > managed to set up this script: > > \include "../smufl/definitions.ily" > > #(define (PendereckiTremolo-stem grob) > (if (ly:stencil? (ly:stem::print grob)) > (let* ((stencil (ly:stem::print grob)) > (X-ext (ly:stencil-extent stencil X)) > (Y-ext (ly:stencil-extent stencil Y)) > (width (interval-length X-ext)) > (len (interval-length Y-ext))) > > (ly:stencil-translate > (grob-interpret-markup grob > (markup #:smuflglyph "stemPendereckiTremolo")) > (cons 0 (interval-start Y-ext)))) > #f)) > > \relative c'{ > \override Stem #'stencil = #PendereckiTremolo-stem > f4 b c e > } >
I'm glad to hear that my work on both the SMuFL package and the LSR snippet has helped you! However, there's a much easier solution: #(define (penderecki-tremolo grob) (grob-interpret-markup grob (markup #:vcenter #:smuflglyph "pendereckiTremolo"))) \new Staff { \override StemTremolo.stencil = #penderecki-tremolo c'4:32 d'4:32 e'4:32 f'4:32 c''4:32 d''4:32 e''4:32 f''4:32 } Regards, Nathan _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user