From 79d65ce747bd34606344279639622f4c088a249e Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 19 Jul 2004 16:20:02 +0000
Subject: [PATCH] More collision tests.

---
 input/regression/slur-script.ly | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/input/regression/slur-script.ly b/input/regression/slur-script.ly
index bc861e7619..8ba56f9136 100644
--- a/input/regression/slur-script.ly
+++ b/input/regression/slur-script.ly
@@ -1,22 +1,29 @@
 
 \header {
 
-    texidoc = "Slurs avoid collisions with scripts. If you want to
-have a different configuration, the scripts must be moved manually."
+    texidoc = "A slur avoids collisions with scripts.  Only articulations
+    go inside the slur, dynamic markings, fingerings texts etc. go outside
+    of slur.
 
+    For different configurations, the scripts can be moved manually."
     }
 
 \version "2.3.7"
 \paper { raggedright = ##t }
+\relative
 {
-    \once \override Script #'padding = #1.2
-    b8-.( b-.
-    \once \override Script #'padding = #1.2
-    b-.)
-    
-    b-.( b-. b-.)
+    b4-.( b-. b-.)
     b--( b-- b--)
     b->( b-> b->)
     b-.--( b-.-- b-.--)
     b---.( b---. b---.)
+
+    b_1( b b_1_2_3)
+    c-1_\markup { \italic {"cresc."}}( f c)
+    c-1( f\f c)
+    c-1( c\f c)
+    \once \override Script #'padding = #1.2
+    b-.( b-.
+    \once \override Script #'padding = #1.2
+    b-.)
 }
-- 
2.39.5