X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-center-slope.ly;h=f86850ecced8199714b5f44fcdb9dfd89b7208c0;hb=b6304f90bdada0051d8b2e28c97549ca8ec58fd9;hp=14c850951b708bea5c76ad2e7cb65f37b8a4f1c9;hpb=15e565fef41ab50d140c3028bc6d9cff1a43a56a;p=lilypond.git

diff --git a/input/regression/beam-center-slope.ly b/input/regression/beam-center-slope.ly
index 14c850951b..f86850ecce 100644
--- a/input/regression/beam-center-slope.ly
+++ b/input/regression/beam-center-slope.ly
@@ -1,41 +1,48 @@
 
-\version "1.7.16"
+\version "2.10.0"
 \header{
 
-    texidoc="Simple beams on middle staffline be allowed to be
-    slightly sloped.  Beams reaching beyond middle line can have
-    bigger slope."
+  texidoc="Simple beams on middle staffline are allowed to be
+    slightly sloped, even if the notes have ledgers.  Beams reaching
+    beyond middle line can have bigger slope."
 
 }
 
-\score{
-    \notes\relative c'{
-	%%\property Staff.Stem \set #'beamed-lengths = #'(3.50)
-	%%  c8-[ d]
-	%%  d-[ c]
-	%% r2
-	%% \property Staff.Stem \set #'beamed-lengths = #'(3.26)
-
-         a8-[^"small slope" b]
-         b-[ a]
-
-	 c''-[ b]
-	 b-[ c]
-	
-	 c,,-[ d]
-	 d-[ c]
-	
-	 a''-[ g]
-	 g-[ a]
-
-	 c,,-[^"bigger slope" e]
-	 e-[ c]
-	
-	 a''-[ f]
-	 f-[ a]
-    }
-    \paper{
-	linewidth = 0.0
-    }
+\layout{
+  ragged-right = ##t
+  indent = 0
 }
-%% new-chords-done %%
+
+\relative c'{
+  %%\override Staff.Stem  #'beamed-lengths = #'(3.50)
+  %%  c8[ d]
+  %%  d[ c]
+  %% r2
+  %% \override Staff.Stem  #'beamed-lengths = #'(3.26)
+
+  a8[^"small slope" b]
+  b[ a]
+
+  c''[ b]
+  b[ c]
+
+				% baerenreiter test
+  b,,[ c]
+  c[ b]
+
+  b''[ a]
+  a[ b]
+
+  c,,[ d]
+  d[ c]
+  
+  a''[ g]
+  g[ a]
+
+  c,,[^"bigger slope" e]
+  e[ c]
+  
+  a''[ f]
+  f[ a]
+}
+