%%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
}