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
