\version "2.22.1"
\language "english"

#(set-global-staff-size 18)

\header {
  title = "The Moon"
  subtitle = "from the NES game \"DuckTales\""
  composer = "Hiroshige Tonomura"
  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. = 120
  \key fs \major
}

squareLeadHigh = \relative c' {
  \time 15/8
  \global

  fs8^\markup { \italic \smaller "8va throughout" } cs' fs gs cs, fs gs b cs, b' as cs, as' gs fs |
  \repeat unfold 4 {
    fs,8 cs' fs gs cs, fs gs b cs, b' as cs, as' gs fs |
  }

  \repeat unfold 8 {
    fs,8 cs' fs gs cs, fs gs cs, b' cs, b' as cs, as' gs fs |
  }

  fs,8 a d fs b, gs' b as! | fs cs b as! fs cs b as! |

  R1 |
  r8 gs' a e' r gs a e'  |
  R1*6 |

  r8 cs, fs gs cs, fs gs cs, |
  b' cs, b' as cs, as' gs fs |

}

glissandoSkipOn = {
  \override NoteColumn.glissando-skip = ##t
  \hide NoteHead
}

glissandoSkipOff = {
  \revert NoteColumn.glissando-skip
  \undo \hide NoteHead
}

squareLeadLow = \relative c'' {
  \global
  R1*15/8 |

  cs'2. ~ cs4. fs,4 gs8 ~ gs b4 |
  b4. as8 as4 ~ as4. ~ as4 gs8 ~ gs fs4 |
  cs'2. fs,2. fs'4. ~ |
  fs2. ~ fs2. \ottava #1 gs4 fs8 |

  \time 4/4
  \tempo \markup {
     \concat {
       \smaller \general-align #Y #DOWN \note {8} #1
       " = "
       \smaller \general-align #Y #DOWN \note {8} #1
       \teeny {
         " ( " \general-align #Y #DOWN \note {4} #1 " = 180)"
       }
     }
   }
  % \tempo 4 = 180

  cs'1 ~ | cs1 \ottava #0 | \bar ".|:"

  r2 as,,8^\markup { \italic "loco" } b cs cs ~ | cs4 fs es fs | gs as8 fs ~ fs2 ~ |
  fs2. es8 fs | cs'4. fs,8 fs2 ~ | fs2. fs8 fs | fs2 r8 gs fs es ~ | es1 |

  as,2 r8 gs fs cs' ~ | cs2 fs4 gs | b4. as8 as2 ~ | as2 cs4 b |
  as8 b as fs ~ fs cs4. ~ | cs8 gs' fs es ds es4. | fs8 r r fs r4 fs4 |
  r8 \set glissandoMap = #'((0 . 1)) \xNotesOn cs,4.\glissando \glissandoSkipOn \xNotesOff as'4\noBeam \stemUp ds4\noBeam \stemNeutral \glissandoSkipOff |

  <a fs'>8 q r4 <b gs'>8 q r <a e'> ~ |
  q4. cs8 ~ cs e \tuplet 3/2 { b16 c b } a8 |
  <fs b>4 <e a>8 <fs b> r <e a> r <es cs'!>8 ~ |
  q2.  r4 |

  <d' fs>8 q r4 <e gs>8 q r

    <<
      { a8 ~ | a8 e4 e8 ~ e e a b8 ~ | b2. a8 cs ~ | cs2 ~ cs8 cs cs cs ~ | cs1 ~ | \stemNeutral cs2 } \\
      { e,8 ~ | e cs4 cs8 ~ cs cs e fs8 ~ | fs2 r4 e8 es ~ | es2 ~ es8 es es fs ~ | fs8 r r4 r2 | s2 }
    >>

  d,,4 e |

  \bar ":|."
}

bass = \relative c {
  \global
  \clef bass

  R1*15/8 |

  fs4. cs' fs2. ~ fs4. |
  e,4. b' e2. ~ e4. |
  ds,4. as' ds2. ~ ds4. |
  d,4. a' d2. ~ d4. |
  \clef treble

  \repeat unfold 16 fs8 |

  \repeat unfold 8 fs 8 |
  \repeat unfold 8 es8 |
  \repeat unfold 8 ds8 |
  \repeat unfold 8 cs8 |
  \repeat unfold 8 b8 |
  \repeat unfold 8 bs8 |
  \repeat unfold 16 cs8 |

  \repeat unfold 8 fs8 |
  \repeat unfold 8 e8 |
  \repeat unfold 8 ds8 |
  \repeat unfold 8 d 8 |
  \repeat unfold 8 cs8 |
  \repeat unfold 4 bs8 \repeat unfold 4 cs |
  d r r e r r fs4 | r8 fs, fs fs fs fs fs fs |

  % second theme
  b8 b r4 e8 e r a, ~ |
  \repeat unfold 8 a8 |
  \repeat unfold 8 b |
  \repeat unfold 8 cs |

  b8 b r4 e8 e r a, ~ |
  \repeat unfold 8 a8 |
  \repeat unfold 8 b |
  \repeat unfold 8 cs |

  \repeat unfold 8 d |
  d8 r r4 d4 e |
}

mainBeat = \drummode {
  <<
    { r8 hh r hh r hh r hh | r hh r hh r hh r4 | } \\
    { bd4 sn4 bd sn | bd sn bd sn8 sn | }
  >>
}

drumkit = \drummode {
  \global

  R1*15/8*4 |
  r2. r4. r4 sn8 bd sn bd |

  \mainBeat

  % first theme
  \repeat unfold 8 { \mainBeat }

  % second theme
  \repeat unfold 5 { \mainBeat }
}


squareLeadHighStaff = \new Staff \with {
  instrumentName = "Square"
  midiInstrument = "lead 1 (square)"
  midiMaximumVolume = #0.65
  midiMinimumVolume = #0.65
} \squareLeadHigh
squareLeadLowStaff = \new Staff \with {
  instrumentName = "Saw"
  midiInstrument = "lead 2 (sawtooth)"
  midiMaximumVolume = #0.8
  midiMinimumVolume = #0.8
} \squareLeadLow
bassStaff = \new Staff \with {
  instrumentName = "Bass"
  midiInstrument = "lead 8 (bass+lead)"
  midiMaximumVolume = #0.5
  midiMinimumVolume = #0.5
} \bass
drumStaff = \new DrumStaff \with { instrumentName = "Drums" midiInstrument = "electronic drums" } \drumkit

\score {
  <<
    \squareLeadHighStaff
    \squareLeadLowStaff
    \bassStaff
    \drumStaff
  >>
  \layout {
    % indent = #0
    \context {
      % \Staff \RemoveEmptyStaves
      % \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      % \override VerticalAxisGroup.remove-first = ##t
    }
  }
}

\score {
  <<
    \transpose c c' \squareLeadHighStaff
    \squareLeadLowStaff
    \bassStaff
    \drumStaff
  >>
  \midi {}
}