Hi Peter, Hi Joram,
How about:
\version "2.18.2"
\layout {
ragged-last = ##t
}
#(define (text-spanner-start-stop mus)
(let ((elts (ly:music-property mus 'elements)))
(make-music 'SequentialMusic 'elements
(append
(list (make-music 'TextSpanEvent 'span-direction -1))
(reverse (cdr (reverse elts)))
(list (make-music 'TextSpanEvent 'span-direction 1))
(list (last elts))))))
rit = #(define-music-function (parser location music)(ly:music?)
#{
\override TextSpanner.bound-details.left-broken.text = ##f
\override TextSpanner.bound-details.left.text = "rit. "
$(text-spanner-start-stop music)
#})
ritAtempo = #(define-music-function (parser location music)(ly:music?)
#{
\override TextSpanner.bound-details.left-broken.text = ##f
\override TextSpanner.bound-details.left.text = "rit. "
\override TextSpanner.bound-details.right-broken.text = ##f
\override TextSpanner.bound-details.right.text = " a Tempo."
$(text-spanner-start-stop music)
#})
\transpose c c' {
\key bes\major
r4 f f g8 a
bes4 c' a f
r4 bes a f
\rit {
ees4 d8 ees f4 ees
\break
d2 c
s1 s
}
\bar "|."
}
\transpose c c' {
\key bes\major
r4 f f g8 a
bes4 c' a f
r4 bes a f
\ritAtempo {
ees4 d8 ees f4 ees
\break
d2 c
s1
}
s
\bar "||"
}
2015-01-27 8:42 GMT+01:00 Peter Danemo <petedom...@gmail.com>:
> How do I get rid of the second ritardando?
>
Try to add: \override TextSpanner.bound-details.left-broken.text = ##f
HTH,
Pierre
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
