\version "2.22.1"
\language "english"

#(set-global-staff-size 18)

\header {
  title = "The Icy Cave"
  subtitle = "As heard in the game \"Shogun Showdown\" by Roboatino"
  composer = "Marllon Silva (xDeviruchi)"
  arranger = "transcribed by Tommy Montgomery (https://tmont.com)"
  tagline = ""
}

\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
  \tempo 4 = 90
  \time 4/4
  \key g \minor
}

squareLead = \relative c' {
  \global
  R1*5 | r2 r4 r8 c''16 d | \bar "||"

  ef2. ~ ef8 d32 ef d c | d4. g,8 ~ g2 |
  ef2 g8. a16 ~ a8 bf | a1 |
  g4.  ef32 f g a bf8. a16 ~ a8 g | a4. d,8 ~ d2 |

  R1*4 |

  R1*3 | r2 r4 r8 c'16 d |

  \repeat volta 2 {
    ef2. ~ ef8 d32 ef d c | d4. g,8 ~ g2 |
    ef2 g8. a16 ~ a8 bf | a2. ~ a8 f |
    g4. ef32 f g a bf8. a16 ~ a8 c | bf4. d8 ~ d2 |
    f,4. ef16 d ef4 d8 ef | bf2. r8 c'16 d |
  }

  ef1 ~ | ef2 r2 |
  R1*9 |
}

sawArpeggios = \relative c' {
  d16 g bf8 d8 g,16 bf ~ bf c8 bf16 ~ bf a8. |
}

sawLead = \relative c' {
  \global
  \repeat unfold 6 \sawArpeggios

  \repeat unfold 6 \sawArpeggios


  \repeat unfold 4 \sawArpeggios


  % pad in
  \repeat unfold 4 \sawArpeggios

  \repeat volta 2 {
    \repeat unfold 8 \sawArpeggios
  }

  \repeat unfold 4 \sawArpeggios

  \repeat unfold 6 \sawArpeggios

  R1 | \bar "|."
}

pad = \relative c {
  \global
  \clef bass

  R1*12 |

  R1*4 |

  <d g bf>1 ~ | q2 r2 | <ef g c>1 ~ | q2 r2 |

  \repeat volta 2 {
    \repeat unfold 2 {
      <d g bf>1 ~ | q2 r2 | <ef g c>1 ~ | q2 r2 |
    }
  }

  <d g bf>1 ~ | q2 r2 | <ef g c>1 ~ | q2 r2 |

  R1*6 |

  \clef treble
  <bf' d g>1 |
}

bassRiffOne = \relative c {
  g16 g d' g, g' d g, d' ~ d8 g4. |
  g,16 g d' g, g' d g, d' ~ d8 g8 ef8 d8 |
}

bassRiffTwo = \relative c {
  g16 g d' g, g' d g, d' ~ d ef8 d16 ~ d c g' d |
  g,16 g d' g, g' d g, d' ~ d8 g8 ef8 d8 |
}

bass = \relative c {
  \global
  \clef bass

  R1*2 |

  \repeat unfold 2 \bassRiffOne

  \repeat unfold 3 \bassRiffTwo

  \repeat unfold 2 \bassRiffTwo

  \repeat unfold 2 \bassRiffTwo

  \repeat volta 2 {
    \repeat unfold 4 \bassRiffTwo
  }

  \repeat unfold 2 \bassRiffTwo
  \repeat unfold 2 \bassRiffTwo

  g16 g d' g, g' d g, d' ~ d ef8 d16 ~ d c g' d |
  g,8. d'16 ~ d8 g ef2 |
  g,1 |

}

drumBeatOne = \drummode {
  <<
    { r8 hh hh hh sn4 | r8 hh hh r sn4 | } \\
    { bd4 r4 r8 bd    | bd4 r8 bd r bd | }
  >>
}

mainDrumBeatOne = \drummode {
  <<
    { r16 hh hh hh r16 hh hh8      hh8  hh   r16 hh hh hh | } \\
    { bd4          sn8.       bd16 r bd8 bd16 sn4         | }
  >>
}

mainDrumBeat = \drummode {
  \mainDrumBeatOne
  <<
    { r16 hh hh hh r16 hh hh8      hh8. hh16 r16 hh8. | } \\
    { bd4          sn8.       sn16 r8 bd sn8 bd16 bd | }
  >>
}

drumFillOne = \drummode {
  <<
    { r16 hh hh hh r16 hh hh8      hh8. hh16 cymc4 | } \\
    { bd4          sn8.       sn16 r8 bd r8 sn | }
  >>
}

drumkit = \drummode {
  \global

  R1*3 |
  <<
    { r2 r8 cymc4.:32 ~ | cymc2.:32 hho8 hh16 hh | hho4 r r4 hh32 hh hho8. | cymc4 r r2 | } \\
    { R1              | R1                  | R1                     | R1       | }
  >>

  R1 |

  <<
    { cymc2.:32 r4 | r2 r4 r16 cymc8.:32 ~ | cymc2:32 r2 | } \\
    { R1         | R1                  | R1        | }
  >>

  <<
    { <hh tomh>8 <hh tomh>16 tomh <hho tomh>4 <hh tomh>8 <hh tommh> <hh tomml> <hh toml> | } \\
    { R1 }
  >>

  % 0:31

  \mainDrumBeat
  \mainDrumBeatOne \drumFillOne

  \repeat unfold 2 \mainDrumBeat

  \repeat volta 2 {
    \repeat unfold 4 \mainDrumBeat
  }

  \repeat unfold 3 \mainDrumBeat
  \mainDrumBeatOne \drumFillOne
  \mainDrumBeatOne

  <<
    { r2 cymc2                         | cymc1 | } \\
    { sn16 bd bd sn bd bd sn sn bd4 r4 | R1 | }
  >>

}

squareLeadStaff = \new Staff \with { instrumentName = "Lead" } \squareLead
leadSawStaff = \new Staff \with { instrumentName = "Icy" } \sawLead
padStaff = \new Staff \with { instrumentName = "Saw pad" } \pad
bassStaff = \new Staff \with { instrumentName = "Bass" } \bass
drumStaff = \new DrumStaff \with { instrumentName = "Drums" } \drumkit

\score {
  <<
    \squareLeadStaff
    \leadSawStaff
    \padStaff
    \bassStaff
    \drumStaff
  >>
  \layout {
    % indent = #0
    \context {
      \Staff
      \RemoveEmptyStaves
    }
    \context {
      \Score
      \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
    }
    \context {
      \DrumStaff
      \RemoveEmptyStaves
    }
  }
}