input/test/text-spanner.ly

   1 \version "1.7.22"
   2 % TODO: check about other ottava functions.
   3
   4 \header { texidoc = "@cindex Ottava Spanner
   5 You can make Lilypond print ottava spanners. "
   6 }
   7
   8 \score{
   9     \notes\relative c''{
  10         \property Voice.TextSpanner \override #'edge-text = #'("8 " . "")
  11         a #(ly:export (make-span-event 'TextSpanEvent START))
  12         b c
  13         a #(ly:export (make-span-event 'TextSpanEvent STOP))
  14
  15         \property Voice.TextSpanner \revert #'style
  16         \property Voice.TextSpanner \override #'style = #'dotted-line
  17         a #(ly:export (make-span-event 'TextSpanEvent START))
  18         b c
  19         a #(ly:export (make-span-event 'TextSpanEvent STOP))
  20
  21         \property Voice.TextSpanner \revert #'style
  22         \property Voice.TextSpanner \override #'style = #'dashed-line
  23         \property Voice.TextSpanner \override #'edge-height = #'(1 . -2)
  24         a #(ly:export (make-span-event 'TextSpanEvent START))
  25         b c
  26         a #(ly:export (make-span-event 'TextSpanEvent STOP))
  27
  28
  29         \property Staff.centralCPosition = #-13
  30
  31         \property Voice.TextSpanner \override #'dash-length = #5
  32         \property Voice.TextSpanner \override #'thickness = #10
  33         a #(ly:export (make-span-event 'TextSpanEvent START))
  34         b c
  35         a #(ly:export (make-span-event 'TextSpanEvent STOP))
  36         \property Staff.centralCPosition = #-6
  37     }
  38         \paper{ raggedright = ##t}
  39 }
  40 %% new-chords-done %%