1 files changed, 70 insertions, 0 deletions
diff --git a/04-white-noise-parts/keys.ly b/04-white-noise-parts/keys.ly
new file mode 100644
index 0000000..6121bb6
--- /dev/null
+++ b/04-white-noise-parts/keys.ly
@@ -0,0 +1,70 @@
+keysIntro = \relative c' {
+  <d fis a>2 <cis fis a>  <b e gis>1
+  <d fis a> <cis fis a>
+  % \chordmode {
+  %   d2 fis:m e1
+  %   d1 fis:m
+  % }
+}
+
+keysPadWithoutEnd = \relative c' {
+  <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
+  <b e gis>2.  ~ <b e gis>2 ~    | <b e gis>2.  ~ <b e gis>2    |
+  <b d fis>2.  ~ <b d fis>2 ~    | <b d fis>2.  ~ <b d fis>2    |
+  <a d fis>2.  ~ <a d fis>2 ~    |
+  % \chordmode {
+  %   fis4*10:m
+  %   e4*10
+  %   b4*10:m
+  %   d4*5
+  % }
+}
+
+keysPad = \relative c' {
+  <cis fis a>2. ~ <cis fis a>2 ~ | <cis fis a>2. ~ <cis fis a>2 |
+  <b e gis>2.  ~ <b e gis>2 ~    | <b e gis>2.  ~ <b e gis>2    |
+  <b d fis>2.  ~ <b d fis>2 ~    | <b d fis>2.  ~ <b d fis>2    |
+  <a d fis>2.  ~ <a d fis>2 ~    | <a d fis>2.  ~ <a d fis>2    |
+  % \chordmode {
+  %   fis4*10:m
+  %   e4*10
+  %   b4*10:m
+  %   d4*10
+  % }
+}
+
+keysThunder = \relative c'' {
+  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
+  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
+  a8 gis16 a8 gis16 a8 gis16 a8 gis16 a8 gis |
+  d-. d-. d-. d-. d-. d-. d-. d-.            |
+}
+
+keyboard = {
+  \set Staff.midiInstrument = #"pad 8 (sweep)"
+  \set Staff.midiMinimumVolume = #0.4
+  \set Staff.midiMaximumVolume = #0.6
+
+  \key fis \minor
+  \time 4/4 \repeat unfold 2 \keysIntro
+  \time 5/4 \repeat volta 2 \keysPadWithoutEnd
+  \alternative {
+    {
+      \relative c' {
+        <a d fis>2.\repeatTie  ~ <a d fis>2 |
+      }
+    }
+    {
+      \relative c' {
+        <a d fis>2\repeatTie <cis fis a>2. |  % TODO
+      }
+    }
+  }
+
+  \whiteNoise
+  \time 4/4 \keysThunder
+  \time 5/4 \repeat volta 2 \keysPad
+  \time 4/4 \keysThunder
+  \time 5/4 \repeat volta 2 \keysPad
+}
+