]> git.donarmstrong.com Git - lilypond.git/blob - input/lsr/creating-text-spanners.ly
Merge branch 'master' of carldsorensen@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.52"
4
5 \header {
6   lsrtags = "expressive-marks, text, tweaks-and-overrides"
7
8   texidoces = "
9 Las instrucciones @code{\startTextSpan} y @code{\stopTextSpan}
10 permiten la creación de elementos de extensión textuales tan
11 fácilmente como indicaciones de pedal u
12 octavaciones. Sobreescribimos ciertas propiedades del objeto
13 @code{TextSpanner} para modificar su salida.
14
15 "
16   doctitlees = "Crear elementos de extensión textuales"
17
18   texidoc = "
19 The @code{\\startTextSpan} and @code{\\stopTextSpan} commands allow the
20 creation of text spanners as easily as pedal indications or
21 octavations. Override some properties of the @code{TextSpanner} object
22 to modify its output.
23
24 "
25   doctitle = "Creating text spanners"
26 } % begin verbatim
27 \relative c'' {
28   \override TextSpanner  #'edge-text = #'("bla" . "blu")
29   a \startTextSpan
30   b c
31   a \stopTextSpan
32   
33   \override TextSpanner  #'dash-period = #2
34   \override TextSpanner  #'dash-fraction = #0.0
35   a \startTextSpan
36   b c
37   a \stopTextSpan
38   
39   \revert TextSpanner #'style
40   \override TextSpanner  #'style = #'dashed-line \override TextSpanner #'bound-details #'left #'text = \markup { \draw-line #'(0 . 1) }
41  \override TextSpanner #'bound-details #'right #'text = \markup { \draw-line #'(0 . -2) }
42
43   a \startTextSpan
44   b c
45   a \stopTextSpan
46   
47   \set Staff.middleCPosition = #-13
48   \override TextSpanner  #'dash-period = #10
49   \override TextSpanner  #'dash-fraction = #0.5
50   \override TextSpanner  #'thickness = #10
51   a \startTextSpan
52   b c
53   a \stopTextSpan
54   \set Staff.middleCPosition = #-6
55 }