(print): always start from right edge of

[lilypond.git] / input / regression / new-slur.ly

diff --git a/input/regression/new-slur.ly b/input/regression/new-slur.ly
index cef25e3dc64c54d8d83560bf622af75eccf789b6..fa26940ab74444d3c6ca7df23f8ccf5803a4aa79 100644 (file)
--- a/input/regression/new-slur.ly
+++ b/input/regression/new-slur.ly
@@ -3,6 +3,7 @@
     texidoc = "Scoring based slur formatting."
 }
 
+\version "2.3.7"
 \paper {
     raggedright = ##t
 }
@@ -11,21 +12,14 @@
 %% \score
 
 \relative {
-    \override Slur #'after-line-breaking-callback = #New_slur::after_line_breaking
-    \override Slur #'print-function = #New_slur::print     
-    \override Slur #'height = ##f
-
-    \grace {
-       e=''16( 
-    }
-    d8.[) c16]
-    d8.[ \grace f16( e16)]
-    s2 
-
+  
+    \grace e=''16( d8.[) c16]
+    d=''8.[ \grace f16( e16)]
+    s2
     << {c=''8.([ es16] bes4~bes )}
        \\
        {r8  <as es> r <f des> r }
-   >>
+    >>
     s4
 
     g='8[( a b b! ]  c4  bes) 
@@ -44,5 +38,18 @@
     c,^( c'' c) 
     c,,^( c'')
     c,,^( c')
-    }
+    | b='2( a4) s4
+    | b='4.( c8) s2
+    | << c=''1_(
+       { s2 \grace { b16[ c] } } >>
+    \break
+    b4)
+    e=''4.( c8) s4
+    | << { b='8[( c]) } \\
+        { b='8[( c]) }>>
+    
+    s2.|
+    e4( dis4)
+    e4( dis4)
+}