]> git.donarmstrong.com Git - lilypond.git/blob - input/test/new-slur.ly
(compose_ly): make fragment mandatory
[lilypond.git] / input / test / new-slur.ly
1
2 % breaks web
3 \paper {
4     raggedright = ##t
5 }
6
7
8 \relative {
9
10
11     \override Slur #'after-line-breaking-callback = #New_slur::after_line_breaking
12     \override Slur #'print-function = #New_slur::print     
13     \override Slur #'height = ##f
14     f'=''16( e)    d( c)
15     c'=''2(~c8 d16 c b8 a)
16     f='4
17     <c g>4 ( f <g b>)
18      f
19     <c g>^( f <g b>)
20     f
21     <c g>_( f <g b>)
22     <g b>_( g  <b d>)
23     <g b>_( \stemDown g \stemBoth  <b d>)
24     c,^( c'' c) 
25     c,,^( c'')
26     c,,^( c')
27     
28 }
29