(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 5c4a5820b989d106ce4276bac78412c6ed609fd1..fa26940ab74444d3c6ca7df23f8ccf5803a4aa79 100644 (file)
--- a/input/regression/new-slur.ly
+++ b/input/regression/new-slur.ly
@@ -3,35 +3,30 @@
     texidoc = "Scoring based slur formatting."
 }
 
+\version "2.3.7"
 \paper {
     raggedright = ##t
 }
 
-% #(ly:set-option 'debug-beam #t)
-
 %% help lilypond-book
 %% \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) 
+    bes='8( f' des bes) as4( bes)
+    r8 d( f e d c b a)
+    cis=''4( d)  f'=''16( e)    d( c)
     s4
-    
-    f'=''16( e)    d( c)
-    s2.
     
     c'=''2(~c8 d16 c b8 a)
     
@@ -43,6 +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)
+}
 
-% #(ly:set-option 'debug-beam #f)