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/bass.ly | 80 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 04-white-noise/parts/bass.ly

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

diff --git a/04-white-noise/parts/bass.ly b/04-white-noise/parts/bass.ly
new file mode 100644
index 0000000..67ebc6e
--- /dev/null
+++ b/04-white-noise/parts/bass.ly
@@ -0,0 +1,80 @@
+bassBeautyA = \relative fis,, {
+  d4. fis ~ fis4 | e4. gis a4 |
+  d,2. cis4      | fis1       |
+}
+
+bassBeautyB = \relative fis,, {
+  d4. fis fis4 | e4. gis a4                  |
+  d,4. d cis4  | fis8 fis fis fis cis' b a b |
+}
+
+bassThemeWithoutEnd = \relative fis,, {
+  fis8 fis r4 e'8 fis fis, r4 fis8 | r8 fis r4 a'8 b fis, r8 a4    |
+  fis8 fis r4 e'8 fis fis, r4 fis8 | r8 fis r4 e'8 fis fis, e e r8 |
+  b8 b     r4 e'8 fis b,,  r4 b8   | r8 b   r4 a''8 b b,, r8 cis4  |
+  d8 d     r4 e'8 fis d    r4 d,8  |
+}
+
+bassTheme = \relative fis,, {
+  \bassThemeWithoutEnd
+  r8 d   r4 d'8 d d, e e r8 |
+}
+
+bassThunder = \relative fis,, {
+  fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
+  fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
+  fis8 e16 fis8 e16 fis8 e16 fis8 e16 fis8 e |
+  d-. d-. d-. d-. d-. d-. d-. d-.            |
+}
+
+bass = {
+  \set Staff.midiInstrument = #"electric bass (finger)"
+  \clef "bass_8"
+  \key fis \minor
+
+  \relative fis,, {
+    \time 4/4 R1*4 \bassBeautyA
+
+    \time 5/4 \repeat volta 2 \bassThemeWithoutEnd
+    \alternative {
+      { r8 d   r4 d'8 d d, e e r8 | }
+      { r8 d   r4 fis4 ~ fis2     | }
+    }
+    \whiteNoise
+
+    \time 4/4                 \bassThunder
+
+    \time 5/4 \repeat volta 2 \bassTheme
+    \time 4/4                 \bassThunder
+
+    \time 5/4 \repeat volta 2 \bassTheme
+    \time 4/4 \repeat volta 2 \bassBeautyB
+
+    %% TODO
+    %% solo
+    %% sweet and quiet
+    %% solo
+
+    %% april?
+    \relative fis,, {
+      d,2 r8 e4. | fis2. r4 |
+      d2 e fis  r8 gis a cis
+      d2 r8 e4 b8 cis2. r4 b2
+
+      r8 cis4 e,8 fis1
+      d2 r8 e4. fis2. r4 fis8 e r4 e2 fis r8 gis a cis d2 r8 e4 b8 cis2. r4 b2 r8 cis4 e,8 fis1 fis8 r8*5
+    }
+
+    %{
+    %% fast and weird
+    fis8 e fis a4 gis8 fis e 
+    cis cis cis gis' cis b a16 b a8 
+    d, d d d d d d d 
+    cis f b fis' b a gis a 
+    fis cis fis b4 a8 gis a 
+    cis b a b a gis fis gis 
+    d b a gis fis gis a b 
+    gis gis gis gis cis cis,4*80/960 r4*400/960 cis4
+    %}
+  }
+}
-- 
cgit v1.2.3