*** 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 e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..e4afdb16cf7a811c9726e1323d8c76be2375c35d 100644 (file)
--- a/input/test/slur-ugly.ly
+++ b/input/test/slur-ugly.ly
@@ -0,0 +1,38 @@
+
+\version "1.9.8"
+
+\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)
+}
+
+\score {
+  \notes \context PianoStaff <<
+    \time 6/4
+    \context Staff=up { s1 * 6/4 }
+    \context Staff=down <<
+      \clef bass
+      \autochange Staff \context Voice \baseWalk
+    >>
+  >>
+  \paper {
+    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)
+    }
+    \translator {
+      \PianoStaffContext
+      VerticalAlignment \override #'threshold = #'(5 . 5)
+    }
+  }
+}
+
+