*** empty log message ***

[lilypond.git] / input / test / slur-ugly.ly

diff --git a/input/test/slur-ugly.ly b/input/test/slur-ugly.ly
index 9f51491292900d2f4e148a66764f5c6704056ea9..4620fbbe3adb67a904598f3edae88f1c3dd4a50c 100644 (file)
--- a/input/test/slur-ugly.ly
+++ b/input/test/slur-ugly.ly
@@ -1,38 +1,37 @@
-\version "1.7.6"
 
-\header {
-texidoc="You can get ugly slurs, if you want.
-"
+\version "2.1.28"
+
+\header { texidoc="@cindex Slur Ugly
+Strange slurs can be produced by setting properties by hand. "
 }
 
 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 <
+  \notes \context PianoStaff <<
     \time 6/4
     \context Staff=up { s1 * 6/4 }
-    \context Staff=down <
+    \context Staff=down <<
       \clef bass
-      \autochange Staff \context Voice \baseWalk
-    >
-  >
+      #(override-auto-beam-setting '(end * * * *)  1 2 'Score)
+      \autochange  \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 * * * *)
-        = #(ly:make-moment 1 2)
+      \override Slur #'beautiful = #5.0
+      \override Slur #'direction = #1
+      \override Stem #'direction = #-1
     }
     \translator {
       \PianoStaffContext
-      VerticalAlignment \override #'threshold = #'(5 . 5)
+      \override VerticalAlignment #'threshold = #'(5 . 5)
     }
   }
 }
 
-%% new-chords-done %%
+