2012/7/6 Mark Knoop <m...@opus11.net>:
>
>
> 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
Hi,
I've put it into the LSR, adding Mark's suggestion and some own
trickery to make it work with customized staff-sizes.
(postscript scales with global-staff-size only)
http://lsr.dsi.unimi.it/LSR/Item?u=1&id=843
Any suggestion to improve it (or my bad english)?
-Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
