Recursive make considered harmful.
[music/pretentious.git] / 04-white-noise / music / stick.ly
1 \include "../stafftab.ly"
2
3 stickIntro = {
4 \time 4/4 { R1*8 }
5 %% silly but I have to mimick the repeats for the other voices to
6 %% make the notes line up.
7 \time 5/4 \repeat volta 2 {
8 R4*35
9 }
10 \alternative {
11 {R4*5 | }
12 {\time 2/4 R4*2 | }
13 }
14 }
15
16 %% TODO
17 stickThunderLeftRep = \relative c {
18 \repeat unfold 3 { fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |}
19 }
20
21 stickThunderLeft = \relative c {
22 \stickThunderLeftRep
23 d-. d-. d-. d-. d-. d-. d-. d-. |
24 }
25 stickThunderLeftB = \relative c {
26 \stickThunderLeftRep
27 d-. d-. d-. d ~ d2 |
28 }
29
30 %% TODO
31 stickThunderRightRep = \relative c'' {
32 \repeat unfold 3 { a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |}
33 }
34
35 stickThunderRight = \relative c'' {
36 \stickThunderRightRep
37 d-. d-. d-. d-. d-. d-. d-. d-. |
38 }
39
40 stickThunderRightB = \relative c'' {
41 \stickThunderRightRep
42 d-. d-. d-. d ~ d2 |
43 }
44
45
46 stickThemeLeft = \relative c {
47 fis'4.\10-1 cis\9-3 r2 | r2. r2 |
48 gis'4.\10-1 e\9-4 r2 | r2. r2 |
49 fis4.\10-1 d\9-4 r2 | r2. r2 |
50 fis4.\10-1 d\9-4 r2 | r2. r2 |
51 }
52
53 stickThemeRight = \relative c' {
54 s4. s a'\4-3 cis8\3-1 ~ | cis2. d2\3-2 |
55 s4. s d\3-1 cis8\4-3 ~ | cis2. a4\4-1 gis\4-1 |
56 s4. s gis\4-1 a8\4-2 ~ | a2. ~ a4. r8 |
57 s4. s gis\4-1 e8\5-3 ~ | e2 gis4\4-1 a4.\4-2 r8 |
58 }
59
60 %% TODO
61 stickBeautyLeft = \relative c {
62 \repeat volta 2 {
63 R1*4
64 }
65 \repeat unfold 2 {
66 R1*4
67 }
68 }
69 stickBeautyRight = \relative c'' {
70 \repeat volta 2 {
71 %% TODO: too robotic
72 %% fis8 a d e, a cis a e |
73 %% gis b e gis, b fis' e b |
74 %% fis a d a fis a d a |
75 %% gis a cis fis, ~ fis2 |
76 r2 d8 cis d a' ~ | a gis ~ gis cis, ~ cis b ~ b4 |
77 a2 r8 b8 ~ b4 | fis1 |
78 }
79
80 %% quiet!
81 \repeat unfold 2 {
82 <a\4-1 cis\3-3>4. b a4 | <gis\4-1 b\3-3>4. a <e\4-1 gis\3-3>4 |
83 <fis\4-1 a\3-3>2 ~ q4 <e\4-1 gis\3-3>4 | <fis\4-1 a\3-3>1 |
84 }
85 }
86
87 %% TODO
88 stickSoloLeft = \relative c {
89 r1 | r1 |
90 r1 | r1 |
91 r1 | r1 |
92 r1 | r1 |
93 }
94
95 stickSoloRight = \relative c'' {
96 \grace{a16 d} fis2 r8 gis8 a \grace{fis16} gis8 ~ |
97 gis4 e4 cis8 fis gis fis ~ |
98 fis4. r4 e8\2-1 fis\2-2 \grace{b,16} cis8\3-1 ~ |
99 %% bending isn't working in MIDI :(
100 %%b\bendAfter #+2 b
101 cis b\3-1 a16\4-3 gis\4-2 fis\4-1 e\5-3 fis8\4-1
102 a16\4-3 b\3-1 cis\3-2 d\3-3 e\2-1 f\2-2 |
103 fis4.\2-3 r4 gis,8\4-2 a\4-3 e'\2-1 ~ |
104 e fis4\2-3 cis4.\3-2 r8 b16\3-1 cis\3-2 |
105
106 d8\3-3
107 \tuplet 3/2 {
108 \change Staff = "stick left"
109 gis,16\10-1 b\10-4
110 \change Staff = "stick right"
111 e\3-3
112 } gis16\2-2 r16
113 \tuplet 3/2 {
114 \change Staff = "stick left"
115 a,16\10-1 cis\10-4
116 \change Staff = "stick right"
117 fis\3-3
118 } a4\2-1 b8\2-2
119 \tuplet 3/2 {
120 %% TODO: this is the left hand on the right side
121 cis,16\3-1 fis\2-2
122 %% back to right hand
123 a\2-2
124 } | cis4.\1-1 cis8\1-1 fis2\1-3 |
125 }
126
127 stickTransitionLeft = \relative fis,, {
128 \time 4/4 R1 |
129 \time 2/4 R2 |
130 }
131
132 %% TODO: played with left hand!
133 stickTransitionRight = \relative fis' {
134 \time 4/4
135 fis8.\3-1 cis\4-2 d\4-3 gis,\5-2 a8\5-3 gis\5-2 |
136 \time 2/4
137 fis\5-1 r4. |
138 }
139
140 stickFastLeft = \relative fis' {
141 \time 4/4
142 %% TODO: this doesn't render well
143 \change Staff = "stick right"
144 <a\2 cis\1>8_\markup {\italic { both hands on melody side }} s s s <a\2 cis\1> s s s |
145 <b\2 e\1> s s s <b\2 e\1> s s s |
146 \change Staff = "stick left"
147 <d,\9-4 fis\10-1> s s s <d\9-4 fis\10-1> s s s |
148 <b\9-1 fis\10-1>8 q q q q q r4 |
149
150 \change Staff = "stick right"
151 <a'\2 cis\1>8 s s s <a\2 cis\1> s s s |
152 <b\2 e\1> s s s <b\2 e\1> s s s |
153 \change Staff = "stick left"
154 <d,\9-4 fis\10-1> s s s <d\9-4 fis\10-1> s s s |
155 <b\9-1 fis\10-1>8 q q q <cis\9-1 gis\10-1>4-. r |
156 }
157
158 stickFastRight = \relative fis' {
159 \time 4/4
160 r8 fis16\5-3 a\4-2 cis8\3-1-. <fis,\5-3 a\4-2 cis\3-1>-. r fis\5-3 <a\4-2 cis\3-1> r |
161 r8 gis16\4-3 cis\3-2 e8\2-1-. <gis,\4-3 cis\3-2 e\2-1>-. r e'\2-1 fis4\2-3 |
162 r8 r16 fis,\4-4 a8\3-2 <fis\4-4 a\3-2 cis\2-1>8 ~ q8 d'8\2-2 cis4\2-1 |
163 <gis\3-1 d'\2-2>8 q q q <gis\3-1 e'\2-3> q <gis\3-2 c\2-1>4 |
164
165 r8 fis16\5-3 a\4-2 cis8\3-1-. <fis,\5-3 a\4-2 cis\3-1>-. r fis\5-3 <a\4-2 cis\3-1> r |
166 r8 gis16\4-3 cis\3-2 e8\2-1-. <gis,\4-3 cis\3-2 e\2-1>-. r e'\2-1 fis4\2-3 |
167 r8 r16 fis,\4-4 a8\3-2 <fis\4-4 a\3-2 cis\2-1>8 ~ q8 d'8\2-2 cis4\2-1 |
168 <gis\3-1 d'\2-2>8 q q q <eis\4-3 gis\3-1 cis\2-1>4-. r |
169 }
170
171 %% TODO: rhythm is wrong
172 stickTotoLeft = \relative c {
173 <fis a'>1 | <e gis'> |
174 <fis a'>1 | <e gis'>1 |
175 }
176
177 %% TODO: fingering
178 stickTotoRight = \relative fis'' {
179 fis8 cis4 a gis8 a cis |
180 b e4 e, fis8 gis a |
181 fis4 a'8 gis fis cis4 e8 |
182 r1 |
183 }
184
185 stickShifterLeft = \relative c {
186 \time 4/4
187 e8 g' e, g' e, g' e, <e g'> |
188 <d fis'> r <d fis'> r <d fis'> r4. |
189 e8 g' e, g' e, g' e, <e g'> |
190 \time 2/4
191 <d fis'> r <d fis'> r |
192
193 \time 4/4
194 fis8 a' fis, a' fis, a' fis, <fis a'> |
195 <e gis'> r <e gis'> r <e gis'> r4. |
196 fis8 a' fis, a' fis, a' fis, <fis a'> |
197 \time 2/4
198 <e gis'> r <e gis'> r |
199
200 \time 4/4
201 e8 g' e, g' e, g' e, <e g'> |
202 <d fis'> r <d fis'> r <d fis'> r4. |
203 e8 g' e, g' e, g' e, <e g'> |
204 \time 2/4
205 <d fis'> r <d fis'> r |
206
207 \time 4/4
208 fis8 a' fis, a' fis, a' fis, <fis a'> |
209 <e gis'> r <e gis'> r <e gis'> r4. |
210 fis8 a' fis, a' fis, a' fis, <fis a'> |
211 %% TODO
212 <e gis'> r <e gis'> r r2 |
213 }
214
215 %% TODO
216 stickShifterRight = \relative c {
217 \time 4/4 R1*3
218 \time 2/4 R4*2
219 \time 4/4 R1*3
220 \time 2/4 R4*2
221
222 \time 4/4 R1*3
223 \time 2/4 R4*2
224 \time 4/4 R1*3
225 \time 4/4 R1
226 }
227
228 %% TODO: arpeggios
229 stickEndingLeft = \relative c {
230 <e\8 b'\9 gis'\10>1 | <fis\8 cis'\9 ais'\10>1 | <gis\8 e'\9 b'\10>1 | <ais\8 fis'\9 cis'\10>1 |
231 <e\8 b'\9 gis'\10>1 | <fis\8 cis'\9 ais'\10>1 | <gis\8 dis'\9 b'\10>1 | <gis\8 dis'\9 b'\10>2 fis2 |
232 <e\8 b'\9 gis'\10>1 | <fis\8 cis'\9 ais'\10>1 | <gis\8 dis'\9 b'\10>1 | <gis\8 dis'\9 b'\10>2 fis2 |
233 <e\8 b'\9 gis'\10>1 | <fis\8 cis'\9 ais'\10>1 ~ | q1 |
234 }
235
236 %% TODO
237 stickEndingRight = \relative c {
238 R1*15 |
239 }
240
241 stickLeft = {
242 \key fis \minor
243 \clef "bass"
244 \stickIntro
245 \time 4/4 r1
246 \whiteNoise
247
248 \time 4/4 \stickThunderLeft
249 \time 5/4 \repeat volta 2 \stickThemeLeft
250 \time 4/4 \stickThunderLeftB
251
252 \time 4/4 \stickBeautyLeft
253 \stickSoloLeft
254 \stickTransitionLeft
255 \stickFastLeft
256 \repeat volta 2 \stickTotoLeft
257 \transpose c d { \stickTotoLeft }
258 \stickTotoLeft
259 \transpose c d {
260 \stickShifterLeft
261 }
262 \stickEndingLeft
263 }
264
265 stickRight = {
266 \key fis \minor
267 \stickIntro
268 \time 4/4 R1
269 \whiteNoise
270
271 \time 4/4 \stickThunderRight
272 \time 5/4 \repeat volta 2 \stickThemeRight
273 \time 4/4 \stickThunderRightB
274
275 \time 4/4 \stickBeautyRight
276 \stickSoloRight
277 \stickTransitionRight
278 \stickFastRight
279 \repeat volta 2 \stickTotoRight
280 \transpose c d { \stickTotoRight }
281 \stickTotoRight
282 \transpose c d {
283 \stickShifterRight
284 }
285 \stickEndingRight
286 }
287
288 stick = <<
289 \set PianoStaff.midiInstrument = #"electric guitar (jazz)"
290 \set PianoStaff.pedalSustainStyle = #'bracket
291
292 \new StaffTab = "stick right" {
293 \set Staff.stringTunings = #alto-stick-bobs-expanded-tuning
294 \stickRight
295 }
296 \new StaffTab = "stick left" {
297 \set Staff.stringTunings = #alto-stick-bobs-expanded-tuning
298 \stickLeft
299 }
300 >>