\version "2.24.0"
\language "english"

\header {
  title = "Halloween Camp"
  composer = "Tommy Montgomery"
  tagline = ""
}

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
  \override Staff.OttavaBracket.font-series = #'normal
  \set Staff.ottavationMarkups = #ottavation-simple-ordinals
  \tempo 4 = 160
  \key d \minor
}


guitarOne = \relative c' {
  \time 6/4
  \global

  \repeat unfold 4 { f8 a d f d a } |
  \repeat unfold 4 { f8 af c f c af } |
  \repeat unfold 2 { e8 gs b e b gs } |
  \repeat unfold 2 { e8 gs b d b gs } |
  \repeat unfold 2 { e8 a cs e cs a } |
  \repeat unfold 2 { e8 g cs e cs g } |

  \repeat unfold 4 { f8 a d f d a } |
  \repeat unfold 2 { g8 bf d g d bf } |
  \repeat unfold 2 { g8 bf d f d bf } |
  \repeat unfold 2 { g8 c e g e c } |
  \repeat unfold 2 { gs8 c e gs e c } |
  \repeat unfold 2 { a8 cs e a e cs } |
  a8 cs e a cs e\glissando( a e) cs a e cs |

  \bar "||"

  \repeat unfold 2 { d f a d a f } |
  \repeat unfold 2 { c fs a c a fs } |
  \repeat unfold 2 { b, d g b g d } |
  \repeat unfold 2 { bf! d g a g d } |
  \repeat unfold 2 { a d e g e d } |
  \repeat unfold 2 { a cs e f e cs } |
  d f a f a d a d f d f a |
  a f d f d a d a f a f d |

  \repeat unfold 2 { e gs b e b gs } |
  e gs b e gs b b gs e b gs e |
  \repeat unfold 2 { d gs b d b gs } |
  d gs b d gs b b gs d b gs d |
  \repeat unfold 2 { cs gs' b cs b gs } |
  cs, gs' b cs gs' b b gs cs, b gs cs, |
  c e a b a e c' b a e c a |
  b ds fs ds fs a fs a b a b ds |

  \time 4/4

  \repeat unfold 2 { e8 e16 f e8 ds e2 | }
  e8 e16 f e8 ds e d c b |

  \bar "||"




}


guitarTwo = \relative c {
  \global

  f8^"kbd" a d f a d f d a f d a |
  f a d f a d f d a f d a |
  \repeat unfold 2 { f af c f af c f c af f c af | }
  \repeat unfold 2 { e gs b e gs b e b gs e b gs | }
  e a cs e a cs e cs a e cs a |
  e g cs e g cs e cs g e cs g |
  \repeat unfold 2 { f a d f a d f d a f d a | }
  \repeat unfold 2 { g bf d g bf d g d bf g d bf | }
  g c e g c e g e c g e c |
  gs c e gs c e gs e c gs e c |
  \repeat unfold 2 { a cs e a cs e a e cs a e cs | }

  R1.*16 |

  R1*3 |

  \repeat unfold 4 { a8 a' e a } |
  \repeat unfold 4 { bf, g' d g } |
  \repeat unfold 4 { a, a' e a } |
  \repeat unfold 2 { c, g' e g } |
  \repeat unfold 2 { cs, g' e g } |
  \repeat unfold 4 { d a' f a } |
  \repeat unfold 4 { d, bf' e, bf' } |
  \repeat unfold 4 { cs, bf' e, bf' } |
  \repeat unfold 2 { d, a' f a } |
  \repeat unfold 2 { e bf' g bf } |
  \repeat unfold 4 { f c' a c } |
  \repeat unfold 4 { f, cs' a cs } |
  \repeat unfold 4 { f, df' af df } |
  \repeat unfold 4 { e, cs' gs cs } |

}


guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" } \guitarOne
guitarTwoStaff = \new Staff \with { midiInstrument = "acoustic guitar (steel)" } \guitarTwo


chordExceptionMusic = {
  <c e g b d'>1-\markup { "maj9" }
  <c e g b fs'>1-\markup { "maj7" \sharp "11" }
  <c ef f g bf>1-\markup { "m7sus4" }
  <c ef gf bff>1-\markup { \super "°7" }
  <c e g d'>1-\markup { "add9" }
  <c ef g d'>1-\markup { "m(add9)" }
  <c e fs as>1-\markup { \super { \sharp "11" \sharp "13" } }
  <c g>1-\markup { "5" }
  <c e g b>1-\markup { "maj7" }
  <c f g>1-\markup { "sus4" }
  <c d g>1-\markup { "sus2" }
}

chordExceptions = #(append
  (sequential-music-to-chord-exceptions chordExceptionMusic #t)
  ignatzekExceptions
)

chordValues = \chordmode {
  \global
  \set chordNameExceptions = #chordExceptions
  \set majorSevenSymbol = \markup "maj7"

  d1.:m | q | f:m | q | e | e:7 | a | a:7 |
  d:m/f | q | g:m | g:m7 | c:/g | c:aug/gs | a | q |

  d:m | d:7/c | g:/b | g:m9/bf | a:7sus4 | a:1.3.5.13- | d:m | q |
  e | q | e:7/d | q | cs:m7 | q | a:1.3-.5.9/c | b:7 |

  e1 | q | q |

  a1*2:1.5 | g:m/bf | a:1.5 | c1 | cs:dim |
  d1*2:m | g:m6 | cs:dim7 | d1:m | e:dim |

}

chordNames = \new ChordNames {
  \set chordChanges = ##t
  \set chordNameExceptions = #chordExceptions
  \chordValues
}



#(set-global-staff-size 18)
\book {
  \paper {
    system-system-spacing =
      #'((basic-distance . 8)
         (minimum-distance . 4)
         (padding . 4)
         (stretchability . 60)
         )
  }

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

\score {
  \unfoldRepeats {

      <<
        \transpose c c, {
          \guitarOneStaff
        }
        \transpose c c, {
          \guitarTwoStaff
        }
      >>
  }
  \midi {}
}