-\version "2.12.0"
+\version "2.16.0"
+\header {
+texidoc = "Concave beaming works for chords as well as monophonic
+music.
+"
+}
morgenliedBeam = \relative c'' \new Voice {
\time 3/8
% 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 {