white noise: move to subdir.

5 files changed, 272 insertions, 0 deletions

diff --git a/04-white-noise/04-white-noise.ly b/04-white-noise/04-white-noise.ly
new file mode 100644
index 0000000..1f57377
--- /dev/null
+++ b/04-white-noise/04-white-noise.ly
@@ -0,0 +1,45 @@
+\version "2.19.27"
+
+\header {
+  title = "White Noise"
+  composer = "The very pretentious elephlies"
+  arranger = "Ricardo Wurmus"
+  copyright = "2002--2015 Ricardo Wurmus"
+}
+
+whiteNoise = { R1*5 } % TODO: how long?
+
+\include "parts/bass.ly"
+\include "parts/keys.ly"
+\include "parts/stick.ly"
+
+AllMusic = <<
+  \new Staff = "keyboard"    { \keyboard }
+  \new Staff = "bass"        { \bass }
+  \new Staff = "grand stick" { \stick }
+>>
+
+%% Two scores are needed: one with unfolded repeats for MIDI and the
+%% other with regular repeats for notation.
+\score {
+  \unfoldRepeats { \AllMusic }
+  \midi { \tempo 4 = 120 }
+}
+
+\score {
+  \AllMusic
+  \layout {
+    \tempo 4 = 120
+    \context { 
+      %% add the RemoveEmptyStaffContext that erases rest-only staves
+      \Staff \RemoveEmptyStaves 
+    }
+    \context {
+      \Score
+      %% Remove all-rest staves also in the first system
+      \override VerticalAxisGroup.remove-first = ##t
+      %% If only one non-empty staff in a system exists, still print the starting bar
+      \override SystemStartBar.collapse-height = #1
+    }
+  }
+}
diff --git a/04-white-noise/04-white-noise.tempo b/04-white-noise/04-white-noise.tempo
new file mode 100644
index 0000000..b1ca9df
--- /dev/null
+++ b/04-white-noise/04-white-noise.tempo
@@ -0,0 +1,21 @@
+count-in:   4 2/4 120
+
+intro:      4 4/4 120
+            4 4/4 120 # with bass
+
+main:       8 5/4 120
+            8 5/4 120 # last bar: "white noise"
+
+silence:    4 5/4 120 # ?
+
+thunder:    4 4/4 120
+
+main2:      8 5/4 120
+            8 5/4 120
+
+thunder2:   4 4/4 120
+
+main3:      8 5/4 120
+            8 5/4 120
+
+# TODO: the beautiful part comes here
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
+    %}
+  }
+}
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
+}
+
diff --git a/04-white-noise/parts/stick.ly b/04-white-noise/parts/stick.ly
new file mode 100644
index 0000000..57344d0
--- /dev/null
+++ b/04-white-noise/parts/stick.ly
@@ -0,0 +1,56 @@
+%% TODO
+stickThunder = \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-.            |
+}
+
+%% TODO
+stickTheme = \relative c {
+  fis'4. cis a' cis8*7 d2 
+  gis,4. e d' cis8*7 a4 gis
+  fis4. d gis a8*9 r4
+  fis4. d gis e8*5 gis4 a4. r8
+}
+
+stick = {
+  \set Staff.midiInstrument = #"electric guitar (jazz)"
+  \key fis \minor
+  \time 4/4 { R1*8 }
+  %% silly but I have to mimick the repeats for the other voices to
+  %% make the notes line up.
+  \time 5/4 \repeat volta 2 {
+    r2. r2 | r2. r2 | r2. r2 | r2. r2 |
+    r2. r2 | r2. r2 | r2. r2 |
+  }
+  \alternative {
+    {r2. r2 | }
+    {r2. r2 | }
+  }
+
+  \whiteNoise
+  \stickThunder
+  \repeat volta 2 \stickTheme
+  \stickThunder
+  \repeat volta 2 \stickTheme
+
+  %% TODO: this is terrible and I would never play this
+  \relative c' {
+    <d a >2 
+    <cis fis, >2 <gis' fis, >2 
+    <a e, >2 d,1 cis
+
+    <d a >2 
+    <cis fis, >2 <gis' fis, >2 
+    <a e, >2 d,1 cis
+  }
+
+  %% TODO: move to keyboard?
+  \repeat unfold 4 \relative c'' {
+    d'8 a' d a  e' a, d e,,
+    fis, cis' gis' a gis cis, fis, e
+    d' a' d a  e' a, d e,,
+    fis cis' gis' a gis cis, fis, e
+  }
+}