Re: non-markup stencils

[Sean Reed]

hi jonatan and han-wen,

works just right.

is the language for the definitions scheme? is the syntax 
lilypond-specific? where would i look to learn a bit on my own about 
the syntax and structure of such definitions and its integration into 
lilypond? (is it in the documentation on the lilypond website?)

thanks!

-sean

--------------------------------------------
Sean Reed
Hamburg, Germany
Web: www.seanreed.de

On 02.05.2005, at 05:13, Jonatan Liljedahl wrote:

> There was someone who requested a cross on the stems a while ago, and I
> posted something which might be what your want. Try this:
>
> %%% tested with 2.5.18 %%%
> #(define (cross-callback callback)
>    (define (cross-stencil grob)
>      (let* ((cross (ly:font-get-glyph
>               (ly:get-default-font grob) "noteheads.s2cross"))
>             (s (callback grob))
>             (sx (ly:stencil-extent s 0))
>             (sy (ly:stencil-extent s 1))
>             (cx (ly:stencil-extent cross 0))
>             (xadj (/ (interval-length cx) 2))
>             (midy (+ (car sy) (/ (interval-length sy) 2))))
>         (set! s (ly:stencil-add s
>             (ly:stencil-translate cross (cons (- xadj) midy))))
>        (ly:make-stencil (ly:stencil-expr s) sx sy)))
>    cross-stencil)
>
> stemCrossStart = \override Stem  #'print-function
>     = #(cross-callback Stem::print)
> stemCrossStop = \revert Stem #'print-function