\include "articulate.ly"

\version "2.22.1"
\language "english"

#(set-global-staff-size 18)

\header {
  title = "Rogue Fable III - Main Menu"
  composer = "music by Nooskewl Games (https://nooskewl.com)"
  tagline = ""
  arranger = "transcribed by Tommy Montgomery (https://tmont.com)"
}

\paper {
  % system-system-spacing = #'((basic-distance . 0.1) (padding . 4))
}

global = {
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressEmptyMeasures
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
  \override Score.ChordName.font-name = #"Noto Serif"
  \override Score.ChordName.font-size = #0
  \override Score.LyricText.font-name = #"Noto Serif"
  \override Score.LyricText.font-size = #0
  \key c \minor
  \tempo 4 = 140
}

elecPiano = \relative c' {
  \global

  \repeat unfold 2 {
    c8 c c' c, c c c' c, |
    af af af' af, af af' af af, |
    c' c, c c' c c, ef' ef, |
    f f f' f, f f f f |
    g, g g' g, g g' g g, |
    f' f, f f' g g, g g' |
    g, g' g g, g g g' g, |
    g g' g g, g' g, g g |

    ef' ef ef ef ef ef ef ef |
    d d' bf, bf' g, g bf bf' |
    c, c c c c'4 c,8 c |
    bf' bf, bf bf' bf, bf bf'4 |

    af,8 af af af af' af, af' af, |
    bf bf bf bf g g bf bf |
    c c c'4 ~ c8 c, c c' |
    c, c c' c, c c' c c, |
  }

}

bass = \relative c {
  \global
  \clef bass

  \repeat unfold 2{
    c2. ef4 | af,1 | c2. ef4 | f2. r4 |
    g2 r2 | f2 bf, | g1 ~ | g4 r r2 |
    ef'2. r4 | d4 bf g bf | c1 | bf1 |
    af1 | bf2 g4 bf | c2. ~ c8 bf | c1 |
  }

  \bar "|."
}

drumkit = \drummode {
  \global

  \stemDown

  \repeat unfold 15 {
    <<
      { r8 hh hho4 r8 hh hh hh | } \\
      { bd4 bd bd bd | }
    >>
  }

  <<
    { r8 hh hho4 r8 hho8 hho4 | } \\
    { bd8 sn sn bd bd sn8 sn sn16 sn | }
  >>

  \repeat unfold 3 {
    <<
      { r8 hh hho8 hh16 hh r8 hh hh hh | } \\
      { bd4 sn bd sn | }
    >>
  }

  <<
    { r8 hh hho8 hh16 hh r8 hh hh hh | } \\
    { bd4 sn bd sn8 sn16 sn | }
  >>

  <<
    { r8 hh hho8 hh16 hh r8 hh hh hh | } \\
    { bd4 sn bd sn4 | }
  >>

  <<
    { r8 hh hho4 r8 hh hh hh | } \\
    { bd4 sn8 sn16 sn bd4 sn4 | }
  >>

  <<
    { r8 hh hho8 hh16 hh r8 hh hh hh | } \\
    { bd4 sn bd sn4 | }
  >>

  <<
    { r8 hh hho8 hh16 hh r8 hh hh r8 | } \\
    { sn4 sn sn16 sn sn8 sn8 sn16 sn | }
  >>

  \repeat unfold 3 {
    <<
      { r8 hh hho8 hh16 hh r8 hh hh hh | } \\
      { bd4 sn bd sn | }
    >>
  }

  <<
    { r8 hh hho8 hh16 hh r8 hh hh hh | } \\
    { bd4 sn bd sn8 sn16 sn | }
  >>

  <<
    { r8 hh hho8 hh16 hh r8 hh hh hh | } \\
    { bd4 sn bd sn | }
  >>

  <<
    { r8 hh hho8 hh16 hh r8 hh hh hh | } \\
    { bd4 sn bd sn8 sn | }
  >>

  <<
    { r8 hh hho8 hh16 hh r8 hh hh hh | } \\
    { sn8 sn bd4 bd bd | }
  >>

  <<
    { r8 hh hho8 hh16 hh r8 hho hho hh | } \\
    { bd4 bd bd bd | }
  >>
}

lead = \relative c'' {
  \global

  g'1 | ef1 | bf'2 c4 bf | af2 g4 af |
  g1 | f4 bf c bf |
  <<
    \new CueVoice { \stemUp r4 d8-. ef-. f-. ef-. d-. ef-. | d16( ef d8) r4 } \\
    { g,1 ~ | g2 }
  >> r2 |

  ef4 g bf g | d1 | c1 ~ | c2 r2 |
  ef4 c' ef c | d ef f d | c1 | R1 | \break \bar "||"

  g1 | ef1 | bf'2 c4 bf | af2 g4 af |
  g1 | f4 bf c bf |
  g1 ~ | g2 r2 |

  ef4 g bf g | d1 | c1 ~ | c2 r2 |
  ef4 c' ef c | d ef f d | c1 | R1 |
}

pluckedLead = \relative c'' {
  \global

  R1*16 |

  c8 g c d ef2 | ef8 f ef d c4 g' |
  bf2 c4 af16 bf af g | af4 ef d bf |

  g4. g'16 a bf8 a g4 | f,2 r2 | R1*2 |
  ef4. g'16 a bf8 a g4 | d,2 r2 | R1*2 |
}

leadStaff = \new Staff \with {
  instrumentName = "Lead"
  midiInstrument = #"lead 8 (bass+lead)"
  midiMinimumVolume = #.5
  midiMaximumVolume = #.5
} \lead

pluckedLeadStaff = \new Staff \with {
  instrumentName = "Lead 2"
  midiInstrument = #"sitar"
  midiMinimumVolume = #.7
  midiMaximumVolume = #.7
} \pluckedLead

elecPianoStaff = \new Staff \with {
  instrumentName = "E. Piano"
  midiInstrument = #"electric piano 1"
  midiMinimumVolume = #0.5
  midiMaximumVolume = #0.5
} {
  \elecPiano
}

bassStaff = \new Staff \with {
  instrumentName = "Bass"
  midiInstrument = #"electric bass (finger)"
  midiMinimumVolume = #0.9
  midiMaximumVolume = #0.9
} {
  \bass
}

drumStaff = \new DrumStaff \with {
  instrumentName = "Drums"
  midiMinimumVolume = #0.8
  midiMaximumVolume = #0.8
} {
  \drumkit
}

\score {
  <<
    \leadStaff
    \pluckedLeadStaff
    \elecPianoStaff
    \bassStaff
    \drumStaff
  >>
  \layout {
    \context {
      \Score \omit BarNumber
    }
    \context {
      % \Staff \RemoveEmptyStaves
      \override Glissando.minimum-length = #4
      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      \override Glissando.thickness = #2
      \override VerticalAxisGroup.remove-first = ##t
    }
  }
}

\score {
  \unfoldRepeats {
    <<
      \leadStaff
      \pluckedLeadStaff
      \elecPianoStaff
      \transpose c c, \bassStaff
      \drumStaff
    >>
  }

  \midi {}
}