]> git.donarmstrong.com Git - lilypond.git/blob - input/lsr/creating-text-spanners.ly
Merge branch 'master' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond
[lilypond.git] / input / lsr / creating-text-spanners.ly
1 %% Do not edit this file; it is auto-generated from LSR!
2 %% Tags: expressive-marks, text
3 \version "2.11.35"
4
5 \header { texidoc = "
6 The \\startTextSpan and \\stopTextSpan commands give you the ability to
7 create text spanners as easily as pedals indications or octavations.
8 Override some properties of the TextSpanner object to modify its
9 output.
10 " }
11
12 \relative c''{
13     \override TextSpanner  #'edge-text = #'("bla" . "blu")
14     a \startTextSpan
15     b c 
16     a \stopTextSpan
17
18     \override TextSpanner  #'dash-period = #2
19     \override TextSpanner  #'dash-fraction = #0.0
20     a \startTextSpan
21     b c 
22     a \stopTextSpan
23
24     \revert TextSpanner #'style
25     \override TextSpanner  #'style = #'dashed-line \override TextSpanner #'bound-details #'left #'text = \markup { \draw-line #'(0 . 1) }
26  \override TextSpanner #'bound-details #'right #'text = \markup { \draw-line #'(0 . -2) }
27
28     a \startTextSpan
29     b c 
30     a \stopTextSpan
31
32
33     \set Staff.middleCPosition = #-13
34
35     \override TextSpanner  #'dash-period = #10
36     \override TextSpanner  #'dash-fraction = #.5
37     \override TextSpanner  #'thickness = #10
38     a \startTextSpan
39     b c 
40     a \stopTextSpan
41     \set Staff.middleCPosition = #-6    
42 }
43