]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/beam-center-slope.ly
Doc-fr: NR-1.5.2 merging rests
[lilypond.git] / input / regression / beam-center-slope.ly
index fb419b80c94ad8dd5dc56cca3716fbec61c85ab4..2e09fa6342b46d210ad66ff0ac932ebea333d762 100644 (file)
@@ -1,41 +1,48 @@
 
-\version "1.7.18"
+\version "2.17.6"
 \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
 }
-%% new-chords-done %%
+
+\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]
+}
+