X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Fregression%2Fbeam-default-lengths.ly;h=031324629535410053aa0d288fb43779b37d781d;hb=3a991b6913837bac6d0ea429b583295b9263e049;hp=f5a32e46fab43bc91b34c68c36e74c07d7a22532;hpb=06b1da466f99f6c4a01ee6a3e611d25bd5359d4c;p=lilypond.git

diff --git a/input/regression/beam-default-lengths.ly b/input/regression/beam-default-lengths.ly
index f5a32e46fa..0313246295 100644
--- a/input/regression/beam-default-lengths.ly
+++ b/input/regression/beam-default-lengths.ly
@@ -1,18 +1,22 @@
+\layout{ ragged-right = ##t}
 
-\version "2.3.17"
+\version "2.11.51"
 
 \header{
-    texidoc="Beamed stems have standard lengths if possible. Quantization is switched off in this example."
-    }
+  texidoc="Beamed stems have standard lengths if possible. Quantization is switched off in this example."
+}
 
-\score{
-    \relative c'{
-	\override Beam  #'position-callbacks =
-	 #`(,Beam::least_squares
-	 ,Beam::check_concave
-	 ,Beam::slope_damping)
+\relative c'{
+  \override Beam #'position =
+  #(ly:make-simple-closure
+    (ly:make-simple-closure
+     (list chain-grob-member-functions
+      `(,cons 0 0)
+      ly:beam::calc-least-squares-positions
+      ly:beam::slope-damping
+      ly:beam::shift-region-to-valid
+      ly:beam::set-stem-lengths
+    )))
 
-        f4  f8[ f]  f16[ f]  f32[ f]  f64[ f]  f128[ f] 
-    }
-    \paper{ raggedright = ##t}
-}          
+  f4  f8[ f]  f16[ f]  f32[ f]  f64[ f]  f128[ f] 
+}