]> git.donarmstrong.com Git - lilypond.git/blob - input/features/slur-attachment.ly
patch::: 1.3.128.jcn4
[lilypond.git] / input / features / slur-attachment.ly
1
2 fragment = \notes {
3   \property Voice.Slur \set #'direction = #1
4   \property Voice.Stem \set #'length = #5.5
5   g''8(g)g4
6   g4(g8)g
7   \property Voice.Slur \set #'attachment = #'(stem . stem)
8   g8(g)g4
9   g4(g8)g
10 }
11
12 \paper { linewidth = -1.; } 
13
14 \score {
15   \notes\relative c \fragment
16   \paper { }  
17 }