X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Fregression%2Fbeam-center-slope.ly;h=6d202523f47f9ba50e416cba1e869c092e109159;hb=eeec992b7029d0982bf4ed0eb3995e9ca99c10e9;hp=3d595f87f822e2858547d8d78474377e66cab7da;hpb=955f829883aa125b2b633b1e71f6256da5b773fa;p=lilypond.git

diff --git a/input/regression/beam-center-slope.ly b/input/regression/beam-center-slope.ly
index 3d595f87f8..6d202523f4 100644
--- a/input/regression/beam-center-slope.ly
+++ b/input/regression/beam-center-slope.ly
@@ -1,42 +1,48 @@
-#(ly:set-option 'old-relative)
 
-\version "1.9.0"
+\version "2.12.0"
 \header{
 
-    texidoc="Simple beams on middle staffline are allowed to be
+  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
+}
+
+\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]
 }