Re: Changing MulitMeasureRest.stencil to a squiggle

[David Nalesnik]

On Tue, Sep 6, 2016 at 9:09 AM, David Nalesnik <address@hidden> wrote:

>
> \version "2.19.46"
>
> #(define my-stencil
>    (lambda (grob)
>      (let* ((default-stil (ly:multi-measure-rest::print grob))
>             (X-ext (ly:stencil-extent default-stil X)))
>        (ly:line-interface::line grob (car X-ext) 0 (cdr X-ext) 0))))

Oh, you'd want to check the dimensions to avoid that silly lone squiggle:

#(define my-stencil
   (lambda (grob)
     (let* ((default-stil (ly:multi-measure-rest::print grob))
            (X-ext (ly:stencil-extent default-stil X))
            (my-stil (ly:line-interface::line grob (car X-ext) 0 (cdr
X-ext) 0)))
       (if (< (interval-length X-ext) 2) ; magic constant...
           default-stil
           my-stil))))
>
> {
>   \override Staff.MultiMeasureRest.style = #'zigzag
>   \override Staff.MultiMeasureRest.thickness = 4
>   \override Staff.MultiMeasureRest.stencil = #my-stencil
>   \compressFullBarRests
>   R1*24
>   R1*4
> }