white noise: Add keyboard arpeggio part.
[music/pretentious.git] / 04-white-noise / parts / keys.ly
1 keysIntro = \relative c' {
2 <d fis a>2 <cis fis a> <b e gis>1
3 <d fis a> <cis fis a>
4 % \chordmode {
5 % d2 fis:m e1
6 % d1 fis:m
7 % }
8 }
9
10 keysPadWithoutEnd = \relative c' {
11 <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
12 <b e gis>2. ~ <b e gis>2 ~ | <b e gis>2. ~ <b e gis>2 |
13 <b d fis>2. ~ <b d fis>2 ~ | <b d fis>2. ~ <b d fis>2 |
14 <a d fis>2. ~ <a d fis>2 ~ |
15 % \chordmode {
16 % fis4*10:m
17 % e4*10
18 % b4*10:m
19 % d4*5
20 % }
21 }
22
23 keysPad = \relative c' {
24 <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
25 <b e gis>2. ~ <b e gis>2 ~ | <b e gis>2. ~ <b e gis>2 |
26 <b d fis>2. ~ <b d fis>2 ~ | <b d fis>2. ~ <b d fis>2 |
27 <a d fis>2. ~ <a d fis>2 ~ | <a d fis>2. ~ <a d fis>2 |
28 % \chordmode {
29 % fis4*10:m
30 % e4*10
31 % b4*10:m
32 % d4*10
33 % }
34 }
35
36 keysThunder = \relative c'' {
37 a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
38 a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
39 a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
40 d-. d-. d-. d-. d-. d-. d-. d-. |
41 }
42
43 keysArpeggio = \relative d' {
44 d8 a' d a e' a, d e,,
45 fis cis' gis' a gis cis, fis, e
46 d' a' d a e' a, d e,,
47 fis cis' gis' a gis cis, fis, e
48 }
49
50 keyboard = {
51 \set Staff.midiInstrument = #"pad 8 (sweep)"
52 \set Staff.midiMinimumVolume = #0.4
53 \set Staff.midiMaximumVolume = #0.6
54
55 \key fis \minor
56 \time 4/4 \repeat unfold 2 \keysIntro
57 \time 5/4 \repeat volta 2 \keysPadWithoutEnd
58 \alternative {
59 {
60 \relative c' {
61 <a d fis>2.\repeatTie ~ <a d fis>2 |
62 }
63 }
64 {
65 \relative c' {
66 <a d fis>2\repeatTie <cis fis a>2. | % TODO
67 }
68 }
69 }
70
71 \whiteNoise
72 \time 4/4 \keysThunder
73 \time 5/4 \repeat volta 2 \keysPad
74 \time 4/4 \keysThunder
75 \time 5/4 \repeat volta 2 \keysPad
76 \repeat volta 2 \keysIntro
77 \repeat unfold 4 \keysArpeggio
78 }
79