new file.

diff --git a/ChangeLog b/ChangeLog
index 2929f9b3dfb8f8afd7e5401a435d734ddf6e1bfe..bdc179e0c75cd3a06cc5a19a3dfd7568683b9dc8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,9 @@
 2004-08-28  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
-       * ly/engraver-init.ly (AncientRemoveEmptyStaffContext): set
-       bassStaffProperties to \clef bass.
+       * input/regression/slur-extreme.ly: new file.
+
+       * ly/engraver-init.ly (Score): set bassStaffProperties to \clef
+       bass. Obviates \clef bass in the bass staff, when using \autochange 
 
        * lily/auto-change-iterator.cc (construct_children): instantiate
        up/down Staff, create Voice on up staff initially. Obviates

diff --git a/input/regression/slur-extreme.ly b/input/regression/slur-extreme.ly
new file mode 100644 (file)
index 0000000..28a6062
--- /dev/null
+++ b/input/regression/slur-extreme.ly
@@ -0,0 +1,28 @@
+
+\version "2.3.12"
+
+\header {
+
+    texidoc="
+Extreme slurs are scaled to fit the pattern, but only  symmetrically.
+Asymmetric slurs are created by setting @code{excentricity}."
+
+}
+\paper {
+    raggedright = ##t
+}
+
+baseWalk =  \relative c {
+    \time 6/4
+    \stemDown
+    \slurUp
+    d,8[( a' d f] a[ d f d] a[ f d  a)]
+    d,8[( a' d f] a[ a a d] f[ d d,  a)]
+    \once\override Slur #'excentricity = #6.0
+    d,8[( a' d f] a[ a a d] f[ d d,  a)]
+}
+
+\context PianoStaff 
+    \autochange \baseWalk
+
+