release commit

[lilypond.git] / input / test / drarn-slurs.ly

diff --git a/input/test/drarn-slurs.ly b/input/test/drarn-slurs.ly
index ab1e17f097041cb75094645e5b2f66facc98b6fe..a2943912b162707fd24c2c4c3a4c81473001386d 100644 (file)
--- a/input/test/drarn-slurs.ly
+++ b/input/test/drarn-slurs.ly
@@ -1,21 +1,23 @@
-\version "1.7.6"
 
+\version "2.1.30"
+% possible rename to slurs-?
+% TODO: find out what drarn means, and if there's an overlap with drarn.ly
 \header{
-texidoc="
+texidoc="@cindex Drarn Slurs
 Slurs can be forced to always attach to note heads.
 "
 }
 
 fragment = \notes {
-  \property Voice.Slur \set #'direction = #1
-  \property Voice.Slur \set #'attachment = #'(head . head)
-  g''16()g()g()g()d'()d()d()d
+  \override Slur  #'direction = #1
+  \override Slur  #'attachment = #'(head . head)
+  g''16(g)(g)(g)(d')(d)(d)(d)
 }
 
-\paper { linewidth = -1. } 
+\paper { raggedright = ##t} 
 
 \score {
   \notes\relative c \fragment
-  \paper { }  
+  \paper { raggedright = ##t}  
 }
-%% new-chords-done %%
+