input/regression/beam-concave-chord.ly

   1 \version "2.11.51"
   2
   3
   4 morgenliedBeam = \relative c'' \new Voice{
   5   \time 3/8
   6   % morgenlied
   7   c16 b c e g <e b'> |
   8   \stemUp
   9   c16 b c e g <e b'> |
  10 }
  11
  12 rachmaninovBeams = \relative \new Voice {
  13   \voiceOne
  14   \time 4/4
  15   \key c \minor
  16   <c' e c'>8 <g c g'> <c f> <ees, ees'>~ <ees ees'> <c c'> <des des'> <d d'>
  17 }
  18
  19 horizontalBeams = {
  20   % todo.
  21 }
  22
  23 nonHorizontalBeams = {
  24   \morgenliedBeam
  25   \rachmaninovBeams
  26 }
  27 \layout {
  28   ragged-right = ##t
  29   }
  30
  31 % cut & paste from beam-concave.ly
  32
  33 #(define (<> x y) (not (= x  y)))
  34 mustBeHorizontal =
  35   \override Staff.Beam #'positions = #(ly:make-simple-closure
  36                                  (ly:make-simple-closure
  37                                   (append
  38                                    (list chain-grob-member-functions `(,cons 0 0))
  39                                    (check-slope-callbacks =))))
  40 mustNotBeHorizontal =
  41   \override Staff.Beam #'positions = #(ly:make-simple-closure
  42                                  (ly:make-simple-closure
  43                                   (append
  44                                    (list chain-grob-member-functions `(,cons 0 0))
  45                                    (check-slope-callbacks <>))))
  46
  47
  48 \new Voice {
  49   \mustBeHorizontal
  50   r1
  51   \horizontalBeams
  52   \mustNotBeHorizontal
  53   \nonHorizontalBeams
  54 }
  55