X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-concave.ly;h=a116f86f3be0f826d5c05faf9371e8a12566bedb;hb=6baa67b88f62024a3b6979cb789cce1bbcf540fb;hp=c3673fe0fc3b95ffef625683fa5418060a9cb062;hpb=641486a1a5522a9e66b470d8c762a1f789219573;p=lilypond.git

diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly
index c3673fe0fc..a116f86f3b 100644
--- a/input/regression/beam-concave.ly
+++ b/input/regression/beam-concave.ly
@@ -1,21 +1,20 @@
-
-\version "2.4.0"
+\version "2.10.0"
 \header{
 
-texidoc = "Fully concave beams should be horizontal. Informally spoken,
+  texidoc = "Fully concave beams should be horizontal. Informally spoken,
   concave refers to the shape of the notes that are opposite a
   beam. If an up-beam has high notes on its center stems, then we call
   it concave.
 
+  If a beam is fails a test, the desired slope is printed next to it.
 
-  If a beam is fails a test, the desired slope is printed
-next to it."
+" 
 }
 
 
 resetMeasure = \set Score.measurePosition = #(ly:make-moment 0 1)
 
-% examples from 
+%% examples from Ross.
 rossFourBeams =\relative c'' {
   \time 2/4
   c8[ e b c]
@@ -31,7 +30,7 @@ rossFourBeams =\relative c'' {
   f,,[ b a g]
   f[g g e]
   a[ d, b' g]
-  }
+}
 rossThreeBeams = \relative c'' {
   \time 6/8
   e[ a, c] f[ d g]
@@ -47,22 +46,23 @@ rossThreeBeams = \relative c'' {
 rossBeams = \relative c'' {
   \rossFourBeams
   \rossThreeBeams
-  }
+}
+
+\layout{
+  ragged-right = ##t
+  #(define debug-beam-quanting #t)
+}
 
 
 
 
 #(define (<> x y) (not (= x  y)))
-\score{
-   \new Voice {
-     \override Beam #'position-callbacks = #(check-slope-callbacks =)
-     \rossBeams
-     
-   }
-  \layout{
-    raggedright = ##t
-    #(define debug-beam-quanting #t)
-  }
+\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 =))))
+  \rossBeams
+  
 }
-
-