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,, r16 a8 r16 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 |
}

bassMartaRekado = \relative fis,, {
  \time 5/8
  fis8 fis fis fis fis  |
  \time 7/8
  fis8 fis fis fis fis fis fis |
  \time 2/4
  fis8. r16 b a gis a |

  \time 5/8
  fis8 fis fis fis fis |
  \time 7/8
  fis8 fis fis fis fis fis fis |
  \time 2/4
  fis8. r16 b a gis a |

  \time 3/4
  d,8. d8 d16    e8. e8 e16    |
  r16 d r d r d  e8. e16 fis e |
  fis16 fis8 fis fis16  fis fis8 fis fis16 |
  \time 7/8
  fis fis8 fis d' d r r8. |
}

bassReprise = \relative fis,, {
  \time 4/4
  fis1                                |
  f'8. cis8 a16 fis'4. fis,8 a16 gis  |
  fis4. b4 a8 gis fis                 |
  d' a e' fis fis, fis fis fis        |

  %% TODO: simplify
  fis fis16 fis fis8 fis16 fis fis fis fis8 fis e' |
  f8. cis8 a16 fis'4 fis,16 fis a' fis, b' cis     |
  fis,,8 fis16 fis fis8 b16 b b b b8 b16 b b b     |
  d   d,  d   d'  d,  d   fis' fis,
  fis fis fis fis fis fis fis  fis  |
}

bassFinal = \relative fis,, {
  \time 4/4
  \repeat volta 4 {
    fis8. fis16 r2 r16 fis16 e' fis |
    f8. cis8 d16 fis,2 e'16 fis     |
    fis,8. fis16 r2 r8 b16 cis |
    d8. d8 e16 fis,2 r8 |
  }

  b16 r8 b16 r16 b b'4. b,16 a' b cis, |
  d8 d d d16 a8. a8 a ais              |
  b16 r8 b16 r16 b b'4. b,16 a' b cis, |
  f8 f' r8 f,16 c gis2 ~               |
  gis1 |
}

bassMusic = {
  \set Staff.midiInstrument = #"electric bass (finger)"
  \set Staff.pedalSustainStyle = #'bracket
  \set Staff.midiMinimumVolume = #1.0
  \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

  \bassMartaRekado

  \bassReprise
  \bassFinal
}

\layout {
  ragged-last = ##t
  indent = 2\cm
  short-indent = 1.5\cm
}

bass = \new StaffGroup \with {
  instrumentName = #"Bass"
  shortInstrumentName = #"Bass"
}
<<
  \new Staff \with {
    \RemoveEmptyStaves
  } {
    \bassMusic
  }
  \new TabStaff \with {
    stringTunings = #bass-five-string-tuning
    \RemoveEmptyStaves
  } {
    \override Stem #'transparent = ##t
    \override Beam #'transparent = ##t
    \bassMusic
  }
>>