Release: bump Welcome versions.

[lilypond.git] / input / regression / beam-concave-chord.ly

diff --git a/input/regression/beam-concave-chord.ly b/input/regression/beam-concave-chord.ly
index 653165d87d1b2145073e823eda1b1237ad211a70..2c35727a7de48e907e0fdcc2c52293046e286621 100644 (file)
--- a/input/regression/beam-concave-chord.ly
+++ b/input/regression/beam-concave-chord.ly
@@ -1,18 +1,23 @@
-\version "2.12.0"
+\version "2.19.21"
+\header {
+texidoc = "Concave beaming works for chords as well as monophonic
+music.
+"
+}
 
-morgenliedBeam = \relative c'' \new Voice {
+morgenliedBeam = \relative \new Voice {
   \time 3/8
   % morgenlied
-  c16 b c e g <e b'> |
+  c''16 b c e g <e b'> |
   \stemUp
   c16 b c e g <e b'> |
 }
 
-rachmaninovBeams = \relative c' \new Voice {
+rachmaninovBeams = \relative \new Voice {
   \voiceOne
   \time 4/4
   \key c \minor
-  <c' e c'>8[ <g c g'> <c f> <ees, ees'>] ~
+  <c'' e c'>8[ <g c g'> <c f> <ees, ees'>] ~
   <ees ees'>8[ <c c'> <des des'> <d d'>]
 }
 
@@ -30,22 +35,12 @@ nonHorizontalBeams = {
 
 % cut & paste from beam-concave.ly
 
-#(define (<> x y) (not (= x  y)))
+#(define (<> x y) (not (= x y)))
 mustBeHorizontal = {
-  \override Staff.Beam #'positions =
-    #(ly:make-simple-closure
-      (ly:make-simple-closure
-       (append
-        (list chain-grob-member-functions `(,cons 0 0))
-        (check-slope-callbacks =))))
+  \override Staff.Beam.positions = #(check-slope-callbacks =)
 }
 mustNotBeHorizontal = {
-  \override Staff.Beam #'positions =
-    #(ly:make-simple-closure
-      (ly:make-simple-closure
-       (append
-        (list chain-grob-member-functions `(,cons 0 0))
-        (check-slope-callbacks <>))))
+  \override Staff.Beam.positions = #(check-slope-callbacks <>)
 }
 
 \new Voice {