d9d6a1bccb44d37540bc18fb4ce3f6a8d46731d3
[music/pretentious.git] / 04-white-noise / music / 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 keysBeauty = \keysIntro
46
47 keysArpeggio = \relative d' {
48 d8 a' d a e' a, d e,
49 fis cis gis' a gis cis, fis e
50 d a' d a e' a, d e,
51 fis cis gis' a gis cis, fis e
52 }
53
54 keysTransition = \relative c' {
55 \time 4/4
56 fis'8. cis d gis, a8 gis |
57 \time 2/4
58 fis r4. |
59 }
60
61 keysFast = \relative c'' {
62 \time 4/4
63 <a cis fis>1 |
64 <gis b cis e>1 |
65 <fis a d>1 |
66 <fis gis b d>2 <gis b e> |
67 <fis a cis>1 |
68 <gis cis e>1 |
69 <a d fis>4\arpeggio <fis a d>\arpeggio <fis a> <d fis> |
70 <d f gis>2 <cis f gis cis>4 r4 |
71 }
72
73 %% TODO: play actual chords
74 keysToto = \relative c'' {
75 \repeat volta 2 {
76 fis8 fis r4 r4. fis8 | e8 e r4 r2 |
77 fis2.. fis8 | e1 |
78 }
79 \transpose c d {
80 fis8 fis r4 r4. fis8 | e8 e r4 r2 |
81 fis2.. fis8 | e1 |
82 }
83 fis8 fis r4 r4. fis8 | e8 e r4 r2 |
84 fis2.. fis8 | e1 |
85 }
86
87 keysShifter = \relative c' {
88 \key e \minor
89 \time 4/4
90 <g e'>4. b'4 <e, b'>4. |
91 <d b'>4 <d a'>4 d'8 r4. |
92 <g,, e'>4. b'4 <e, b'>4. |
93 \time 2/4
94 <d b'>4 <d a'>4 |
95
96 \key fis \minor
97 \time 4/4
98 <fis a,>4. cis'4 <cis fis,>4. |
99 <cis e,>4 <b e,>4 e8 r4. |
100 <fis, a,>4. cis'4 <cis fis,>4. |
101 \time 2/4
102 <cis e,>4 <b e,>4 |
103
104 \key e \minor
105 \time 4/4
106 <g e>4. b'4 <e, b'>4. |
107 <d b'>4 <d a'>4 d'8 r4. |
108 <g,, e'>4. b'4 <e, b'>4. |
109 \time 2/4
110 <d b'>4 <d a'>4 |
111
112 \key fis \minor
113 \time 4/4
114 <fis a,>4. cis'4 <cis fis,>4. |
115 <cis e,>4 <b e,>4 e8 r4. |
116 <fis, a,>4. cis'4 <cis fis,>4. |
117 <cis e,>4 <b e,>4 ~ <b e,>2 |
118 }
119
120 keysEnding = \relative c' {
121 \time 4/4
122 \repeat unfold 2 {
123 <a d fis>4. cis'4 <d, fis cis'>4. ~ |
124 <d fis cis'>8 <e gis cis>4 <e gis b>4 e'8 r4 |
125 }
126 <d, fis a cis>4.\arpeggio b' a4 |
127 <e gis b>4. a gis4 | <cis, fis a>1 ~ | <cis fis a>2 ~ <cis e a>2 |
128 <d fis a cis>4.\arpeggio b' a4 |
129 <e gis b>4. a gis4 | <cis, fis a>1 ~ | <cis fis a>1 |
130
131 <d fis a>2 <d fis a cis> | <e gis b>1 ~ | <e gis b>1 |
132 }
133
134 keyboard = {
135 \set Staff.midiInstrument = #"pad 3 (polysynth)"
136 \set Staff.midiMinimumVolume = #0.4
137 \set Staff.midiMaximumVolume = #0.6
138
139 \key fis \minor
140 \time 4/4 \repeat unfold 2 \keysIntro
141 \time 5/4 \repeat volta 2 \keysPadWithoutEnd
142 \alternative {
143 {
144 \relative c' {
145 <a d fis>2.\repeatTie ~ <a d fis>2 |
146 }
147 }
148 {
149 \time 2/4
150 \relative c' {
151 <a d fis>2\repeatTie |
152 }
153 }
154 }
155 \time 4/4 \relative c' {<a cis fis>1}
156 \whiteNoise
157 \time 4/4 \keysThunder
158 \time 5/4 \repeat volta 2 \keysPad
159 \time 4/4 \keysThunder
160
161 \time 4/4
162 \repeat volta 2 \keysBeauty
163 \repeat unfold 2 \keysBeauty
164 \repeat unfold 2 \keysArpeggio
165
166 \keysTransition
167 \tempo 4 = 160
168 \keysFast
169 \keysToto
170 \transpose c d {
171 \keysShifter
172 \keysEnding
173 }
174 }
175