]> git.elephly.net Git - music/pretentious.git/blob - 03-circus/parts/keyboard.ly
circus: keys: Add weird and dance part.
[music/pretentious.git] / 03-circus / parts / keyboard.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 %% TODO
127 keysDanceUpper = \relative c' {
128 \time 5/4 { <b d g>4 r2 r2 | <b d fis>4 r2 r2 | }
129 \time 3/4 { <d g b>2. | <e ais fis>4 ~ <d ais' fis>4 r4 | }
130 }
131
132 %% TODO
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 keyboard = \new PianoStaff <<
139 \set PianoStaff.midiInstrument = #"reed organ"
140 \new Staff \relative c' {
141 \time 2/4
142 \key cis \minor
143 r4 r8 <cis e g> ~ |
144 \repeat volta 2 \keyboardIntroUpper
145 \alternative {
146 { r2 | }
147 { \keysIntroEndUpper }
148 }
149
150 %% Stick solo
151 \repeat unfold 2 \keysSoloUpper
152
153 %% Spooky!
154 \key fis \minor
155 \set PianoStaff.midiInstrument = #"choir aahs"
156 \repeat volta 2 \keysSpookyUpper
157
158 %% Half time feel
159 \key b \minor
160 \repeat volta 2 {
161 \set PianoStaff.midiInstrument = #"reed organ"
162 \repeat volta 2 \keysHalfUpper
163 \keysWeirdUpper
164 \keysDanceUpper
165 }
166 }
167
168 \new Staff \relative c {
169 \clef bass
170 \key cis \minor
171 r2 |
172 \repeat volta 2 \keyboardIntroLower
173 \alternative {
174 { r2 | }
175 { \keysIntroEndLower }
176 }
177
178 \repeat unfold 2 \keysSoloLower
179
180 %% Spooky!
181 \key fis \minor
182 \repeat volta 2 \keysSpookyLower
183
184 %% Half time feel
185 \key b \minor
186 \repeat volta 2 {
187 \repeat volta 2 \keysHalfLower
188 \keysWeirdLower
189 \keysDanceLower
190 }
191 }
192 >>