On 18 January 2012 01:01, Thomas Morley <thomasmorle...@googlemail.com> wrote:
> I worked a little more in the direction you objected.
>
> \version "2.15.24"
>
> cadenzaRest =
> #(define-music-function (parser location fermata? music) (boolean? ly:music?)
> "Make a full-bar rest with the same length as MUSIC
> setting measureLength to ensure the rest is properly centred.
> A fermata can be set."
> (let ((fermata (make-music 'MultiMeasureTextEvent
> 'tweaks (list
> ;; Set the 'text based on the 'direction
> (cons 'text (lambda (grob)
> (if (eq?
> (ly:grob-property grob 'direction) DOWN)
> (markup
> #:musicglyph "scripts.dfermata")
> (markup
> #:musicglyph "scripts.ufermata"))))
> (cons 'outside-staff-priority 40)
> (cons 'outside-staff-padding 0))))
> (lst (list
> #{
> \set Timing.measureLength = #(ly:music-length music)
I'd add
\once \override MultiMeasureRest #'usable-duration-logs = #'(0)
here to ensure it always uses a semibreve rest.
Cheers,
Neil
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
