]> git.donarmstrong.com Git - lilypond.git/blob - input/test/text-spanner.ly
patch::: 1.3.95.jcn3
[lilypond.git] / input / test / text-spanner.ly
1 \score{
2     \notes\relative c''{
3         \property Voice.TextSpanner \push #'edge-text = #'("8 " . "")
4         a \spanrequest \start "text"
5         b c 
6         a \spanrequest \stop "text"
7
8         \property Voice.TextSpanner \pop #'type
9         \property Voice.TextSpanner \push #'type = #"dotted-line"
10         a \spanrequest \start "text"
11         b c 
12         a \spanrequest \stop "text"
13
14         \property Voice.TextSpanner \pop #'type
15         \property Voice.TextSpanner \push #'type = #"dashed-line"
16         \property Voice.TextSpanner \push #'edge-height = #'(1 . -2)
17         a \spanrequest \start "text"
18         b c 
19         a \spanrequest \stop "text"
20
21         \property Voice.TextSpanner \push #'dash-length = #5
22         \property Voice.TextSpanner \push #'line-thickness = #10
23         a \spanrequest \start "text"
24         b c 
25         a \spanrequest \stop "text"
26     }
27 }