''

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

diff --git a/input/test/slur-ugly.ly b/input/test/slur-ugly.ly
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0a99cb3799eda5843fce2d0ec3f3a5816cf9f96a 100644 (file)
--- a/input/test/slur-ugly.ly
+++ b/input/test/slur-ugly.ly
@@ -0,0 +1,37 @@
+\version "1.5.49"
+
+\header {
+texidoc="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 {
+    linewidth = -1.
+    \translator {
+      \VoiceContext
+      Slur \override #'beautiful = #5.0
+      Slur \override #'direction = #1
+      Stem \override #'direction = #-1
+      autoBeamSettings \override #'(end * * * *)
+        = #(make-moment 1 2)
+    }
+    \translator {
+      \PianoStaffContext
+      VerticalAlignment \override #'threshold = #'(5 . 5)
+    }
+  }
+}
+