X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Fregression%2Fbeam-center-slope.ly;h=f86850ecced8199714b5f44fcdb9dfd89b7208c0;hb=43877c88a9aa5597d40f8eaa98ca01bece52f754;hp=a472c9d794d1b38f127f6d9f77d739aa19be1208;hpb=be9d398d705ecf2308e10864e37c6f1315c78ec9;p=lilypond.git

diff --git a/input/regression/beam-center-slope.ly b/input/regression/beam-center-slope.ly
index a472c9d794..f86850ecce 100644
--- a/input/regression/beam-center-slope.ly
+++ b/input/regression/beam-center-slope.ly
@@ -1,13 +1,48 @@
-\version "1.5.68"
+
+\version "2.10.0"
 \header{
-  texidoc="Simple beams on middle line should be allowed to have a 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'{
-	[b8 c] [c b]
-	[b''8 a] [a b]
-    }
-    \paper{
-	linewidth = 0.0
-    }
-}
\ No newline at end of file
+
+\layout{
+  ragged-right = ##t
+  indent = 0
+}
+
+\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]
+}
+