]> git.donarmstrong.com Git - lilypond.git/blob - input/lsr/creating-text-spanners.ly
Merge branch 'master' of ssh+git://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 http://lsr.dsi.unimi.it
2 %% This file is in the public domain.
3 \version "2.11.38"
4
5 \header {
6   lsrtags = "expressive-marks, text, tweaks-and-overrides"
7  texidoc = "
8 The <code>\\startTextSpan</code> and <code>\\stopTextSpan</code>
9 commands give you the ability to create text spanners as easily as
10 pedals indications or octavations. Override some properties of the
11 <code>TextSpanner</code> object to modify its output.
12 " }
13 % begin verbatim
14 \relative c''{
15     \override TextSpanner  #'edge-text = #'("bla" . "blu")
16     a \startTextSpan
17     b c 
18     a \stopTextSpan
19
20     \override TextSpanner  #'dash-period = #2
21     \override TextSpanner  #'dash-fraction = #0.0
22     a \startTextSpan
23     b c 
24     a \stopTextSpan
25
26     \revert TextSpanner #'style
27     \override TextSpanner  #'style = #'dashed-line \override TextSpanner #'bound-details #'left #'text = \markup { \draw-line #'(0 . 1) }
28  \override TextSpanner #'bound-details #'right #'text = \markup { \draw-line #'(0 . -2) }
29
30     a \startTextSpan
31     b c 
32     a \stopTextSpan
33
34
35     \set Staff.middleCPosition = #-13
36
37     \override TextSpanner  #'dash-period = #10
38     \override TextSpanner  #'dash-fraction = #.5
39     \override TextSpanner  #'thickness = #10
40     a \startTextSpan
41     b c 
42     a \stopTextSpan
43     \set Staff.middleCPosition = #-6    
44 }
45