music/album3/instrumental2.ly

\version "2.20.0"
\language "english"

\header {
  title = "Instrumental 2"
  composer = "Tommy Montgomery"
  copyright = "(c) 2021 Tommy Montgomery"
}

global = {
  \key e \minor
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressFullBarRests
  \omit Voice.StringNumber
  \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 = 96
  \time 6/4
}

neatRiffEm = \relative c {
  \repeat unfold 4 {
    e16 e' ds e d( e,) e cs'( e,) c'( e,) e b'( e,) bf'( e,) |
  }
  \alternative {
    { e b' bf b a( e) e gs( e) g( e) e fs( e) f( e) | }
    { e b' bf b a( e) e gs g a b d e bf a f' | }
    { e, b' bf b a( e) e gs( e) g( e) e fs( e) f( e) | }
    { e c' b c e fs g b c e fs g a b c a | }
  }
}

guitarOne = \relative c'' {
  \partial 2 \tuplet 6/4 4 { d16( c b c b) a b a g b g fs } |

  e,4 e8 <b'' e>8 ~ q2 \tuplet 6/4 4 { d16( c b c b) a b a g b g fs } |
  a,4 a8 <a' b e>8 ~ q2 \tuplet 6/4 4 { d16( c b c b) a b a g b g fs } |
  d8[ a' d e] ~ e[ d] a4 \tuplet 6/4 4 { d16( c b c b) a b a g b g fs } |
  c4 e8 <g b e>~ q2 c,16 fs,8. f16 b8. |

  \bar "||"

  \time 4/4

  \neatRiffEm

  \time 6/8
  \repeat unfold 2 { b''16 fs b, fs' b fs } |
  \repeat unfold 2 { c' g c, g' c g } |
  \repeat unfold 2 { d' a d, a' d a } |
  \repeat unfold 2 { cs a e a cs a } |

  \ottava #1
  \repeat unfold 2 { e' b e, b' e b } |
  \repeat unfold 2 { d a g a d a } |
  fs' d b d fs d fs d b d fs g |
  a e a, e' a e a e a, e' a as |

  \ottava #0

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


  \repeat unfold 2 { e' b e, b' e b } |
  \repeat unfold 2 { d a g a d a } |
  fs' d b d fs d fs d b d fs g |
  a e a, e' a e a4. |

  \bar "||"

  \time 4/4

  \repeat unfold 4 {
    <a, d e>8 q16 q ~ q <a cs e>8 <a d e>16 ~ q q q8 <a cs e>4 |
  }
  \alternative {
    { <g c d>8 q16 q ~ q <g b d>8 <g a d>16 ~ q <fs a d>8 <e a cs>16 ~ q4 | }
    { <c' f g>8 q16 q ~ q <c e g>8 <b e a>16 ~ q q8 <b e gs>16 ~ q4 | }
    { <g c d>8 q16 q ~ q <g b d>8 <g a d>16 ~ q <fs a d>8 <e a cs>16 ~ q4 | }
    { <c' g' a>8 q16 q ~ q <c fs a>8 <b fs' a>16 ~ q <b e g>8 <b ds fs>16 ~ q8 a,16 b | }
  }

  \time 6/8
  c16 e g b g e e' b g b g e |
  d a' g d' g, a e' d g, d' g, a |
  \repeat unfold 2 { e, b' fs' g b( d) e d( b) g fs b, | }
  c e g b g e e' b g b g e |
  a, e' a b e fs g( e) c( b) a( g) |
  fs, b fs' b cs fs g( fs) cs b fs g, |
  fs cs' fs as b e fs( e) b as fs cs |

  \time 4/4

  b16 b' as b a b, b gs' b, g' b, b fs' b, f' b, |
  b fs' f fs e b b ds b d b b cs b c b |
  b b' as b a b, b gs' b, g' b, b fs' b, f' b, |
  b fs' f fs e b b ds d e fs a b f e c' |

  b, b' as b d b as \grace a'( b) ~ b b d( b) a32( fs) e( d) e8 |
  b,16 b' as b d a( b) e, ~ e( f e32 f e\glissando d) e16 a,8. |
  b16 b' as b d b as \grace a'( b) ~ b b d( b) fs'32( d) b fs d b a16 |

  \time 7/8
  b,16[ b b] d[ d d] e[ e e] f[ f f] fs[ a] |
  \time 4/4
  b b b d d d e e e f f f fs a b c |

  \time 6/8
  \repeat unfold 2 { b fs b, fs' b fs } |
  \repeat unfold 2 { c' g c, g' c g } |
  \repeat unfold 2 { d' a d, a' d a } |
  \repeat unfold 2 { cs a e a cs a } |

  \ottava #1
  \repeat unfold 2 { e' b e, b' e b } |
  \repeat unfold 2 { g' d g, d' g d } |
  \repeat unfold 2 { fs d a d fs d } |
  a' e a, e' a e a4 \ottava #0 a,,,16 as |

  \time 7/8
  \repeat unfold 3 { b[ fs' b] c[ g c,] b[ fs' b ds] e[ b ds b] | }
  \time 6/8 b, fs' b c g c, <d a' b d e fs>8. q8. |
  q4. ~ q8. q8. |
  \bar "||"

  \time 4/4

  \neatRiffEm

  \time 6/8

  \ottava #1

  b''4. ds | e fs | \grace fs16( g4. fs) | e \grace fs16( g4. |
  fs) ~ fs4 e16( ds) | b4. ~ b8 b16 ds e fs | \grace fs( g4. fs) | \grace g16( a4. g4) fs16( g) |

  \repeat unfold 2 { fs( ds) b ds fs( ds) } |
  \repeat unfold 2 { g( e) c e g( e) } |
  \repeat unfold 2 { a( fs) d fs a( fs) } |
  \repeat unfold 2 { a( e) cs e a( e) } |

  \repeat unfold 2 { b'( g) e g b( g) } |
  \repeat unfold 2 { a( g) d g a( g) } |
  \repeat unfold 2 { a( fs) d fs a( fs) } |
  \repeat unfold 2 { a( e) cs e a( e) } |

  \repeat unfold 2 { b'( fs) ds fs b( fs) } |
  \repeat unfold 2 { c'( g) e g c( g) } |
  \repeat unfold 2 { d'( a) fs a d( a) } |
  \repeat unfold 2 { cs( a) e a cs( a) } |

  \repeat unfold 2 { e'( b) g b e( b) } |
  \repeat unfold 2 { d( a) g a d( a) } |
  \repeat unfold 2 { d( a) fs a d( a) } |
  \repeat unfold 2 { e'( cs) a cs e( cs) } |

  << { \grace e16( fs2.) } \\ { b,,8. \grace b16( c8.) b \grace ds16( e8.) } >> |
  ds \grace fs16( g8.) fs \grace b16( c8.) |
  b b b4. ~ | b2. |
  \ottava #0



  \time 4/4
  %{
  \tuplet 6/4 4 {
    d,,16( c b c b) a b a g a g fs
    e'( d c d c) b c b a b a g
    f'( e d e d) c d c b c b a
    g'( f e f e d) e d c b a g
  } |

  f1 |
  %}


   e,,,,16 e' ds e d( e,) e cs'( e,) c'( e,) e b'( e,) bf'( e,) |
   e c' b c e fs g b c e fs g b c ds e |

   \ottava #1
   \tuplet 6/4 4 {
     fs( ds) b fs b ds
     g( e) c g c e
     a( fs) d a d fs
     b( g) e b g fs
   } |

   e2 \ottava #0 c,16 fs,8. f16 b8. |
   <e, b'>4 r4 r2 | \bar "|."

  %}



}

guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \global \guitarOne }


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 { "°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 bf>1-\markup { "7" }
  <c e g b>1-\markup { "maj7" }
  <c ef g bf>1-\markup { "m7" }
  <c f g>1-\markup { "sus4" }
  <c d g>1-\markup { "sus2" }
  <c d f g>1-\markup { "sus" \super 2 \sub 4 }
  <c e g bf df'>1-\markup { "7" \super { \flat "9" } }
  <c e g f'>1-\markup { "add11" }
  <c e g b d' f' a'>1-\markup { "maj13" }
}

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

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

  r2 |

  e1:m r2 |
  a1:sus2 r2 |
  d1:sus2 r2 |
  c1:maj7 r2 |

  \repeat unfold 7 { r1 } | c1:1.3.5.7+.11+ |

  \repeat unfold 2 {
    b2.:1.5 | c:1.5 | d:1.5 | a |
    e:m | g:sus2 | b:m | a |
  }

  a4:sus4 q16 a8 a16:sus4 q4 a4 |
  g4:sus4 q16 g8 g8:sus2 d8:/fs a16 q4 |
  a4:sus4 q16 a8 a16:sus4 q4 a4 |
  c4:sus4 q16 c8 e8:sus4 q8 e16 q4 |

  a4:sus4 q16 a8 a16:sus4 q4 a4 |
  g4:sus4 q16 g8 g8:sus2 d8:/fs a16 q4 |
  a4:sus4 q16 a8 a16:sus4 q4 a4 |
  a4:m7/c q16 a8:m6/c b8:7sus4 e8:m/b b16 q4 |

  c2.:maj7 | d:1.2.4.5 | e:m9 | q |
  c2.:maj7 | a:m13 | fs:1.4.5.9- | fs:7 |

  R1*7 | r2.. | r1 |

  b2.:1.5 | c:1.5 | d:1.5 | a |
  e:1.5 | g:1.5 | d | a:1.5 |

  \repeat unfold 3 { b8. c b2:1.3.5.11 | }
  b8. c d4.:1.3.5.6.9 | q2. |

  \repeat unfold 7 r1 | a:m13 |

  b2.:sus4 | q | g | d |
  b:sus4 | q | e:m | a4.:m a:m/c |

  b2.:sus4 | c:maj7 | d:1.3.5.6.9 | a:1.3.5.9 |
  e:m | g:sus4 | b:m | a4.:sus4 a |

  b2.:sus4 | c:maj7 | d:1.3.5.6.9 | a:1.3.5.9 |
  e:m | g | d | a4.:sus4 a |

}

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

\score {
  <<
    \chordNames
    \guitarOneStaff
  >>
  \layout {
    \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 {
    <<
      \transpose c c, \guitarOneStaff
    >>
  }
  \midi {}
}