]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/beam-concave.ly
* lily/scm-option.cc: move debug-beam to \paper.
[lilypond.git] / 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