X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fbeam-concave.ly;h=c45dec6c362951a2bd3004c61972386c8d785d0e;hb=4e9fd2773a496f31bf6f3a2c1a900fbc4d647487;hp=f104b16ef13e7279b9eccb5fde200d81cfcbebc9;hpb=0fa2c20a41e0be92566dd35f1ca7ff8ba38e80d7;p=lilypond.git diff --git a/input/regression/beam-concave.ly b/input/regression/beam-concave.ly index f104b16ef1..c45dec6c36 100644 --- a/input/regression/beam-concave.ly +++ b/input/regression/beam-concave.ly @@ -1,4 +1,4 @@ -\version "2.12.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 }