\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
  >>
}