music/album4/mi2.ly

\version "2.24.0"
\language "english"

\header {
  title = "MI2"
  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 = 82
  \key d \major
}


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

  \partial 4 r4 |

  a''16\glissando( b8) g16 ~ g a8. ~ a2 ~ |
  a8  \xNotesOn <a e>16 q \xNotesOff a16\glissando( b8) g16 ~ g16 a8 fs16 ~ fs( g32 fs) e16 d |
  a'16\glissando( b8) g16 ~ g a8. ~ a2 ~ |
  a8  \xNotesOn <a e>16 q \xNotesOff a16\glissando( b8) g16 ~ g16 a8 fs16 ~ fs( g32 fs) e16 d |

  cs8. d16 ~ d8 a' ~ a4 d,8 cs |
  g16 d' g a fs d g a d e cs a g\glissando( a) d e |
  f8. e16 ~ e8 d ~ d4 \tuplet 6/4 { bf,16 f' bf c f a } |
  g8. f16 ~ f8 e ~ e4. d16\glissando( c) |

  d4. \ottava 1 \xNotesOn <e a>16 q \xNotesOff a16\glissando( b8) g16 ~ g a8. ~ |
  a4. \xNotesOn <e a>16 q \xNotesOff a16\glissando( b8) g16 ~ g a8 fs16 ~ |
  fs( g32 fs) e16 d cs8. d16 ~ d8 b8 ~ b16 a8. |
  \grace fs8( g16 fs e\glissando d) e8. g16 ~ g8 d' ~ d16 cs8. |
  d4. \xNotesOn <e a>16 q \xNotesOff a16\glissando( b8) g16 ~ g a8. ~ |


}


guitarTwo = \relative c' {
  \global

  \partial 4 \tuplet 6/4 { g'16( a g) fs( d) c } |

  \bar "||"

  d4 <d a' d>8 q16 q q8 q4-> q16 q |
  <c e g d'>4 q8 q16 q q8 <g d' g d'>4-> q16 q |
  <d' a' d>4 q8 q16 q q8 <f a c e>4-> q16 q |
  <c e g c>4 q8 q16 q q8 <g d' g d'>4-> q16 q |

  <a e' a cs>8. <a e' a b>16 ~ q8 <a e' a cs> ~ q4 <a e' a b>8 <a e' a cs> |
  <g d' g d'>8. q16 q8 q16 q <fs d' a' d>8. q16 q8 q16 q |
  <f d' a' d>8. <e c' e g>16 ~ q8 <g d' bf' d> ~ q q q q16 q |
  <g c g' c e>8. <a f' c' f>16 ~ q8 <bf g' c e> ~ q4 \tuplet 6/4 { g'16( a g) f( d) c } |

  d4 <d a' d>8 q16 q q8 q4-> q16 q |
  <c e g d'>4 q8 q16 q q8 <g d' g d'>4-> q16 q |
  <b fs' b d fs>4 q8 q16 q q8 <e, b' e g b e>4-> q16 q |
  <a e' g cs e>4 q8 q16 q q8 <a e' g d' e>8-> ~ q16 <a e' g cs e>8.-> |

  <d a' d fs>4 q8 q16 q q q q8 ~ q16 q q q |
  <d c' f a>4 q8 q16 q q q q8 ~ q16 q q q |
  <d d' g b>4 q8 q16 q q q <d d' g a>8 ~ q16 q q q |
  <d d' fs a>4 q8 q16 q <d c' fs bf>8 q16 q q <d c' fs a>8.-> |

  \key g \minor

  \time 9/8
  g,16 bf d g bf g a f g c ef a, bf d, ef g bf, a |

}


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"


}

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 {}
}