]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/new-slur.ly
release commit
[lilypond.git] / input / regression / new-slur.ly
1
2 \header {
3     texidoc = "Scoring based slur formatting."
4 }
5
6 \version "2.3.7"
7 \paper {
8     raggedright = ##t
9 }
10
11 %% help lilypond-book
12 %% \score
13
14 \relative {
15     \override Slur #'after-line-breaking-callback = #New_slur::after_line_breaking
16     \override Slur #'print-function = #New_slur::print     
17     \override Slur #'height = ##f
18
19     \grace e=''16( d8.[) c16]
20     d8.[ \grace f16( e16)]
21     s2
22     << {c=''8.([ es16] bes4~bes )}
23        \\
24        {r8  <as es> r <f des> r }
25    >>
26     s4
27
28     g='8[( a b b! ]  c4  bes) 
29     bes='8( f' des bes) as4( bes)
30     r8 d( f e d c b a)
31     cis=''4( d)  f'=''16( e)    d( c)
32     s4
33     
34     c'=''2(~c8 d16 c b8 a)
35     
36     <c=' g>4 ( f <g b>) f
37     <c g>^( f <g b>) f
38     <c g>_( f <g b>)
39     <g b>_( g  <b d>)
40     <g b>_( \stemDown g \stemBoth  <b d>)
41     c,^( c'' c) 
42     c,,^( c'')
43     c,,^( c')
44     s4
45     | b='2( a4) s4
46     | b='4.( c8) s2
47     | << c=''1_(
48        { s2 \grace { b16[ c] } } >>
49     \break
50     b4)
51     e=''4.( c8) s4
52     
53
54     
55 }
56