biem fix

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

diff --git a/input/regression/beam-extreme.ly b/input/regression/beam-extreme.ly
index 8fa8d4a2d4bb1253ebcef58ed32162d0737852c5..754553c765b512a77b98e486f456dfe4c40a1a6b 100644 (file)
--- a/input/regression/beam-extreme.ly
+++ b/input/regression/beam-extreme.ly
@@ -1,25 +1,47 @@
+\version "1.3.146"
 \header{
 texidoc="
 Beams should behave reasonably well, even under extreme circumstances.
-Stems may be short, but noteheads should never touch the beam.
-";
+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.
+"
 }
-\version "1.3.117";
-\score{
-       \notes\relative c''{
-               [g8 c c,]
-               [c16 c'' a f]
-               \stemUp 
-               [c,,32 c'' a f]
 
-       }
-       \paper{
-               linewidth=-1.;
-               \translator {
-                       \VoiceContext
-                       % If we want to test extreme beams,
-                       % we should not have them auto-kneed
-                       Beam \override #'auto-knee-gap = ##f
-               }
-       }
+extreme = \notes\relative c'' {
+  \stemBoth
+  [g8 c c,]
+  [c16 c'' a f]
+  \stemUp 
+  [c,,32 c'' a f]
+
+  %%%%%%%
+  \stemBoth
+  \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
+
+  \transpose 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
+    linewidth = -1
+  }
 }