X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-default-lengths.ly;h=e6e3a265161e8f9f4ca67d7e4e7fed080a48fbfa;hb=e90f0536f9be39ada0bef0aeb0d275dec3b2fb5b;hp=ad60d495b4c9a4a4372aa5c16f04e597ff0c84c4;hpb=72972afb27cf99f5ae432f4a1463d4f6de6107a0;p=lilypond.git

diff --git a/input/regression/beam-default-lengths.ly b/input/regression/beam-default-lengths.ly
index ad60d495b4..e6e3a26516 100644
--- a/input/regression/beam-default-lengths.ly
+++ b/input/regression/beam-default-lengths.ly
@@ -1,17 +1,20 @@
-\version "1.7.16"
+\version "2.14.0"
 
-\header{
-    texidoc="Beamed stems have standard lengths if possible."
-    }
+\header {
+  texidoc = "Beamed stems have standard lengths if possible.  Quantization
+is switched off in this example."
+}
 
-\score{
-    \notes\relative c'{
-	\property Voice.Beam \set #'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] 
-    }
-    \paper{ raggedright = ##t}
-}          %% new-chords-done %%
\ No newline at end of file
+  f4  f8[ f]  f16[ f]  f32[ f]  f64[ f]  f128[ f]
+}