Re: Stencils - first steps

[Andrew Bernard]

Paul,

Thank you very much. Really excellent.

Now that I can make additions to a notehead stencil, I find an issue with the stem being offset. What does one do to correct this? The following snippet illustrates what I am trying to do, but the stems are offset - naturally.

[I need some small fake slurs for reasons that need not detain us here. We can get on to that later!]

Andrew

\version "2.19.18"

#(define (sten)

   (ly:stencil-translate

    (make-connected-path-stencil

     '((0.5 -0.8   1.5 -0.8   2 0))

     0.1 1 1 #f #f)

    (cons 0.5 -1)))

#(define expNoteHeadStencil

   (lambda (grob)

     (let* ((stil (ly:grob-property grob 'stencil))

            (newStil (ly:stencil-add stil (sten))))

       (if (ly:stencil? stil)

           (ly:grob-set-property! grob 'stencil newStil)

           #f

           ))))

\relative c'' {

  c

  \override Staff.NoteHead.before-line-breaking = #expNoteHeadStencil

  g a bes

  \revert Staff.NoteHead.before-line-breaking

  c

}