* lily/main.cc (LY_DEFINE): add gmane address.

[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 01a82fc6b401502700b987efc08c832f8cae0c26..e066c1b60992517a888c49663e8663b7a4736654 100644 (file)
--- a/input/regression/beam-default-lengths.ly
+++ b/input/regression/beam-default-lengths.ly
@@ -1,18 +1,22 @@
-#(ly:set-option 'old-relative)
-\version "1.9.1"
+\layout{ raggedright = ##t}
+
+\version "2.7.13"
 
 \header{
-    texidoc="Beamed stems have standard lengths if possible."
-    }
+  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 #'position =
+  #(ly:make-simple-closure
+    (ly:make-simple-closure
+     (list chain-grob-member-functions
+      `(,cons 0 0)
+      Beam::calc_least_squares_positions
+      Beam::slope_damping
+      Beam::shift_region_to_valid
+      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] 
+}