input/regression/beam-concave.ly

   1
   2 \version "2.6.0"
   3 \header{
   4
   5 texidoc = "Fully concave beams should be horizontal. Informally spoken,
   6   concave refers to the shape of the notes that are opposite a
   7   beam. If an up-beam has high notes on its center stems, then we call
   8   it concave.
   9
  10
  11   If a beam is fails a test, the desired slope is printed
  12 next to it."
  13 }
  14
  15
  16 resetMeasure = \set Score.measurePosition = #(ly:make-moment 0 1)
  17
  18 % examples from
  19 rossFourBeams =\relative c'' {
  20   \time 2/4
  21   c8[ e b c]
  22   b[ c d b]
  23   c[ f b, c]
  24
  25   a[ f a f] a[ a' a, a']
  26   a[ d, e g] a[ f f g]
  27   c,[ b f' e]
  28   b[ e g, e']
  29   c'[ c, c c]
  30   c[ c c c']
  31   f,,[ b a g]
  32   f[g g e]
  33   a[ d, b' g]
  34   }
  35 rossThreeBeams = \relative c'' {
  36   \time 6/8
  37   e[ a, c] f[ d g]
  38   f,[ b g] a[ b f]
  39   d'[ c b a b e]
  40   c[ b a c b a]
  41   d,[ g a g f e ]
  42   a[ g f a g f]
  43   d'[ g, a b c d]
  44   f[ e d c b f']
  45 }
  46
  47 rossBeams = \relative c'' {
  48   \rossFourBeams
  49   \rossThreeBeams
  50   }
  51
  52
  53
  54
  55 #(define (<> x y) (not (= x  y)))
  56    \new Voice {
  57      \override Beam #'position-callbacks = #(check-slope-callbacks =)
  58      \rossBeams
  59
  60    }
  61   \layout{
  62     raggedright = ##t
  63     #(define debug-beam-quanting #t)
  64   }
  65
  66