Hello I prefer this :
%%caseSpanner #"case" note\startTextSpan note .... note\stopTextSpan
%%========CUTE===============CUTE
caseSpanner =
#(define-music-function (parser location str)(string?)
#{
\once \override TextSpanner.style = #'line %or dashed-line
\once \override TextSpanner.staff-padding = #3
\once \override TextSpanner.bound-details.left.text =
\markup { \normal-text \bold #str }
#})
%%========CUTE===============CUTE
%%caseSpanner #"case" note\startTextSpan note .... note\stopTextSpan
\relative c { \clef "G_8"
\caseSpanner #"II" e_1\startTextSpan f16_2 g_4 e8_1
<b_1>4.\stopTextSpan d8 g4
\caseSpanner #"VII" a_1\startTextSpan b16_3 c_4 a8_1
<e_1>4\stopTextSpan
}
Regards
--
martial
<<attachment: caseSpanner.png>>
%%caseSpanner #"case" note\startTextSpan note .... note\stopTextSpan
%%========CUTE===============CUTE
caseSpanner =
#(define-music-function (parser location str)(string?)
#{
\once \override TextSpanner.style = #'line %or dashed-line
\once \override TextSpanner.staff-padding = #3
\once \override TextSpanner.bound-details.left.text = \markup { \normal-text \bold #str }
#})
%%========CUTE===============CUTE
%%caseSpanner #"case" note\startTextSpan note .... note\stopTextSpan
\relative c { \clef "G_8"
\caseSpanner #"II" e_1\startTextSpan f16_2 g_4 e8_1
<b_1>4.\stopTextSpan d8 g4
\caseSpanner #"VII" a_1\startTextSpan b16_3 c_4 a8_1
<e_1>4\stopTextSpan
}_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
