white noise: split parts.
authorrekado <rekado@elephly.net>
Fri, 16 Oct 2015 20:15:58 +0000 (22:15 +0200)
committerrekado <rekado@elephly.net>
Fri, 16 Oct 2015 20:15:58 +0000 (22:15 +0200)
04-white-noise-parts/bass.ly [new file with mode: 0644]
04-white-noise-parts/keys.ly [new file with mode: 0644]
04-white-noise-parts/stick.ly [new file with mode: 0644]
04-white-noise.ly

diff --git a/04-white-noise-parts/bass.ly b/04-white-noise-parts/bass.ly
new file mode 100644 (file)
index 0000000..67ebc6e
--- /dev/null
@@ -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 (file)
index 0000000..6121bb6
--- /dev/null
@@ -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 (file)
index 0000000..57344d0
--- /dev/null
@@ -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
+  }
+}
index 145fbf5af7806bbcb74eaa893354c07a2ef6d849..ca3aadaaec8e5cc9a804226be5766405319dcaef 100644 (file)
   copyright = "2002--2015 Ricardo Wurmus"
 }
 
-\f
-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-.            |
-}
-
-\f
-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-.            |
-}
-
-%% 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-.            |
-}
-
-
 whiteNoise = { R1*5 } % TODO: how long?
 
-\f
-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
+\include "04-white-noise-parts/bass.ly"
+\include "04-white-noise-parts/keys.ly"
+\include "04-white-noise-parts/stick.ly"
 
-    %% april?
-    \relative fis,, {
-      d,2 r8 e4. | fis2. r4 |
-      d2 e fis  r8 gis a cis
-      d2 r8 e4 b8 cis2. r4 b2
+AllMusic = <<
+  \new Staff = "keyboard"    { \keyboard }
+  \new Staff = "bass"        { \bass }
+  \new Staff = "grand stick" { \stick }
+>>
 
-      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
-    %}
-  }
-}
-
-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
-}
-
-%% 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
-  }
-}
-
-
-\f
 %% Two scores are needed: one with unfolded repeats for MIDI and the
 %% other with regular repeats for notation.
 \score {
-  \unfoldRepeats {
-    <<
-      \new Staff \keyboard
-      \new Staff \bass
-      \new Staff \stick
-    >>
-  }
-  \midi {
-    \tempo 4 = 120
-  }
+  \unfoldRepeats { \AllMusic }
+  \midi { \tempo 4 = 120 }
 }
 
 \score {
-  <<
-    \new Staff = "keyboard"    { \keyboard }
-    \new Staff = "bass"        { \bass }
-    \new Staff = "grand stick" { \stick }
-  >>
+  \AllMusic
   \layout {
     \tempo 4 = 120
     \context {