From 2167c03ae51b326d1360f49e21257823c557d2d2 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Fri, 16 Oct 2015 22:19:18 +0200
Subject: white noise: move to subdir.

---
 04-white-noise/parts/keys.ly | 70 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 04-white-noise/parts/keys.ly

(limited to '04-white-noise/parts/keys.ly')

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
+}
+
-- 
cgit v1.2.3