]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/slur-ugly.ly
deleted input/test/lines.ly; duplicate of embedded-postscript.ly
[lilypond.git] / input / test / slur-ugly.ly
index 7406ba233b07b08de1296d782cbb556f79fae222..2578d4a591282c23ab9097e61ede4a3d2cd68c28 100644 (file)
@@ -1,30 +1,31 @@
-\header {
-texidoc="You can get ugly slurs, if you want.
-";
+\version "1.7.18"
+
+\header { texidoc="@cindex Slur Ugly
+You can get ugly slurs, if you want. "
 }
 
 baseWalk = \notes \relative c {
-  d,8( a' d f a d f d a f d )a
+  d,8( a' d f a d f d a f d  a-)
 }
 
 \score {
   \notes \context PianoStaff <
-    \time 6/4;
+    \time 6/4
     \context Staff=up { s1 * 6/4 }
     \context Staff=down <
-      \clef bass;
+      \clef bass
       \autochange Staff \context Voice \baseWalk
     >
   >
   \paper {
-    linewidth = -1.;
+    raggedright = ##t
     \translator {
       \VoiceContext
       Slur \override #'beautiful = #5.0
       Slur \override #'direction = #1
       Stem \override #'direction = #-1
       autoBeamSettings \override #'(end * * * *)
-        = #(make-moment 1 2)
+        = #(ly:make-moment 1 2)
     }
     \translator {
       \PianoStaffContext
@@ -33,3 +34,4 @@ baseWalk = \notes \relative c {
   }
 }
 
+%% new-chords-done %%