Re: Changing stem stencil

[Nathan Ho]

On Fri, Feb 28, 2014 at 5:33 AM, Peter Bjuhr <address@hidden> 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