From 11bbd87437865fd821c267007ef8efd83d2ab1e7 Mon Sep 17 00:00:00 2001 From: rekado Date: Fri, 16 Oct 2015 22:15:58 +0200 Subject: white noise: split parts. --- 04-white-noise-parts/bass.ly | 80 ++++++++++++++ 04-white-noise-parts/keys.ly | 70 +++++++++++++ 04-white-noise-parts/stick.ly | 56 ++++++++++ 04-white-noise.ly | 238 ++---------------------------------------- 4 files changed, 217 insertions(+), 227 deletions(-) create mode 100644 04-white-noise-parts/bass.ly create mode 100644 04-white-noise-parts/keys.ly create mode 100644 04-white-noise-parts/stick.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 + %} + } +} 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' { + 2 1 + + % \chordmode { + % d2 fis:m e1 + % d1 fis:m + % } +} + +keysPadWithoutEnd = \relative c' { + 2. ~ 2 ~ | 2. ~ 2 | + 2. ~ 2 ~ | 2. ~ 2 | + 2. ~ 2 ~ | 2. ~ 2 | + 2. ~ 2 ~ | + % \chordmode { + % fis4*10:m + % e4*10 + % b4*10:m + % d4*5 + % } +} + +keysPad = \relative c' { + 2. ~ 2 ~ | 2. ~ 2 | + 2. ~ 2 ~ | 2. ~ 2 | + 2. ~ 2 ~ | 2. ~ 2 | + 2. ~ 2 ~ | 2. ~ 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' { + 2.\repeatTie ~ 2 | + } + } + { + \relative c' { + 2\repeatTie 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' { + 2 + 2 2 + 2 d,1 cis + + 2 + 2 2 + 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 + } +} diff --git a/04-white-noise.ly b/04-white-noise.ly index 145fbf5..ca3aada 100644 --- a/04-white-noise.ly +++ b/04-white-noise.ly @@ -7,243 +7,27 @@ copyright = "2002--2015 Ricardo Wurmus" } - -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-. | -} - - -keysIntro = \relative c' { - 2 1 - - % \chordmode { - % d2 fis:m e1 - % d1 fis:m - % } -} - -keysPadWithoutEnd = \relative c' { - 2. ~ 2 ~ | 2. ~ 2 | - 2. ~ 2 ~ | 2. ~ 2 | - 2. ~ 2 ~ | 2. ~ 2 | - 2. ~ 2 ~ | - % \chordmode { - % fis4*10:m - % e4*10 - % b4*10:m - % d4*5 - % } -} - -keysPad = \relative c' { - 2. ~ 2 ~ | 2. ~ 2 | - 2. ~ 2 ~ | 2. ~ 2 | - 2. ~ 2 ~ | 2. ~ 2 | - 2. ~ 2 ~ | 2. ~ 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? - -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' { - 2.\repeatTie ~ 2 | - } - } - { - \relative c' { - 2\repeatTie 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' { - 2 - 2 2 - 2 d,1 cis - - 2 - 2 2 - 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 - } -} - - - %% 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 { -- cgit v1.2.3