6121bb6edb2d391504942a05beae313fbde894ad
[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 keyboard = {
44 \set Staff.midiInstrument = #"pad 8 (sweep)"
45 \set Staff.midiMinimumVolume = #0.4
46 \set Staff.midiMaximumVolume = #0.6
47
48 \key fis \minor
49 \time 4/4 \repeat unfold 2 \keysIntro
50 \time 5/4 \repeat volta 2 \keysPadWithoutEnd
51 \alternative {
52 {
53 \relative c' {
54 <a d fis>2.\repeatTie ~ <a d fis>2 |
55 }
56 }
57 {
58 \relative c' {
59 <a d fis>2\repeatTie <cis fis a>2. | % TODO
60 }
61 }
62 }
63
64 \whiteNoise
65 \time 4/4 \keysThunder
66 \time 5/4 \repeat volta 2 \keysPad
67 \time 4/4 \keysThunder
68 \time 5/4 \repeat volta 2 \keysPad
69 }
70