Recursive make considered harmful.
[music/pretentious.git] / 03-circus / music / keys.ly
1 keyboardIntroUpper = \relative c' {
2 <cis e g>8 ~ <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
3 r <cis e gis>-. r <cis e gis>-. r <cis e gis>-. r
4
5 <cis e g>8 ~
6 <cis e g>8 ~ <cis e gis>-.
7 r <cis e gis>-. r <cis e gis>-. r <cis e gis>-.
8 r <cis e gis>-. r <cis e gis>-.
9
10 <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
11 <dis fis ais>8 r r <d fis ais>8 ~ <d fis ais>2 |
12 }
13
14 keyboardIntroLower = \relative c {
15 cis4-. gis'-. cis,-. gis'-.
16 cis,-. gis'-. cis,-. r8 cis ~
17 cis4 gis'-. cis,-. gis'-.
18 cis,-. gis'-.
19 dis8 r r d ~ d2 |
20 dis8 r r d ~ d2 |
21 }
22
23 keysIntroEndUpper = \relative c' {
24 d'16 b g dis fis e dis d |
25 r8 <cis e gis>-. r <cis e gis>-. |
26 r <cis e gis>-. r <cis e gis>-. |
27 r <cis e gis>-. r <cis e gis>-. |
28 r <cis e gis>-. r <cis e gis>-. |
29 }
30
31 keysIntroEndLower = \relative c {
32 r2 |
33 cis4-. gis'-. | cis,-. gis'-. |
34 cis,-. gis'-. | cis,-. gis'-. |
35 }
36
37 keysSoloUpper = \relative c' {
38 \time 2/4
39 r8 <cis e gis>-. r <cis e gis>-. |
40 r <cis e gis>-. r <cis e gis>-. |
41 r <cis e gis>-. r <cis e gis>-. |
42 \time 3/4
43 r <cis e gis>-. r r <cis e gis>-. r |
44 \time 2/4
45 r8 <c e a>-. r <c e a>-. |
46 r <c e a>-. r <c e a>-. |
47 r <c e a>-. r <c e a>-. |
48 r <c e a>-. r r |
49 <c e a>-. r r <c e a>-. |
50 }
51
52 keysSoloLower = \relative c {
53 \time 2/4
54 cis4-. gis-. | cis-. gis-. |
55 cis-. gis-. |
56 \time 3/4
57 cis8 r gis gis r gis |
58 \time 2/4
59 a4-. e-. | a-. e-. | a-. e-. |
60 a-. c8 b | r f f r |
61 }
62
63 keysSpookyUpper = \relative c' {
64 \time 2/4
65 <cis fis a>2 ~ | <cis fis a> ~ | <cis fis a> ~ |
66 \time 3/4
67 <cis fis a>2. |
68 \time 2/4
69 <d f a>2 ~ | <d f a> ~ |
70 <d f a> ~ | <d f a> ~ |
71 <d f a> |
72 }
73
74 keysSpookyLower = \relative c {
75 \time 2/4
76 fis2 ~ | fis ~ | fis ~ |
77 \time 3/4
78 fis2. |
79 \time 2/4
80 d2 ~ | d ~ | d ~ | d ~ | d |
81 }
82
83 keysHalfUpper = \relative c' {
84 \time 2/4
85 r4 <d fis b>8-. r |
86 r4 <d fis b>8-. r |
87 r4 <d fis b>8-. r |
88 \time 3/4
89 r4 <d fis b>8-. r <d fis b>-. r |
90 \time 2/4
91 r4 <d g bes>8-. r |
92 r4 <d g bes>8-. r |
93 r4 <d g bes>8-. r |
94 r4 <d g bes>8-. r |
95 r4 <d g bes>8-. r |
96 }
97
98 keysHalfLower = \relative c {
99 \time 2/4
100 b4. r8 | b4. r8 | b4. r8 |
101 \time 3/4
102 b4-. r r |
103 \time 2/4
104 g-. r | g-. r | g-. r |
105 g-. r | g-. r8 g-. |
106 }
107
108 keysWeirdUpper = \relative c' {
109 \repeat volta 2 {
110 \time 5/4 { <d g b>8 r <d g b> r <d g b> r <d g b> r <d g b> r |}
111 \time 9/8 { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
112 } \alternative {
113 { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
114 { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
115 }
116 }
117
118 keysWeirdLower = \relative c {
119 \repeat volta 2 {
120 \time 5/4 { g8 r g r g r g r g r |}
121 \time 9/8 { b8 r b r b r b r b | }
122 } \alternative {
123 { b8 r b r b r b r b |}
124 { b8 r b r b r b r b |}
125 }
126 }
127
128 keysDanceUpper = \relative c' {
129 \time 5/4 { <d g b>4 r2 r2 | <d fis b>4 r2 r2 | }
130 \time 3/4 { <d g b>2. | <e ais fis>4 ~ <d ais' fis>4 r4 | }
131 }
132
133 keysDanceLower = \relative c {
134 \time 5/4 { d4 r2 r2 | d4 r2 r2 | }
135 \time 3/4 { e2. | e4 d4 r4 | }
136 }
137
138 keysBeautyUpper = \relative c' {
139 \repeat unfold 3 {
140 \time 4/4 { r1 |}
141 \time 3/4 { r2. |}
142 }
143
144 \time 4/4
145 b'4.-> a a8-> g8 ~ |
146 \time 6/8
147 g4. r8 g8 fis |
148 \time 9/8
149 e2 r4 d8 r cis |
150
151 \repeat volta 2 {
152 \time 7/8 { r8*7 |}
153 \time 3/4 { r2. |}
154
155 \repeat unfold 2 {
156 \time 4/4 { r1 |}
157 \time 3/4 { r2. |}
158 }
159 \time 4/4
160 b'4.-> a a8-> g8 ~ |
161 } \alternative {
162 { \time 6/8 g4. r8 g8 fis |
163 \time 9/8 e2 r4 d8 r cis |}
164 { \time 6/8 g'4. r8 g8 fis |}
165 }
166 }
167
168 keysBeautyLower = \relative c {
169 \repeat unfold 3 {
170 \time 4/4 { b1 | }
171 \time 3/4 { d4. cis | }
172 }
173 \time 4/4 { R1 |}
174 \time 6/8 R8*6 |
175 \time 9/8 R8*9 |
176
177 \repeat volta 2 {
178 \time 7/8 { b8*7 | }
179 \time 3/4 { d4. cis | }
180
181 \repeat unfold 2 {
182 \time 4/4 { b1 | }
183 \time 3/4 { d4. cis | }
184 }
185 \time 4/4 { R1 |}
186 } \alternative {
187 { \time 6/8 R8*6 |
188 \time 9/8 R8*9 | }
189 { \time 6/8 { R8*6 |} }
190 }
191 }
192
193 keysBeforeArpeggioUpper = \relative c' {
194 \time 3/4 r2. | r2. | r2. | r2. |
195 }
196
197 keysBeforeArpeggioLower = \relative c {
198 \time 3/4 r2. | r2. | r2. | r2. |
199 }
200
201 keysArpeggioUpper = \relative c' {
202 <e g b>2. ~ | q ~ | q2 r4 | r2. |
203 <d fis a>2. ~ | q ~ | q2 r4 | r2. |
204 <e g b>2. ~ | q ~ | q ~ | q |
205 <fis a d>2. ~ | q ~ | q ~ | q |
206 }
207
208 keysArpeggioLower = \relative c {
209 e2. ~ | e ~ | e ~ | e |
210 d2. ~ | d ~ | d ~ | d |
211 e2. ~ | e ~ | e ~ | e |
212 d2. ~ | d ~ | d ~ | d |
213 }
214
215 keysArpeggioHigherUpper = \relative c' {
216 <e g b>2. ~ | q ~ | q ~ | q |
217 <fis a d>2. ~ | q ~ | q ~ | q |
218 }
219
220 keysArpeggioHigherLower = \relative c {
221 e2. ~ | e ~ | e ~ | e |
222 d2. ~ | d ~ | d ~ | d |
223 }
224
225 keysArpeggioLongerUpper = \relative c' {
226 <e g b>2. ~ | q ~ | q2 r4 | r2. |
227 <d fis a>2. ~ | q ~ | q2 r4 | r2. | r2. |
228 <e g b>2. ~ | q ~ | q ~ | q |
229 <fis a d>2. ~ | q ~ | q ~ | q |
230 }
231 keysArpeggioLongerLower = \relative c {
232 e2. ~ | e ~ | e ~ | e |
233 d2. ~ | d ~ | d ~ | d ~ | d |
234 e2. ~ | e ~ | e ~ | e |
235 d2. ~ | d ~ | d ~ | d |
236 }
237
238 keysDramaUpper = \relative c'' {
239 \key b \minor
240 \repeat unfold 2 {
241 <g b e>2 r4 | q2 r4 | q2 r4 | <g b>2 <a cis>4 |
242 <b d>2. ~ | q2. ~ | q2. | R2. |
243 }
244 }
245 keysDramaLower = \relative c {
246 \key b \minor
247 \repeat unfold 2 {
248 e2 r4 | e2 r4 | e2 r4 | e2 r4 |
249 b2. ~ | b2. ~ | b2. ~ | b2. |
250 }
251 }
252
253 keysDramaEndingUpper = \relative c' {
254 <e a cis>2. ~ | q2. ~ | q2. ~ | q2. |
255 <e gis b>2. ~ | q2. ~ | q2. ~ | q2. |
256 }
257 keysDramaEndingLower = \relative c {
258 a2. ~ | a2. ~ | a2. ~ | a2. |
259 e2. ~ | e2. ~ | e2. ~ | e2. |
260 }
261
262 keysFinalUpper = \relative c' {
263 <e a cis>2. ~ | q2. ~ | q2. ~ | q2. |
264 <b e gis>2. | <cis a'>2. | <d fis a>2. ~ | q2. ~ |
265 q2. ~ | q2. |
266 }
267 keysFinalLower = \relative c {
268 a2. | R2. | R2. | R2. |
269 e2. | cis2. | d2. ~ | d2. ~ |
270 d2. ~ | d2. |
271 }
272
273 keyboardUpper = \relative c' {
274 \set Staff.midiInstrument = #"reed organ"
275 \time 2/4
276 \key cis \minor
277 R2 | r4 r8 <cis e g> ~ |
278 \repeat volta 2 \keyboardIntroUpper
279 \alternative {
280 { r2 | }
281 { \keysIntroEndUpper }
282 }
283
284 %% Stick solo
285 \repeat unfold 2 \keysSoloUpper
286
287 %% Spooky!
288 \key fis \minor
289 \set Staff.midiInstrument = #"choir aahs"
290 \repeat volta 2 \keysSpookyUpper
291
292 %% Half time feel
293 \key b \minor
294 \repeat volta 2 {
295 \set Staff.midiInstrument = #"reed organ"
296 \repeat volta 2 \keysHalfUpper
297 \keysWeirdUpper
298 \keysDanceUpper
299 }
300
301 %% Beauty
302 \set Staff.midiInstrument = #"string ensemble 1"
303 \keysBeautyUpper
304
305 %% Arpeggio
306 \set Staff.midiInstrument = #"pad 3 (polysynth)"
307 \set Staff.midiMinimumVolume = #0.2
308 \set Staff.midiMaximumVolume = #0.2
309
310 \key e \minor
311 \keysBeforeArpeggioUpper
312 \keysArpeggioUpper
313
314 \key fis \minor
315 \transpose c d { \keysArpeggioHigherUpper }
316 \keysDramaUpper
317 \keysDramaEndingUpper
318
319 \keysArpeggioLongerUpper
320 \key fis \minor
321 \transpose c d { \keysArpeggioHigherUpper }
322 \keysDramaUpper
323 \keysFinalUpper
324 }
325
326 keyboardLower = \relative c {
327 \set Staff.midiInstrument = #"reed organ"
328 \key cis \minor
329 r2 | r2 |
330 \repeat volta 2 \keyboardIntroLower
331 \alternative {
332 { r2 | }
333 { \keysIntroEndLower }
334 }
335
336 \repeat unfold 2 \keysSoloLower
337
338 %% Spooky!
339 \key fis \minor
340 \set Staff.midiInstrument = #"choir aahs"
341 \repeat volta 2 \keysSpookyLower
342
343 %% Half time feel
344 \key b \minor
345 \repeat volta 2 {
346 \set Staff.midiInstrument = #"reed organ"
347 \repeat volta 2 \keysHalfLower
348 \keysWeirdLower
349 \keysDanceLower
350 }
351
352 %% Beauty
353 \set Staff.midiInstrument = #"string ensemble 1"
354 \keysBeautyLower
355
356 %% Arpeggio
357 \set Staff.midiInstrument = #"pad 3 (polysynth)"
358 \set Staff.midiMinimumVolume = #0.2
359 \set Staff.midiMaximumVolume = #0.2
360
361 \key e \minor
362 \keysBeforeArpeggioLower
363 \keysArpeggioLower
364
365 \key fis \minor
366 \transpose c d { \keysArpeggioHigherLower }
367 \keysDramaLower
368 \keysDramaEndingLower
369
370 \keysArpeggioLongerLower
371 \key fis \minor
372 \transpose c d { \keysArpeggioHigherLower }
373 \keysDramaLower
374 \keysFinalLower
375 }