]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/drarn.ly
* scripts/convert-ly.py (conv): remove \notes.
[lilypond.git] / input / test / drarn.ly
index f6ac17c1838896036f993bdd7ffadac7a3983025..4435d7131924b578901900b5083e094e7871c1e1 100644 (file)
@@ -1,22 +1,29 @@
-\version "1.3.146"
+
+\version "2.3.4"
+\header{texidoc="@cindex Drarn
+You can attach slurs and ties to noteheads.
+" }
 
 \score {
-  \context Staff \notes <
-    \time 3/8
-    \context Voice=one \relative c'' {
-      \property Voice.Stem \set #'direction = #1
-      \property Voice.Tie \set #'direction = #1
-      \property Voice.Slur \set #'direction = #1
-      \property Voice.Slur \set #'attachment = #'(head . head)
-      c8~c()c  
-    }
-    \context Voice=two \relative c'' {
-      \property Voice.Stem \set #'direction = #-1
-      \property Voice.Tie \set #'direction = #-1
-      \property Voice.Slur \set #'direction = #-1
-      \property Voice.Slur \set #'attachment = #'(head . head)
-      a8()a~a  
+  \context Staff  <<
+    
+     \relative c'' {
+\time 3/8       
+      \override Stem  #'direction = #1
+      \override Tie  #'direction = #1
+      \override Slur  #'direction = #1
+      \override Slur  #'attachment = #'(head . head)
+      c8~c(c)  
+    }\\
+     \relative c'' {
+      \override Stem  #'direction = #-1
+      \override Tie  #'direction = #-1
+      \override Slur  #'direction = #-1
+      \override Slur  #'attachment = #'(head . head)
+      a8(a)~a  
     }
-  >
-  \paper { linewidth = 40*\staffspace } 
+  >>
+  \paper { linewidth = 40*\staffspace
+               raggedright = ##t } 
 }
+