bassA = \relative c {
  \repeat unfold 2 {
    b,8 a16 b8 a16 b4 r8 e,16 fis a8     |
    b a16 b8 a16 b4 r8
    \ottava #1 d''4\flageolet \ottava #0 |
    b,,8 a16 b8 a16 e4 r8 e16 fis a8     |
  } \alternative {
    { g g16 g8 fis16 b,8 r8 d''16 r d e d8 |}
    { g,, g16 g8 fis16 d8 ~ d2             |}
  }
}

%% key change!
bassB = \relative c {
  cis,8 r16 cis8 r16 fis,4. fis4 |
  a16 a8 a b16 e,4 e8 e fis'     |
  gis8. e fis8 fis,2             |
}

bassBWithHarmonic = \relative c {
  \bassB
  a,8. b8 r16 e,2
  \ottava #1 d'''8\flageolet \ottava #0 |
}

bassBWithoutHarmonic = \relative c {
  \bassB
  a,8. b8 r16 e,2 f8 |
}

bassTransition = \relative fis,, {
  \repeat volta 2 {
    fis16 r8. fis16 r8 e16 fis fis fis8 r4    |
    fis16 r8. fis16 r8 e16 fis fis e fis8 r8. |
    fis16 r8. fis16 r8 e16 fis fis fis8 r4    |
    fis16 r8. fis16 r8 e16 fis fis e fis8 r8. |
  }

  \repeat volta 4 {
    r16 fis8 e16 fis8 e16 fis8 fis8 r16 r4      |
    r16 fis8 e16 fis8 e16 fis16 r16 fis16 e4 r8 |
  }
}

bassThree = \relative fis,, {
  \time 6/8
  \repeat unfold 2 {
    e16   fis8 fis fis16
    fis16 gis8 gis gis16 |
    gis16 a8   a   r16
    b,8 b b              |
  }

  d'8. d8 d16    e8. e8 e16    |
  r16 d r d r d  e8. e16 fis e |
  d8. d8 d16     e8. e8 e16    |
  \time 7/8
  r16 cis8 cis r16 cis8 cis a16 b fis8 |
}

bassReprise = \relative fis,, {
  \time 4/4
  e1 | dis'8. b8 g16 e'4. e,8 g16 fis  |
  e4. a4 g8 fis e | c' g d' e e, e e e |

  %% TODO: simplify
  e e16 e e8 e16 e e e e8 e d'         |
  dis8. b8 g16 e'4 e,16 e g' e, a' b   |
  e,,8 e16 e e8 a16 a a a a8 a16 a a a |
  c c, c c' c, c e' e, e e e e e e e e |
}

bassFinal = \relative fis,, {
  \repeat volta 4 {
    e8. e16 r8*4 r16 e16 d' e |
    dis8. b8 c16 e,2 d'16 e   |
    e,8. e16 r8*5 a16 b c8. c8 d16 e,2 r8 |
  }

  %% TODO
  a16 r8 a16 r16 a a'4. a,16 g' a b, |
  c8 c c c16 g8. g8 g gis |
  a16 r8 a16 r16 a a'4. a,16 g' a b, |
  dis8 dis' r8 dis,16 ais |

  %% TODO: final note missing
}

bass = {
  \set Staff.midiInstrument = #"electric bass (finger)"
  \set Staff.pedalSustainStyle = #'bracket
  \clef "bass_8"

  %% Intro
  \time 4/4
  R1*8

  \key b \minor
  \bassA
  \key e \major
  \bassBWithHarmonic

  \key b \minor
  \bassA
  \key e \major
  \bassBWithoutHarmonic

  \key fis \minor
  \bassTransition
  \bassThree

  %% TODO: wrong key
  \bassReprise
  \bassFinal
}