]> git.donarmstrong.com Git - lilypond.git/blob - input/new/creating-text-spanners.ly
Merge master into nested-bookparts
[lilypond.git] / input / new / creating-text-spanners.ly
1 \version "2.11.62"
2
3 \header {
4   lsrtags = "expressive-marks, text, tweaks-and-overrides"
5   texidoc = "The @code{\\startTextSpan} and @code{\\stopTextSpan}
6 commands allow the creation of text spanners as easily as pedal
7 indications or octavations.  Override some properties of the
8 @code{TextSpanner} object to modify its output."
9
10   doctitle = "Creating text spanners"
11 }
12
13 \paper { ragged-right = ##f }
14
15 \relative c'' {
16   \override TextSpanner #'bound-details #'left #'text = #"bla"
17   \override TextSpanner #'bound-details #'right #'text = #"blu"
18   a4 \startTextSpan
19   b4 c
20   a4 \stopTextSpan
21   
22   \override TextSpanner #'style = #'line
23   \once \override TextSpanner #'bound-details
24     #'left #'stencil-align-dir-y = #CENTER
25   a4 \startTextSpan
26   b4 c
27   a4 \stopTextSpan
28   
29   \override TextSpanner #'style = #'dashed-line
30   \override TextSpanner #'bound-details #'left #'text =
31     \markup { \draw-line #'(0 . 1) }
32   \override TextSpanner #'bound-details #'right #'text =
33     \markup { \draw-line #'(0 . -2) }
34   \once \override TextSpanner #'bound-details #'right #'padding = #-2
35
36   a4 \startTextSpan
37   b4 c
38   a4 \stopTextSpan
39   
40   \set Staff.middleCPosition = #-13
41   \override TextSpanner #'dash-period = #10
42   \override TextSpanner #'dash-fraction = #0.5
43   \override TextSpanner #'thickness = #10
44   a4 \startTextSpan
45   b4 c
46   a4 \stopTextSpan
47 }