Hi again, I've made this enclosed little code. Since it's a little bit hacky please be so kind to arrange it into a proper way.
\version "2.18.0" \pointAndClickOff %% http://lsr.dsi.unimi.it/LSR/Item?id=659 %% Modified by P.P.Schneider on Feb 15, 2014; %% "tempoWidth" needs improvement !!
tempoWidth =
#(define-music-function (parser location rest text) (ly:music? string?)
(let ((text-event
(make-music
'MultiMeasureTextEvent
'text
(markup #:column (#:bold #:left-align text))))
(result (ly:music-deep-copy rest)))
(set! (ly:music-property result 'articulations)
(cons text-event (ly:music-property rest 'articulations)))
#{
\once\override MultiMeasureRestText.springs-and-rods =
#ly:multi-measure-rest::set-text-rods
$result
#} ))
{
\compressFullBarRests
\tempo "Allegro"
R1*6
\tempo "Rall."
R1*2
\tempo "A tempo"
R1*8
R1
%\metroWidth R1 #"Allegro"
%\tempo "Allegro"
\tempoWidth R1*6 #"Allegro"
\tempoWidth R1*2 #"Rall."
\tempoWidth R1*8 #"A tempo"
}
forcing-measure-width-to-adapt-to-metronomemarks-width.pdf
Description: Adobe PDF document
_______________________________________________ bug-lilypond mailing list [email protected] https://lists.gnu.org/mailman/listinfo/bug-lilypond
