Sorry for reviving this old conversation …
2012-02-25 3:50 GMT+01:00 Jay Anderson <[email protected]>:
>
> Any more comments? Thanks!
>
> -----Jay
>
> \version "2.15.30"
>
> #(define has-one-or-less (lambda (lst) (or (null? lst) (null? (cdr lst)))))
> #(define has-at-least-two (lambda (lst) (not (has-one-or-less lst))))
> #(define (all-equal lst pred)
> (or (has-one-or-less lst)
> (and (pred (car lst) (cadr lst)) (all-equal (cdr lst) pred))))
>
> #(define merge-rests-engraver
> (lambda (context)
> (let ((rest-same-length
> (lambda (rest-a rest-b)
> (eq? (ly:grob-property rest-a 'duration-log)
> (ly:grob-property rest-b 'duration-log))))
> (rests '()))
> `((start-translation-timestep . ,(lambda (trans)
> (set! rests '())))
> (stop-translation-timestep . ,(lambda (trans)
> (if (and (has-at-least-two
> rests) (all-equal rests rest-same-length))
> (for-each
> (lambda (rest)
> (ly:grob-set-property! rest 'Y-offset 0))
> rests))))
> (acknowledgers
> (rest-interface . ,(lambda (engraver grob source-engraver)
> (if (eq? 'Rest (assoc-ref
> (ly:grob-property grob 'meta) 'name))
> (set! rests (cons grob rests))))))))))
>
> #(define merge-mmrests-engraver
> (lambda (context)
> (let* ((mmrest-same-length
> (lambda (rest-a rest-b)
> (eq? (ly:grob-property rest-a 'measure-count)
> (ly:grob-property rest-b 'measure-count))))
> (merge-mmrests
> (lambda (rests)
> (if (all-equal rests mmrest-same-length)
> (let ((offset (if (eq? (ly:grob-property (car rests)
> 'measure-count) 1) 1 0)))
> (for-each
> (lambda (rest) (ly:grob-set-property! rest
> 'Y-offset offset))
> rests)))))
> (curr-rests '())
> (rests '()))
> `((start-translation-timestep . ,(lambda (trans)
> (set! curr-rests '())))
> (stop-translation-timestep . ,(lambda (trans)
> (if (has-at-least-two curr-rests)
> (set! rests (cons curr-rests
> rests)))))
> (finalize . ,(lambda (translator)
> (for-each merge-mmrests rests)))
> (acknowledgers
> (rest-interface . ,(lambda (engraver grob source-engraver)
> (if (eq? 'MultiMeasureRest (assoc-ref
> (ly:grob-property grob 'meta) 'name))
> (set! curr-rests (cons grob
> curr-rests))))))))))
\new Staff <<
\new Voice {
\voiceOne r2. r4
}
\new Voice {
\voiceTwo r2. r4
}
>>
\layout {
\context {
\Staff
\consists #merge-rests-engraver
}
}
I found that dotted rests don’t behave quite satisfyingly with this code –
there are two dots appearing.
How can this be fixed?
--
Peter Crighton | Musician & Music Engraver based in Mainz, Germany
http://www.petercrighton.de
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
