]> git.donarmstrong.com Git - lilypond.git/blob - input/lsr/creating-text-spanners.ly
Merge branch 'master' of ssh://kainhofer@git.sv.gnu.org/srv/git/lilypond into dev...
[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} and @code{\\stopTextSpan} commands give you
9 the ability to create text spanners as easily as pedal indications or
10 octavations. Override some properties of the @code{TextSpanner} object
11 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   \set Staff.middleCPosition = #-13
35   \override TextSpanner  #'dash-period = #10
36   \override TextSpanner  #'dash-fraction = #0.5
37   \override TextSpanner  #'thickness = #10
38   a \startTextSpan
39   b c
40   a \stopTextSpan
41   \set Staff.middleCPosition = #-6
42 }