]> git.donarmstrong.com Git - lilypond.git/blob - input/test/drarn.ly
*** empty log message ***
[lilypond.git] / input / test / drarn.ly
1
2 \version "2.1.28"
3 \header{texidoc="@cindex Drarn
4 You can attach slurs and ties to noteheads.
5 " }
6
7 \score {
8   \context Staff \notes <<
9     
10      \relative c'' {
11 \time 3/8        
12       \override Stem  #'direction = #1
13       \override Tie  #'direction = #1
14       \override Slur  #'direction = #1
15       \override Slur  #'attachment = #'(head . head)
16       c8~c(c)  
17     }\\
18      \relative c'' {
19       \override Stem  #'direction = #-1
20       \override Tie  #'direction = #-1
21       \override Slur  #'direction = #-1
22       \override Slur  #'attachment = #'(head . head)
23       a8(a)~a  
24     }
25   >>
26   \paper { linewidth = 40*\staffspace
27                 raggedright = ##t } 
28 }
29