Thanks. With that as a model I was able to generalize it to a music function
taking arbitrary text, right Y, and offset. If I knew a bit more I could
generalize it a bit more by also passing in the direction as a parameter,
and depending on whether it was #UP or #DOWN, draw the RH end bracket either
down or up.
\version 2.12.2
rtspan = #(define-music-function (parser location text rightY offset
shorten)
(string? number? pair? pair?)
#{
\once \override TextSpanner #'bound-details #'left #'text =
\markup \bold { \small \concat { { $text } } }
\once \override TextSpanner #'direction = #DOWN
\once \override TextSpanner #'(bound-details right Y) = #$rightY
\once \override TextSpanner #'extra-offset = #$offset
\once \override TextSpanner #'dash-period = #1.5
\once \override TextSpanner #'dash-fraction = #0.5
\once \override TextSpanner #'thickness = #0.8
\once \override TextSpanner #'bound-details #'right #'text =
\markup { \draw-line #'(0 . 2) }
\once \override TextSpanner #'bound-details #'left
#'stencil-align-dir-y = #DOWN
\once \override TextSpanner #'bound-details #'left #'padding = #(car
$shorten)
\once \override TextSpanner #'bound-details #'right #'padding =
#(cdr $shorten)
#})
music = \relative
{
\override Staff.TimeSignature #'stencil = ##f \time 3/4
{ \voiceOne s4 s8 r4. r2. }
\new Voice { \voiceTwo s4 \rtspan stacc. #5 #'(0 . 5)
#'(-0.5 . -1)
f,8\startTextSpan[ a b d f a b d f a ]\stopTextSpan }
}
\score
{
\music
\layout { ragged-right = ##f }
}
Nick
-Original Message-
From: Kieren MacMillan [mailto:kieren_macmil...@sympatico.ca]
Sent: Saturday, 25 April 2009 11:22
To: Nick Payne
Cc: 'lilypond'
Subject: Re: Rotating TextSpanner
Hi Nick,
Any suggestions (other than trial and error alignment of separate
elements)
on how to get an effect similar to that in the attached image,
where the
line is rotated but the text is not.
The following should help:
\version 2.12.2
setTS =
{
\override TextSpanner #'direction = #-1
\override TextSpanner #'dash-fraction = #0.4
\override TextSpanner #'dash-period = #1
\override TextSpanner #'(bound-details left text) = \markup
\raise
#0.5 stacc.
\override TextSpanner #'(bound-details left padding) = #-1
\override TextSpanner #'bound-details #'right #'text = \markup
{ \draw-line #'(0 . 4) }
\override TextSpanner #'(bound-details right padding) = #-1.5
\override TextSpanner #'(bound-details right Y) = #7
\override TextSpanner #'extra-offset = #'(0 . 9)
}
music = \relative
{
\override Staff.TimeSignature #'stencil = ##f \time 3/4
{ \voiceOne s4 s8 r4. r2. }
\new Voice { \voiceTwo \setTS s4 f,8\startTextSpan a b d
f[ a b d f
a ]\stopTextSpan }
}
\score
{
\music
\layout { ragged-right = ##f }
}
___
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
