input/regression/beam-concave.ly

   1
   2 \version "2.3.4"
   3 \header{
   4
   5 texidoc = "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. If a beam is fails a test, the desired slope is printed
   9   next to it."
  10
  11
  12 }
  13
  14
  15 resetMeasure = \set Score.measurePosition = #(ly:make-moment 0 1)
  16
  17 % examples from
  18 rossFourBeams =\relative c'' {
  19   \time 2/4
  20   c8[ e b c]
  21   b[ c d b]
  22   c[ f b, c]
  23
  24   a[ f a f] a[ a' a, a']
  25   a[ d, e g] a[ f f g]
  26   c,[ b f' e]
  27   b[ e g, e']
  28   g[ d a' b]
  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 nonHorizBeams = \relative c'' {
  53    \time 3/4
  54    f[ e d c g b]
  55    b,16[ f' g a]
  56    \stemUp b,8[  \stemDown d'8 bes8]
  57 }
  58
  59
  60
  61 #(define (<> x y) (not (= x  y)))
  62 \score{
  63    \new Voice {
  64      \override Beam #'position-callbacks = #(check-slope-callbacks =)
  65      \rossBeams
  66      \override Beam #'position-callbacks = #(check-slope-callbacks <>)
  67   \resetMeasure
  68      \nonHorizBeams
  69
  70    }
  71   \paper{
  72     raggedright = ##t
  73     #(define debug-beam-quanting #t)
  74   }
  75 }
  76
  77