From 72e3bba6b403ad14a3d66796bc8a5f1a6c09abfe Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Mon, 12 Oct 2015 20:52:16 +0200
Subject: white noise: Add score draft.

---
 04-white-noise.ly | 129 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 129 insertions(+)
 create mode 100644 04-white-noise.ly

(limited to '04-white-noise.ly')

diff --git a/04-white-noise.ly b/04-white-noise.ly
new file mode 100644
index 0000000..2a7e750
--- /dev/null
+++ b/04-white-noise.ly
@@ -0,0 +1,129 @@
+\version "2.19.27"
+
+\header {
+  title = "White Noise"
+  composer = "The very pretentious elephlies"
+  arranger = "Ricardo Wurmus"
+  copyright = "2002--2015 Ricardo Wurmus"
+}
+
+
+bassBeautyA = \relative fis,, {
+  d4. fis ~ fis4 | e4. gis a4 |
+  d,4. ~ d 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 e8 |
+  fis8. e16 fis8. e16 fis8. e16 fis8 e8 |
+  fis8. e16 fis8. e16 fis8. e16 fis8 e8 |
+  d8-. d-. d-. d-. d-. d-. d-. d-.      |
+}
+
+bass = {
+  \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     | }
+    }
+    r1*5 % TODO: white noise, how long?
+
+    \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?
+    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
+    %}
+  }
+}
+
+
+keysIntro = <<
+  \chords {
+    d2 fis:m e1
+    d1 fis:m
+  }
+  \relative c'' {
+    r1 r1 r1 r1
+  }
+>>
+
+keysPad = <<
+  \chords {
+    fis4*10:m
+    e4*10
+    b4*10:m
+    d4*10
+  }
+  \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
+  }
+>>
+
+keyboard = {
+  \key fis \minor
+  \time 4/4 \repeat unfold 2 \keysIntro
+  \time 5/4 \repeat volta 2 \keysPad
+}
+
+
+\score {
+  <<
+    \new Staff \keyboard
+    \new Staff \bass
+  >>
+}
-- 
cgit v1.2.3