On Tue, Sep 6, 2016 at 9:09 AM, David Nalesnik <[email protected]> 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
> }
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
