X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-center-slope.ly;h=971ce5e7ee20cedc8b01c387167a784b72713223;hb=9a7dfb0f5156e52dd4c4ad158abad29f165220e9;hp=ab963774fc4a21ac2ab1dc27cb245b04bb20d673;hpb=f296c9b7aa080acf9edccdb984d058f9a7a92ae1;p=lilypond.git

diff --git a/input/regression/beam-center-slope.ly b/input/regression/beam-center-slope.ly
index ab963774fc..971ce5e7ee 100644
--- a/input/regression/beam-center-slope.ly
+++ b/input/regression/beam-center-slope.ly
@@ -1,38 +1,49 @@
+
+\version "2.4.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]
+    \relative c'{
+	%%\override Staff.Stem  #'beamed-lengths = #'(3.50)
+	%%  c8[ d]
+	%%  d[ c]
 	%% r2
-	%% \property Staff.Stem \set #'beamed-lengths = #'(3.26)
+	%% \override Staff.Stem  #'beamed-lengths = #'(3.26)
 
-        [a8^"small slope" b]
-        [b a]
+         a8[^"small slope" b]
+         b[ a]
 
-	[c'' b]
-	[b c]
-	
-	[c,, d]
-	[d c]
+	 c''[ b]
+	 b[ c]
+
+	 % baerenreiter test
+	 b,,[ c]
+	 c[ b]
+
+	 b''[ a]
+	 a[ b]
+
+	 c,,[ d]
+	 d[ c]
 	
-	[a'' g]
-	[g a]
+	 a''[ g]
+	 g[ a]
 
-	[c,,^"bigger slope" e]
-	[e c]
+	 c,,[^"bigger slope" e]
+	 e[ c]
 	
-	[a'' f]
-	[f a]
+	 a''[ f]
+	 f[ a]
     }
-    \paper{
-	linewidth = 0.0
+    \layout{
+	raggedright = ##t
+	indent = 0
     }
 }
+