X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-extreme.ly;h=bb7a8f81b501a3c3be0b81b8bf8ebdc2e74193e6;hb=HEAD;hp=4a077562d319aed3c57a5dca52dbaa3e513fd67e;hpb=8b88bf025331c789167734067001a3d79501b433;p=lilypond.git

diff --git a/input/regression/beam-extreme.ly b/input/regression/beam-extreme.ly
index 4a077562d3..bb7a8f81b5 100644
--- a/input/regression/beam-extreme.ly
+++ b/input/regression/beam-extreme.ly
@@ -1,27 +1,40 @@
+
+\version "2.19.21"
 \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.
-";
+under normal circumstances, these beams would get knees.  Here
+@code{Beam.auto-knee-gap} was set to false.
+"
+}
+
+\layout{
+  %%    ragged-right = ##t
+  ragged-right = ##t
 }
 
-\score{
-	\notes\relative c''{
-		[g8 c c,]
-		[c16 c'' a f]
-		\stemUp 
-		[c,,32 c'' a f]
+extreme = \relative {
+  \stemNeutral
+   g'8[ c c,]
+   c16[ c'' a f]
+  \stemUp 
+   c,,32[ c'' a f]
+
+  %%%%%%%
+  \stemNeutral
+  \tuplet 3/2{ d16[ fis' d,]} \tuplet 3/2{ cis[ g'' cis,,]}
+  a'16 cis a, g''' % Used to give a nice beam directed upwards.
+  \stemNeutral
+
+  \transpose c c {
+	  \stemDown  e'8[ e e']
+      }
+}
 
-	}
-	\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
-		}
-	}
+{
+				% If we want to test extreme beams,
+				% we should not have them auto-kneed
+  \override Beam.auto-knee-gap = ##f
+  \extreme
 }