white noise: stick: Add fast part.
[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 stickThunderLeft = \relative c {
18 fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
19 fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
20 fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
21 d-. d-. d-. d-. d-. d-. d-. d-. |
22 }
23
24 %% TODO
25 stickThunderRight = \relative c'' {
26 a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
27 a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
28 a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
29 d-. d-. d-. d-. d-. d-. d-. d-. |
30 }
31
32 stickThemeLeft = \relative c {
33 fis'4.\10-1 cis\9-3 r2 | r2. r2 |
34 gis'4.\10-1 e\9-4 r2 | r2. r2 |
35 fis4.\10-1 d\9-4 r2 | r2. r2 |
36 fis4.\10-1 d\9-4 r2 | r2. r2 |
37 }
38
39 stickThemeRight = \relative c' {
40 s4. s a'\4-3 cis8\3-1 ~ | cis2. d2\3-2 |
41 s4. s d\3-1 cis8\4-3 ~ | cis2. a4\4-1 gis\4-1 |
42 s4. s gis\4-1 a8\4-2 ~ | a2. ~ a4. r8 |
43 s4. s gis\4-1 e8\5-3 ~ | e2 gis4\4-1 a4.\4-2 r8 |
44 }
45
46 %% TODO
47 stickBeautyLeft = \relative c {
48 \repeat volta 2 {
49 R1*4
50 }
51 \repeat unfold 2 {
52 R1*4
53 }
54 }
55 stickBeautyRight = \relative c'' {
56 \repeat volta 2 {
57 %% TODO: too robotic
58 %% fis8 a d e, a cis a e |
59 %% gis b e gis, b fis' e b |
60 %% fis a d a fis a d a |
61 %% gis a cis fis, ~ fis2 |
62 r2 d8 cis d a' ~ | a gis ~ gis cis, ~ cis b ~ b4 |
63 a2 r8 b8 ~ b4 | fis1 |
64 }
65
66 %% quiet!
67 \repeat unfold 2 {
68 <a\4-1 cis\3-3>4. b a4 | <gis\4-1 b\3-3>4. a <e\4-1 gis\3-3>4 |
69 <fis\4-1 a\3-3>2 ~ q4 <e\4-1 gis\3-3>4 | <fis\4-1 a\3-3>1 |
70 }
71 }
72
73 %% TODO
74 stickSoloLeft = \relative c {
75 r1 | r1 |
76 r1 | r1 |
77 r1 | r1 |
78 r1 | r1 |
79 }
80
81 stickSoloRight = \relative c' {
82 \grace{a16 d} fis2 r8 gis8 a \grace{fis16} gis8 ~ |
83 gis4 e4 cis8 fis gis fis ~ |
84 fis4. r4 e8 fis \grace{b,16} cis8 ~ |
85 %% bending isn't working in MIDI :(
86 %%b\bendAfter #+2 b
87 cis b a16 gis fis e fis8
88 a16 b cis d e f |
89 fis4. r4 gis8 a e' ~ |
90 e fis4 cis4. r8 b16 cis |
91 %% TODO
92 d2 cis4. b8 | cis1 |
93 }
94
95 %% TODO
96 stickTransitionLeft = \relative fis,, {
97 \time 3/4
98 fis'8. cis d gis, | a8 gis fis r4. |
99 }
100
101 %% TODO
102 stickTransitionRight = \relative fis {
103 \time 3/4
104 fis'8. cis d gis, | a8 gis fis r4. |
105 }
106
107 stickFastLeft = \relative fis' {
108 \time 4/4
109 %% TODO: this doesn't render well
110 \change Staff = "stick right"
111 <a\2 cis\1>8\mp_\markup {\italic { both hands on melody side }} s s s <a\2 cis\1> s s s |
112 <b\2 e\1> s s s <b\2 e\1> s s s |
113 \change Staff = "stick left"
114 d,,8\8-4 d'8\10-1 ~ d4 ~ d2 |
115 <b'\9-1 fis\10-1>8 q q q q q r4 |
116
117 \change Staff = "stick right"
118 <a\2 cis\1>8 s s s <a\2 cis\1> s s s |
119 <b\2 e\1> s s s <b\2 e\1> s s s |
120 \change Staff = "stick left"
121 d,,8\8-4 d'8\10-1 ~ d4 ~ d2 |
122 <b'\9-1 fis\10-1>8 q q q <cis\9-1 gis\10-1>4-. r |
123 }
124
125 stickFastRight = \relative fis' {
126 \time 4/4
127 r8\mp 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 |
128 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 |
129 r8 r16 fis,\4-4 a8\3-2 cis8\2-1 ~ cis8 d8\2-2 cis4\2-1 |
130 <gis\3-1 d'\2-2>8 q q q <gis\3-1 e'\2-3> q <gis\3-2 cis\2-1>4 |
131
132 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 |
133 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 |
134 r8 r16 fis,\4-4 a8\3-2 cis8\2-1 ~ cis2 |
135 <gis\3-1 d'\2-2>8 q q q <eis\4-3 gis\3-1 cis\2-1>4-. r |
136 }
137
138 stickShifterLeft = \relative c {
139 \time 4/4
140 e8\mp g' e, g' e, g' e, <e g'> |
141 <d fis'> r <d fis'> r <d fis'> r4. |
142 e8 g' e, g' e, g' e, <e g'> |
143 \time 2/4
144 <d fis'> r <d fis'> r |
145
146 \time 4/4
147 fis8 a' fis, a' fis, a' fis, <fis a'> |
148 <e gis'> r <e gis'> r <e gis'> r4. |
149 fis8 a' fis, a' fis, a' fis, <fis a'> |
150 \time 2/4
151 <e gis'> r <e gis'> r |
152 }
153
154 %% TODO
155 stickShifterRight = \relative c {
156 \time 4/4 R1*3
157 \time 2/4 R4*2
158 \time 4/4 R1*3
159 \time 2/4 R4*2
160 }
161
162
163 stickLeft = {
164 \key fis \minor
165 \clef "bass"
166 \stickIntro
167 \time 4/4 r1
168 \whiteNoise
169
170 \time 4/4 \stickThunderLeft
171 \time 5/4 \repeat volta 2 \stickThemeLeft
172 \time 4/4 \stickThunderLeft
173
174 \time 4/4 \stickBeautyLeft
175 \stickSoloLeft
176 \stickTransitionLeft
177 \stickFastLeft
178 \transpose c d {
179 \repeat unfold 2 \stickShifterLeft
180 }
181 }
182
183 stickRight = {
184 \key fis \minor
185 \stickIntro
186 \time 4/4 R1
187 \whiteNoise
188
189 \time 4/4 \stickThunderRight
190 \time 5/4 \repeat volta 2 \stickThemeRight
191 \time 4/4 \stickThunderRight
192
193 \time 4/4 \stickBeautyRight
194 \stickSoloRight
195 \stickTransitionRight
196 \stickFastRight
197 \transpose c d {
198 \repeat unfold 2 \stickShifterRight
199 }
200 }
201
202 stick = <<
203 \set PianoStaff.midiInstrument = #"electric guitar (jazz)"
204 \set PianoStaff.pedalSustainStyle = #'bracket
205
206 \new StaffTab = "stick right" {
207 \set Staff.stringTunings = #alto-stick-bobs-expanded-tuning
208 \stickRight
209 }
210 \new StaffTab = "stick left" {
211 \set Staff.stringTunings = #alto-stick-bobs-expanded-tuning
212 \stickLeft
213 }
214 >>