At 11:38 on 04 Jul 2012, Nathan wrote:
>Here's a solution using markup paths and text spanners:
>
>%%%
>
>\version "2.14.2"
>
>hauptstimmeStart = \markup {
> \path #0.25 #'((moveto 0 0)
> (lineto 0 -2)
> (moveto 0 -1)
> (lineto 1 -1)
> (moveto 1 0)
> (lineto 1 -2)
> (moveto 1 0)
> (lineto 1.8 0))
>}
>
>nebenstimmeStart = \markup {
> \path #0.25 #'((moveto 0 -2)
> (lineto 0 0)
> (lineto 1 -2)
> (lineto 1 0)
> (lineto 1.8 0))
>}
>
>hauptstimmeEnd = \markup {
> \path #0.25 #'((moveto 0 0)
> (lineto 0.8 0)
> (lineto 0.8 -0.8))
>}
>
>hauptstimme = {
> \once \override TextSpanner #'style = #'none
> \once \override TextSpanner #'(bound-details left text) = \hauptstimmeStart
> \once \override TextSpanner #'(bound-details right text) = \hauptstimmeEnd
>}
>
>nebenstimme = {
> \once \override TextSpanner #'style = #'none
> \once \override TextSpanner #'(bound-details left text) = \nebenstimmeStart
> \once \override TextSpanner #'(bound-details right text) = \hauptstimmeEnd
>}
>
>\relative c' {
> \hauptstimme
> | c4\startTextSpan c4 c4 c4
> | c4 c4 c4 c4\stopTextSpan
> | c4 c4 c4 c4
> \nebenstimme
> | c4\startTextSpan c4 c4 c4
> | c4 c4 c4 c4\stopTextSpan
>}
>
>%%%
This is very nice, but unfortunately repeats the symbols at line
breaks, which is not ideal. To avoid this, you probably want to add:
\once \override TextSpanner #'(bound-details left-broken text) = ##f
\once \override TextSpanner #'(bound-details right-broken text) = ##f
--
Mark Knoop
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
