]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/beam-quant-standard.ly
Run scripts/auxiliar/update-with-convert-ly.sh
[lilypond.git] / input / regression / beam-quant-standard.ly
1 \header {
2
3   texidoc = "This file tests a few standard beam quants, taken from
4     Ted Ross' book. If LilyPond finds another quant, the correct quant
5     is printed over the beam."
6
7 }
8 %% FIXME: This file should actually NOT produce any warnings!
9 #(ly:set-option 'warning-as-error #f)
10
11 \version "2.16.0"
12
13 \layout  {
14   ragged-right = ##t
15   #(define debug-beam-quanting #t)
16 }
17
18 filler = \new Voice \relative c' {
19   \hideNotes
20   e4 e
21 }
22 %
23
24 %%
25 %% Ross p108--112
26 primes = \relative c' {
27   \time 3/4
28   \assertBeamQuant #'(0 . 0)  #'(0 . 0)
29   c8[ c]
30   \filler
31   \assertBeamQuant #'(1 . -1)  #'(1 . -1)
32   d8[ d]
33
34   \filler
35
36   \assertBeamQuant #'(1 . 0)  #'(1 . 0)
37   e8[ e]
38   \filler
39
40
41   \assertBeamQuant #'(2 . -1)  #'(2 . -1)
42   f8[ f]
43   \filler
44
45
46   \assertBeamQuant #'(2 . 0)  #'(2 . 0)
47   g8[ g]
48   \filler
49
50
51   \assertBeamQuant #'(2 . 1)  #'(2 . 1)
52   a8[ a]
53   \filler
54
55 %{
56   \once \override Beam #'inspect-quants = #'(2.2 . 2.2)
57   \assertBeamQuant
58   a8[ a]
59   \filler
60
61 %}
62
63 }
64
65
66 seconds = \relative c' {
67
68   \assertBeamQuant #'(0 . 0)  #'(0 . 1)
69   a8[ b]
70   \filler
71
72
73   \assertBeamQuant #'(0 . 0)  #'(0 . 1)
74   b8[ c]
75   \filler
76
77
78   \assertBeamQuant #'(0 . 0)  #'(0 . 1)
79   c8[ d]
80   \filler
81
82   \assertBeamQuant #'(1 . -1)  #'(1 . 0)
83   d8[ e]
84   \filler
85
86
87   \assertBeamQuant #'(1 . 0)  #'(1 . 1)
88   e8[ f]
89   \filler
90
91
92   \assertBeamQuant #'(2 . -1)  #'(2 . 0)
93   f8[ g]
94   \filler
95
96
97   \assertBeamQuant #'(2 . 0)  #'(2 . 1)
98   g8[ a]
99   \filler
100
101   \assertBeamQuant #'(3 . -1)  #'(3 . 0)
102   a8[ b]
103   \filler
104 }
105
106 filler = \new Voice \relative c' {
107   \hideNotes
108   e4 e4.
109 }
110
111 % Ross, p122
112 primeSixteenths = \relative c' {
113   \stemUp
114   \assertBeamQuant #'(0 . -1)  #'(0 . -1)
115   g16[ g]
116   \filler
117   \assertBeamQuant #'(0 . -1)  #'(0 . -1)
118   a16[ a]
119   \filler
120   \assertBeamQuant #'(0 . -1)  #'(0 . -1)
121   b16[ b]
122   \filler
123   \assertBeamQuant #'(0 . 0)  #'(0 . 0)
124   c16[ c]
125   \filler
126   \assertBeamQuant #'(1 . -1)  #'(1 . -1)
127   d16[ d]
128   \filler
129   \assertBeamQuant #'(1 . 0)  #'(1 . 0)
130   e16[ e]
131   \filler
132   \assertBeamQuant #'(2 .  -1)  #'(2 . -1)
133   f16[ f]
134   \filler
135   \assertBeamQuant #'(2 . 0)  #'(2 . 0)
136   g16[ g]
137   \filler
138   \assertBeamQuant #'(3 . -1)  #'(3 . -1)
139   a16[ a]
140   \filler
141   \assertBeamQuant #'(3 . 0)  #'(3 . 0)
142   b16[ b]
143   \filler
144 }
145
146 \new Voice { \primes \seconds \primeSixteenths }
147