circus: keys: Pad out second half.
[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 r8 <cis e gis>-. r <cis e gis>-. |
25 r <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 }
29
30 keysIntroEndLower = \relative c {
31 cis4-. gis'-. | cis,-. gis'-. |
32 cis,-. gis'-. | cis,-. gis'-. |
33 }
34
35 keysSoloUpper = \relative c' {
36 \time 2/4
37 r8 <cis e gis>-. r <cis e gis>-. |
38 r <cis e gis>-. r <cis e gis>-. |
39 r <cis e gis>-. r <cis e gis>-. |
40 \time 3/4
41 r <cis e gis>-. r r <cis e gis>-. r |
42 \time 2/4
43 r8 <c e a>-. r <c e a>-. |
44 r <c e a>-. r <c e a>-. |
45 r <c e a>-. r <c e a>-. |
46 r <c e a>-. r r |
47 <c e a>-. r r <c e a>-. |
48 }
49
50 keysSoloLower = \relative c {
51 \time 2/4
52 cis4-. gis-. | cis-. gis-. |
53 cis-. gis-. |
54 \time 3/4
55 cis8 r gis gis r gis |
56 \time 2/4
57 a4-. e-. | a-. e-. | a-. e-. |
58 a-. c8 b | r f f r |
59 }
60
61 keysSpookyUpper = \relative c' {
62 \time 2/4
63 <cis fis a>2 ~ | <cis fis a> ~ | <cis fis a> ~ |
64 \time 3/4
65 <cis fis a>2. |
66 \time 2/4
67 <d f a>2 ~ | <d f a> ~ |
68 <d f a> ~ | <d f a> ~ |
69 <d f a> |
70 }
71
72 keysSpookyLower = \relative c {
73 \time 2/4
74 fis2 ~ | fis ~ | fis ~ |
75 \time 3/4
76 fis2. |
77 \time 2/4
78 d2 ~ | d ~ | d ~ | d ~ | d |
79 }
80
81 keysHalfUpper = \relative c' {
82 \time 2/4
83 r4 <d fis b>8-. r |
84 r4 <d fis b>8-. r |
85 r4 <d fis b>8-. r |
86 \time 3/4
87 r4 <d fis b>8-. r <d fis b>-. r |
88 \time 2/4
89 r4 <d g bes>8-. r |
90 r4 <d g bes>8-. r |
91 r4 <d g bes>8-. r |
92 r4 <d g bes>8-. r |
93 r4 <d g bes>8-. r |
94 }
95
96 keysHalfLower = \relative c {
97 \time 2/4
98 b4. r8 | b4. r8 | b4. r8 |
99 \time 3/4
100 b4-. r r |
101 \time 2/4
102 g-. r | g-. r | g-. r |
103 g-. r | g-. r8 g-. |
104 }
105
106 keysWeirdUpper = \relative c' {
107 \repeat volta 2 {
108 \time 5/4 { <d g b>8 r <d g b> r <d g b> r <d g b> r <d g b> r |}
109 \time 9/8 { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
110 } \alternative {
111 { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
112 { <d fis b>8 r <d fis b> r <d fis b> r <d fis b> r r |}
113 }
114 }
115
116 keysWeirdLower = \relative c {
117 \repeat volta 2 {
118 \time 5/4 { g8 r g r g r g r g r |}
119 \time 9/8 { b8 r b r b r b r b | }
120 } \alternative {
121 { b8 r b r b r b r b |}
122 { b8 r b r b r b r b |}
123 }
124 }
125
126 keysDanceUpper = \relative c' {
127 \time 5/4 { <d g b>4 r2 r2 | <d fis b>4 r2 r2 | }
128 \time 3/4 { <d g b>2. | <e ais fis>4 ~ <d ais' fis>4 r4 | }
129 }
130
131 keysDanceLower = \relative c {
132 \time 5/4 { d4 r2 r2 | d4 r2 r2 | }
133 \time 3/4 { e2. | e4 d4 r4 | }
134 }
135
136 keysBeautyUpper = \relative c' {
137 \repeat unfold 3 {
138 \time 4/4 { r1 |}
139 \time 3/4 { r2. |}
140 }
141
142 \time 4/4
143 b'4.-> a a8-> g8 ~ |
144 \time 6/8
145 g4. r8 g8 fis |
146 \time 9/8
147 e2 r4 d8 r cis |
148
149 \repeat volta 2 {
150 \time 7/8 { r8*7 |}
151 \time 3/4 { r2. |}
152
153 \repeat unfold 2 {
154 \time 4/4 { r1 |}
155 \time 3/4 { r2. |}
156 }
157 \time 4/4
158 b'4.-> a a8-> g8 ~ |
159 } \alternative {
160 { \time 6/8 g4. r8 g8 fis |
161 \time 9/8 e2 r4 d8 r cis |}
162 { \time 6/8 g'4. r8 g8 fis |}
163 }
164 }
165
166 keysBeautyLower = \relative c {
167 \repeat unfold 3 {
168 \time 4/4 { b1 | }
169 \time 3/4 { d4. cis | }
170 }
171 \time 4/4 { R1 |}
172 \time 6/8 R8*6 |
173 \time 9/8 R8*9 |
174
175 \repeat volta 2 {
176 \time 7/8 { b8*7 | }
177 \time 3/4 { d4. cis | }
178
179 \repeat unfold 2 {
180 \time 4/4 { b1 | }
181 \time 3/4 { d4. cis | }
182 }
183 \time 4/4 { R1 |}
184 } \alternative {
185 { \time 6/8 R8*6 |
186 \time 9/8 R8*9 | }
187 { \time 6/8 { R8*6 |} }
188 }
189 }
190
191 keysBeforeArpeggioUpper = \relative c' {
192 \time 3/4 r2. | r2. ~ | r2. ~ | r2. |
193 }
194
195 keysBeforeArpeggioLower = \relative c {
196 \time 3/4 r2. | r2. ~ | r2. ~ | r2. |
197 }
198
199 keysArpeggioUpper = \relative c' {
200 \repeat unfold 2 {
201 <e g b>2. ~ | q ~ | q2 r4 | r2. |
202 <d fis g>2. ~ | q ~ | q2 r4 | r2. |
203 <e g b>2. ~ | q ~ | q | r2. |
204 <d fis g>2. ~ | q ~ | q2 r4 | r2. |
205
206 }
207 }
208
209 keysArpeggioLower = \relative c {
210 \repeat unfold 2 {
211 e2. ~ | q ~ | q ~ | q |
212 d2. ~ | q ~ | q ~ | q |
213 }
214 }
215
216 keysArpeggioLongerUpper = \relative c' {}
217 keysArpeggioLongerLower = \relative c {}
218
219 keysDramaUpper = \relative c' {}
220 keysDramaLower = \relative c {}
221
222 keysDramaEndingUpper = \relative c' {}
223 keysDramaEndingLower = \relative c {}
224
225 keysFinalUpper = \relative c' {}
226 keysFinalLower = \relative c {}
227
228 keyboard = <<
229 \new Staff \relative c' {
230 \set Staff.midiInstrument = #"reed organ"
231 \time 2/4
232 \key cis \minor
233 R2 | r4 r8 <cis e g> ~ |
234 \repeat volta 2 \keyboardIntroUpper
235 \alternative {
236 { r2 | }
237 { \keysIntroEndUpper }
238 }
239
240 %% Stick solo
241 \repeat unfold 2 \keysSoloUpper
242
243 %% Spooky!
244 \key fis \minor
245 \set Staff.midiInstrument = #"choir aahs"
246 \repeat volta 2 \keysSpookyUpper
247
248 %% Half time feel
249 \key b \minor
250 \repeat volta 2 {
251 \set Staff.midiInstrument = #"reed organ"
252 \repeat volta 2 \keysHalfUpper
253 \keysWeirdUpper
254 \keysDanceUpper
255 }
256
257 %% Beauty
258 \set Staff.midiInstrument = #"string ensemble 1"
259 \keysBeautyUpper
260
261 %% Arpeggio
262 \key e \minor
263 \keysBeforeArpeggioUpper
264 \keysArpeggioUpper
265
266 \key fis \minor
267 \transpose c d { \keysArpeggioUpper }
268 \keysDramaUpper
269 \keysDramaEndingUpper
270
271 \keysArpeggioLongerUpper
272 \key fis \minor
273 \transpose c d { \keysArpeggioUpper }
274 \keysDramaUpper
275 \keysFinalUpper
276 }
277
278 \new Staff \relative c {
279 \clef bass
280 \set Staff.midiInstrument = #"reed organ"
281 \key cis \minor
282 r2 | r2 |
283 \repeat volta 2 \keyboardIntroLower
284 \alternative {
285 { r2 | }
286 { \keysIntroEndLower }
287 }
288
289 \repeat unfold 2 \keysSoloLower
290
291 %% Spooky!
292 \key fis \minor
293 \set Staff.midiInstrument = #"choir aahs"
294 \repeat volta 2 \keysSpookyLower
295
296 %% Half time feel
297 \key b \minor
298 \repeat volta 2 {
299 \set Staff.midiInstrument = #"reed organ"
300 \repeat volta 2 \keysHalfLower
301 \keysWeirdLower
302 \keysDanceLower
303 }
304
305 %% Beauty
306 \set Staff.midiInstrument = #"string ensemble 1"
307 \keysBeautyLower
308
309 %% Arpeggio
310 \key e \minor
311 \keysBeforeArpeggioLower
312 \keysArpeggioLower
313
314 \key fis \minor
315 \transpose c d { \keysArpeggioLower }
316 \keysDramaLower
317 \keysDramaEndingLower
318
319 \keysArpeggioLongerLower
320 \key fis \minor
321 \transpose c d { \keysArpeggioLower }
322 \keysDramaLower
323 \keysFinalLower
324 }
325 >>