X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-concave.ly;h=c45dec6c362951a2bd3004c61972386c8d785d0e;hb=0041871ea33b9e937e14f2fb97a32a759c7404ce;hp=d47a9b1cbbdb18c3c414e81db8be52737992b2bc;hpb=2055f35c47a045a50a01ff4dba8524322cfc3b48;p=lilypond.git

diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly
index d47a9b1cbb..c45dec6c36 100644
--- a/input/regression/beam-concave.ly
+++ b/input/regression/beam-concave.ly
@@ -1,4 +1,4 @@
-\version "2.14.0"
+\version "2.19.21"
 \header{
 
   texidoc = "Fully concave beams should be horizontal. Informally spoken,
@@ -12,12 +12,12 @@
 }
 
 
-resetMeasure = \set Score.measurePosition = #(ly:make-moment 0 1)
+resetMeasure = \set Score.measurePosition = #(ly:make-moment 0/1)
 
 %% examples from Ross.
-rossFourBeams =\relative c'' {
+rossFourBeams =\relative {
   \time 2/4
-  c8[ e b c]
+  c''8[ e b c]
   b[ c d b]
   c[ f b, c]
 
@@ -31,9 +31,9 @@ rossFourBeams =\relative c'' {
   f[g g e]
   a[ d, b' g]
 }
-rossThreeBeams = \relative c'' {
+rossThreeBeams = \relative {
   \time 6/8
-  e[ a, c] f[ d g]
+  e''[ a, c] f[ d g]
   f,[ b g] a[ b f]
   d'[ c b a b e]
   c[ b a c b a]
@@ -58,11 +58,7 @@ rossBeams = \relative c'' {
 
 #(define (<> x y) (not (= x  y)))
 \new Voice {
-  \override Beam #'positions = #(ly:make-simple-closure
-				 (ly:make-simple-closure
-				  (append
-				   (list chain-grob-member-functions `(,cons 0 0))
-				   (check-slope-callbacks =))))
+  \override Beam.positions = #(check-slope-callbacks =)
   \rossBeams
   
 }