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