input/test/text-spanner.ly

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