Merge commit 'origin' into beamlets2

[lilypond.git] / input / regression / beam-center-slope.ly

diff --git a/input/regression/beam-center-slope.ly b/input/regression/beam-center-slope.ly
index cec90fc4f202b3b2ea96502fdd0557dffab16293..6d202523f47f9ba50e416cba1e869c092e109159 100644 (file)
--- a/input/regression/beam-center-slope.ly
+++ b/input/regression/beam-center-slope.ly
@@ -1,12 +1,48 @@
+
+\version "2.12.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''{
-       [b'8 a] [a b]
-       [a,,8 b] [b a]
-    }
-    \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]
+}
+