Merge with git+ssh://jneem@git.sv.gnu.org/srv/git/lilypond.git

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

diff --git a/input/regression/beam-extreme.ly b/input/regression/beam-extreme.ly
index bb0c7f0259d310b075a15f542885098466560359..b622dbd2770a4e8b270c6b4505f867430055f71f 100644 (file)
--- a/input/regression/beam-extreme.ly
+++ b/input/regression/beam-extreme.ly
@@ -1,47 +1,40 @@
-\version "1.7.18"
+
+\version "2.10.0"
 \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
-   g8-[ c c,]
-   c16-[ c'' a f]
+\layout{
+  %%    ragged-right = ##t
+  ragged-right = ##t
+}
+
+extreme = \relative c'' {
+  \stemNeutral
+   g8[ c c,]
+   c16[ c'' a f]
   \stemUp 
-   c,,32-[ c'' a f]
+   c,,32[ c'' a f]
 
   %%%%%%%
-  \stemBoth
-  \times 2/3{ d16-[ fis' d,]} \times 2/3{ cis-[ g'' cis,,]}
+  \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']
+         \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
 }