bassA = \relative cis, {
  cis,4 gis' | cis gis         |
  cis gis    | cis r8 cis, ~   |
  cis4 gis'  | cis gis         |
  cis gis    |

  dis'8 ais r d8 ~ d8 a4 d,8 |
  dis'8 ais r d8 ~ d2        |
}

bassB = \relative cis, {
  \time 2/4
  cis4 gis cis gis cis gis |
  \time 3/4
  cis8 e8 gis, gis r gis |
  \time 2/4
  a4 e a e a e   |
  a c8 b r f f r |
}

bassSpooky = \relative fis,, {
  \time 2/4
  fis8 fis  fis fis  fis fis  fis fis  fis fis  fis fis
  \time 3/4
  fis8 a8 cis, cis r cis |
  \time 2/4
  d'8 d  d d  d d  d d  d d  d d
  d4 f8 e r ais, ais r
}

bassC = \relative cis, {
  \time 2/4
  b4. b8-. | b4. b8-. | b4. b8-. |
  \time 3/4
  b8 d8 fis, fis r fis |
  \time 2/4
  g4. d8-. | g4. d8-. | g4. d8-. |
  g4 ais8 a r dis, dis r
}

bassWeird = \relative cis, {
  \repeat volta 2 {
    \time 5/4
    g4 d g d g8 a |
    \time 9/8
    b4 fis cis'8 d cis r ais |
  } \alternative {
    { b4 fis cis'8 d cis r a | }
    { b4 fis cis'8 d cis r a | }
  }
}

bassDance = \relative cis, {
  \time 5/4
  e4 r2 r2 | b4 r1 |
  \time 3/4
  e2. | fis8-. fis-. fis,4 r4_"D.S." \bar "|." |
}

bassBeauty = \relative cis, {
  \time 4/4 { b,1 |}
  \time 3/4
  \relative cis' {
    \ottava #2
    r8 d^\flageolet\sustainOn cis^\flageolet r
    a^\flageolet\sustainOff\sustainOn fis'^\flageolet |
    \ottava #0
  }
  \repeat unfold 2 {
    \time 4/4 { b1 |}
    \time 3/4
    \relative cis' {
      \ottava #2
      r8 d^\flageolet\sustainOff\sustainOn cis^\flageolet r
      a^\flageolet\sustainOff\sustainOn fis'^\flageolet |
      \ottava #0
    }
  }

  \time 4/4
  b'4.->\sustainOff a a8-> g8 ~ |
  \time 6/8
  g4. r8 g8 fis |
  \time 9/8
  e2 r4 d8 r cis |

  \repeat volta 2 {
    \time 7/8
    b4. ~ b2 |
    \time 3/4
    \relative cis' {
      \ottava #2
      r8 d^\flageolet\sustainOn cis^\flageolet r
      a^\flageolet\sustainOff\sustainOn fis'^\flageolet |
      \ottava #0
    }

    \repeat unfold 2 {
      \time 4/4 { b1 |}
      \time 3/4
      \relative cis' {
        \ottava #2
        r8 d^\flageolet\sustainOff\sustainOn cis^\flageolet r
        a^\flageolet\sustainOff\sustainOn fis'^\flageolet |
        \ottava #0
      }
    }

    \time 4/4
    b'4.->\sustainOff a a8-> g8 ~ |
  } \alternative {
    {
      \relative cis, {
        \time 6/8
        g4. r8 g8 fis |
        \time 9/8
        e2 r4 d8 r cis |
      }
    }
    {
      \relative cis, {
        \time 6/8
        g4. r8 g8 fis |
      }
    }
  }
}

bassBeforeArpeggio = \relative c, {
  \time 3/4
  e,2. ~ | e2. ~ | e2. ~ | e2. |
}

bassArpeggio = \relative c, {
  e2.  | e | e ~ | e4 e'-. b,-. |
  d2.  | d | d, ~ | d |

  e'2. | e | e | e' |
  d,2. | d | d | d  |
}

bassArpeggioLonger = \relative c, {
  e2.  | e | e | e' |
  d,2. | d | d, ~ | d ~ | d |

  e'2. | e | e | e' |
  d,2. | d | d | d  |
}


bassArpeggioHigher = \relative c, {
  e8 e e e e e | e e e e e e | e e e e e e | e e e e e e |
  d  d d d d d | d d d d d d | d d d d d d | d d d d d d |
}

bassDrama = \relative c, {
  \key b \minor
  \time 3/4
  \repeat unfold 2 {
    e2 r4
    e2 r4
    e2 r4
    e2 r4
    b,2. ~ | b2. ~ | b2. ~ | b2. |
  }
}

bassDramaEnding = \relative c, {
  a2.  ~ | a   | a' ~ | a |
  e,2. ~ | e ~ | e  ~ | e |
}

%% TODO
bassFinal = {}

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

  %% Intro
  \time 2/4
  \relative cis, { R2 | r4 r8 cis, ~ | }
  \relative cis, {
    \repeat volta 2 \bassA
    \alternative {
      { cis4-. gis-. | }
      { r2 | cis4 gis | cis gis | cis gis | cis gis |}
    }
  }

  %% Solo
  \tempo 4 = 150
  \bassB \bassB

  %% Spooky
  \key fis \minor
  \repeat volta 2 \bassSpooky

  %% Half time feel
  \key b \minor
  \repeat volta 2 {
    \inStaffSegno % start repeat
    \repeat volta 2 \bassC
    \bassWeird
    \bassDance
  }

  %% Beauty
  \bassBeauty

  %% Arpeggio
  \key e \minor
  \bassBeforeArpeggio
  \bassArpeggio

  \key fis \minor
  \transpose c d { \bassArpeggioHigher }
  \bassDrama
  \bassDramaEnding

  \bassArpeggioLonger
  \key fis \minor
  \transpose c d { \bassArpeggioHigher }
  \bassDrama
  \bassFinal
}

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