* lily/stem.cc (print): only produce stemlets if there are no

[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 ab963774fc4a21ac2ab1dc27cb245b04bb20d673..971ce5e7ee20cedc8b01c387167a784b72713223 100644 (file)
--- 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
     }
 }
+