X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fdrarn.ly;h=c2c154c74a1f916671f7c7a55b69e00fcf070faf;hb=7482c98a81b501a8265ae4f62227fca5aefb1442;hp=02db4fb37502f5149869ea011051db56ffed37cb;hpb=38bf0bef16bc2bd839f9dc488b472925eb85600a;p=lilypond.git

diff --git a/input/test/drarn.ly b/input/test/drarn.ly
index 02db4fb375..c2c154c74a 100644
--- a/input/test/drarn.ly
+++ b/input/test/drarn.ly
@@ -1,27 +1,29 @@
-\version "1.7.18"
+
+\version "2.1.7"
 \header{texidoc="@cindex Drarn
 You can attach slurs and ties to noteheads.
 " }
 
 \score {
-  \context Staff \notes <
-    \time 3/8
-    \context Voice=one \relative c'' {
+  \context Staff \notes <<
+    
+     \relative c'' {
+\time 3/8	 
       \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'' {
+      c8~c(c)  
+    }\\
+     \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  
+      a8(a)~a  
     }
-  >
+  >>
   \paper { linewidth = 40*\staffspace
 		raggedright = ##t } 
 }
-%% new-chords-done %%
+