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

Reply via email to