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