X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-shortened-lengths.ly;h=6cd91987a3c88d6ef9956e3cf8be7ce37b84e8ae;hb=38d7d319eabc906e82fb42002678c6d42a23b6f7;hp=af59c37daf5f842114542808db27ed13e993bd7a;hpb=955f829883aa125b2b633b1e71f6256da5b773fa;p=lilypond.git

diff --git a/input/regression/beam-shortened-lengths.ly b/input/regression/beam-shortened-lengths.ly
index af59c37daf..6cd91987a3 100644
--- a/input/regression/beam-shortened-lengths.ly
+++ b/input/regression/beam-shortened-lengths.ly
@@ -1,18 +1,24 @@
-#(ly:set-option 'old-relative)
-\version "1.9.0"
+
+\version "2.12.0"
 
 \header{
-    texidoc="Beams in unnatural direction, have shortened stems, but do not look too short."
-    }
+  texidoc="Beams in unnatural direction, have shortened stems, but do not look too short."
+}
+\layout{ ragged-right = ##t }
+
+
+\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
+    )))
+  
+  \stemUp
+  f'4  f8[ f]  f16[ f]  f32[ f]  f64[ f]  f128[ f] 
+}
 
-\score{
-    \notes\relative c'{
-	\property Voice.Beam \set #'position-callbacks =
-	 #`(,Beam::least_squares
-	 ,Beam::check_concave
-	 ,Beam::slope_damping)
-	\stemUp
-        f'4  f8-[ f]  f16-[ f]  f32-[ f]  f64-[ f]  f128-[ f] 
-    }
-    \paper{ raggedright = ##t}
-}