Merge branch 'cvs-head' of ssh+git://hanwen@repo.or.cz/srv/git/lilypond into master...

[lilypond.git] / input / regression / beam-extreme.ly

diff --git a/input/regression/beam-extreme.ly b/input/regression/beam-extreme.ly
index 5cae7ef76bec2a0d5f98ce3df3e79e08de0d5abe..f68921a11c2595dc93f130b022ceedd792e6a2c2 100644 (file)
--- a/input/regression/beam-extreme.ly
+++ b/input/regression/beam-extreme.ly
@@ -1,48 +1,40 @@
 
-\version "1.9.1"
+\version "2.7.39"
 \header{
 texidoc="
 Beams should behave reasonably well, even under extreme circumstances.
 Stems may be short, but noteheads should never touch the beam.  Note that
 under normal circumstances, these beams would get knees here
-Beam.auto-knee-gap was set to false.
+@code{Beam.auto-knee-gap} was set to false.
 "
 }
 
-extreme = \notes\relative c'' {
-  \stemBoth
+\layout{
+  %%    ragged-right = ##t
+  ragged-right = ##t
+}
+
+extreme = \relative c'' {
+  \stemNeutral
    g8[ c c,]
    c16[ c'' a f]
   \stemUp 
    c,,32[ c'' a f]
 
   %%%%%%%
-  \stemBoth
+  \stemNeutral
   \times 2/3{ d16[ fis' d,]} \times 2/3{ cis[ g'' cis,,]}
   a'16 cis a, g''' % Used to give a nice beam directed upwards.
-  \stemBoth
+  \stemNeutral
 
   \transpose c c {
          \stemDown  e'8[ e e']
       }
 }
 
-\score {
-  {
-    % If we want to test extreme beams,
-    % we should not have them auto-kneed
-    \property Voice.Beam \override #'auto-knee-gap = ##f
-    \extreme
-
-
-    %% what does this test? --hwn
-%{
-    \property Voice.Beam \override #'slope-limit = #1000
-    \extreme
-    %}
-  }
-  \paper{
-%    raggedright = ##t
-    raggedright = ##t
-  }
+{
+                               % If we want to test extreme beams,
+                               % we should not have them auto-kneed
+  \override Beam  #'auto-knee-gap = ##f
+  \extreme
 }