Imported Upstream version 2.14.2

[lilypond.git] / input / regression / beam-default-lengths.ly

diff --git a/input/regression/beam-default-lengths.ly b/input/regression/beam-default-lengths.ly
index f765336f85f6e1f7f04a84cce91a45dfb65785b3..e6e3a265161e8f9f4ca67d7e4e7fed080a48fbfa 100644 (file)
--- a/input/regression/beam-default-lengths.ly
+++ b/input/regression/beam-default-lengths.ly
@@ -1,16 +1,20 @@
+\version "2.14.0"
 
-\version "2.6.0"
-
-\header{
-    texidoc="Beamed stems have standard lengths if possible. Quantization is switched off in this example."
-    }
+\header {
+  texidoc = "Beamed stems have standard lengths if possible.  Quantization
+is switched off in this example."
+}
 
-\relative c'{
-  \override Beam  #'position-callbacks =
-  #`(,Beam::least_squares
-     ,Beam::check_concave
-     ,Beam::slope_damping)
+\relative c' {
+  \override Beam #'positions =
+  #(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
+    )))
 
-  f4  f8[ f]  f16[ f]  f32[ f]  f64[ f]  f128[ f] 
+  f4  f8[ f]  f16[ f]  f32[ f]  f64[ f]  f128[ f]
 }
-\layout{ raggedright = ##t}