\version "2.22.1"
\language "english"

\header {
  title = "Shine"
  composer = "Tommy Montgomery"
  copyright = "(c) 2024 Tommy Montgomery"
}

#(define (scoop-stencil grob)
  (ly:stencil-combine-at-edge
   (ly:note-head::print grob) 0 -1
   (grob-interpret-markup grob
    (markup #:with-dimensions '(0 . 0) '(0 . 0)
     #:translate '( -2 . -2) #:musicglyph "brackettips.up" )) 0 )
)

scoop = \once \override NoteHead.stencil = #scoop-stencil

global = {
  \key a \mixolydian
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressEmptyMeasures
  \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
}

eRiff = \relative c {
  e4 e8 e f'( e) d e ~ | e4 e,8 e f'( e) d e ~ |
  e4 e,8 e f'( e) d e ~ | e4 d8 c b c d e, |
}

guitar = \relative c' {
  \time 4/4
  \tempo 4 = 216

  \repeat volta 2 {
    a4 a8 a d'( cs) a, cs'(\glissando b) a, b'( cs)
    a,4 a8 a b'( a) a, a'(\glissando g) a, g'( a)
    a,4 a8 a g'( fs) a, fs'(\glissando e) a, e'( fs)
    a,4 a8 a f'( e) a, e'( d) a d( e)
  }
  \alternative {
    {
      e,4 e8 e gs( e) e a ~ | a( e) b'( e,) d'4 e |
      e,4 e8 e gs( e) e a ~ | a( e) b'( e,) d'4 e |
    }
    {
      e,4 e8 e gs( e) e a ~ | a( e) b'( e,) d'4 e |
    }
  }

  % \repeat volta 3 \eRiff
  % \textMark "3x"

  %{
  e,4 e8 e f'( e) d e ~ | e4 e,8 e f'( e) d e ~ | \time 7/8 e4 e,8[ e] f'([ e) d] |
  \time 6/8 <c g' c>4. <d a' d> | <b fs' b>4. <c g' c>4. | <a e' a> <b fs' b> |
  <g d'g>4. <a e' a>4. | \time 2/4 <f c' f>4 <g d' g>4 |


  \time 4/4
  %}
   <a, e' a>2. ~ q8 <e'' a> ~ | q1 ~ | q1 ~ | q |

  % e,,4^"bass" e8 e g( e) e a ~ | a( e) b'( e,) d'4 e |
%   e,4 e8 e g( e) e a ~ | a( e) b'( e,) d'4 e |
%   e,4 e8 e g( e) e a ~ | a( e) b'( e,) d'4 e |
%   e,8 a g e g a e bf' | e, a g e g( a) d( e) |

  % \repeat unfold 3 { e,4^"gtr" e8 e e e e e ~ | e e e4 e e | }
%   e8 a g e g a e bf' | e, a g e g( a) d( e) |

%   d4 a' d a e' a, d a | cs, a' cs a e' a, cs a |
%   c,! g' c g d' g, c g | b, g' b g d' g, b g |
%   \tuplet 3/2 4 { \repeat unfold 12 bf,8  } |
%   bf4 r r2 |
  \bar "||"

  \repeat unfold 2 {
    a,8_"clean" cs d cs d e d cs | d cs d e a cs d e |
    a,8 cs d cs d e d cs | a e d cs d e cs a |
  }
  \alternative {
    {
      g a cs d cs a cs d | g a g d g a cs d |
      cs a cs d g a g d | cs d cs a g d cs b |
    }
    {
      f8 a b a b c b a | b c e c e f e c |
      f8 a b a b c b a | b c e c e f e d |
    }
  }

  e4. e8 ~ e4 e ~ | e1 |
  \tuplet 3/2 4 { \repeat unfold 12 e,,8 } | <f c' f>4-. r r2 |

  % chorus
  a,2 a8 a a a'8 ~ | a4 a8 a cs( d) e4 |
  a,,2 a8 a a a'8 ~ | a4 a8 a e( fs) g4 |
  a,2 a8 a a a'8 ~ | a4 a8 a cs( d) e4 |
  \repeat unfold 2 { e,8 fs g e fs d e c | }

  a2 a8 a a a'8 ~ | a4 a8 a cs( d e4) |
  a,,2 a8 a a a'8 ~ | a4 a8 a e'( fs g4) |
  a,,2 a8 a a a'8 ~ | a4 a8 a cs( d e4) |
  e,8 f g e f d e c | d e f d e c d b |

  <a e' a cs! b e>8 r r q r4 q4 ~ | q1 |
  <a e' a cs b e>8 r r q r4 q4 ~ | q1 |
  <f c' f a b e>8 r r q r4 q4 ~ | q1 |
  %{<b fs' b>4. b8 b b <b fs' b>4 ~ | q4 b8 b b c d4 |
  <c g' c>4. c8 c c <c g' c>4 ~ | q4 c8 c c d e4 |
  <d a' d>4. d8 d d <d a' d>4 ~ | q4 d8 d d4 e |
  %}
  <<
    { f'4. a8 ~ a4 d | e4. f8 ~ f4 b, | } \\
    { d,1 | c2 b | }
  >>

  % \repeat volta 2 \eRiff


  a4 a8 a d'( cs!) a, cs'(\glissando b) a, b'( cs)
  a,4 a8 a b'( a) a, a'(\glissando g) a, g'( a)
  a,4 a8 a g'( fs) a, fs'(\glissando e) a, e'( fs)
  a,4 a8 a f'( e) a, e'(\glissando d) a d( e) |
  e,4 e8 e gs( e) e a ~ | a( e) b'( e,) d'4 e |

  a,4 a8 a d'( c) a, c'(\glissando b) a, b'( c)
  a,4 a8 a b'( a) a, a'(\glissando g) a, g'( a)
  a,4 a8 a g'( f) a, f'(\glissando e) a, e'( f)
  a,4 a8 a e'( d) c b( a) g f( g) |

  e8 e4 e8 ~ e e <e' b' e a d>4 ~ | q1 |

  e16^+( e, a b) a'^+( a, d e) d'^+( d, gs a) b'^+( b, e fs) |
  d'^+( b, e fs) e'^+( b, e fs) gs'^+( e, d' e) a^+( e, d' e) |
  b'2^+ r2 | R1 |

  % verse 2
  \repeat unfold 2 {
    a,,,4 a8 a \tuplet 3/2 { a( a') e'^+ } e4 ~ | e4 a,,8 a \tuplet 3/2 { a( a') e'^+ } e4 |
  }
  \repeat unfold 2 {
    a,,4 a8 a \tuplet 3/2 { a( g') d'^+ } d4 ~ | d4 a,8 a \tuplet 3/2 { a( g') d'^+ } d4 |
  }
  \repeat unfold 2 {
    a,4 a8 a \tuplet 3/2 { a( fs') cs'^+ } cs4 ~ | cs4 a,8 a \tuplet 3/2 { a( fs') cs'^+ } cs4 |
  }
  a,4 a8 a \tuplet 3/2 { a( f') c'^+ } c4 ~ | c4 a,8 a \tuplet 3/2 { a( f') c'^+ } c4 |
  a,4 a8 a \tuplet 3/2 { a( e') b'^+ } b4 ~ | b4 a,8 a \tuplet 3/2 { a( d) a'^+ } a4 |

  % verse 3
  \repeat unfold 4 { a8( e') e^+ b'^+ cs,( a') a^+ e'^+ | }
  \repeat unfold 4 { g,,8( d') d^+ a'^+ b,( g') g^+ d'^+ | }
  \repeat unfold 4 { fs,,8( cs') e^+ a^+ a,( e') fs^+ cs'^+ | }
  \repeat unfold 4 { f,,8( c') d^+ a'^+ a,( e') f^+ c'^+ | }
  \repeat unfold 2 { e,,8( b') e^+ b'^+ a,( e') a^+ e'^+ | }
  \repeat unfold 2 { e,,8( b') e^+ b'^+ gs,( e') gs^+ e'^+ | }

  R1*16^"chorus riff" |

  \bar "||"
  \textMark "Interlude"

  \repeat unfold 2 {
    a,,,4 a8 a a'( g) e g e( d) c d c b( a) g |
  }
  % f4. c'8 ~ c4 f | g4. f8 ~ f4 c |
  f8 c' e c e( f e) c e f a b c( b a) g |
  g, b c b c d c b | g b c d e d c b |

  a4 a8 a a'( g) e g e( d) c d c b( a) g |
  a4 a8 a a'( g) e g e( d) cs d e cs( a) b |

  c4. e8 ~ e4 g | <b e>1 |
  d,4. fs8 ~ fs4 a | <f c'>2 <g b> |

  a4 a8 a e'( d) a a' a, d( e) a, g'( fs) e( d) |
  e4 e,8 a d c b a | r g r a r c r b |
  r g r a ~ a2 | d,8 e f a d e f d |
  e f g a b c b g | a e b' e, c' g d' g, |

  a4 a8 a e'( d) a a' a, d( e) a, g'( fs) e( d) |
  e4 e,8 a d c b a | r g r a r c r b |
  r g r a ~ a2 | \ottava #1 a8 b c d e f g a |
  r c r b r g r a | r d r c r b r
  << { \stemDown a8 ~ \stemNeutral | a1 \ottava #0 | s1 | s1 | s1 | } \\ { s8 | <a,, e' a>1 ~ | \stemNeutral <a, e' a>1 ~ | q1 ~ | q1 | } >> |


  \bar "||"

  % verse 3
  a4. a'8 ~ a4 e' | a1 | a,,4. a'8 ~ a4 e' | a4. e8 ~ e4 a, |
  a,4. a'8 ~ a4 e' | g1 | a,,4. a'8 ~ a4 e' | g4. e8 ~ e4 a, |
  a,4. a'8 ~ a4 e' | fs1 | a,,4. a'8 ~ a4 e' | fs4. e8 ~ e4 a, |
  a,4. a'8 ~ a4 e' | f1 | a,,4. a'8 ~ a4 e' | f4. e8 ~ e4 a, |

  e,4 e8 e << { <a' d>8([ <b e>]) } \\ { e,4 } >> r8 <b' e>8 ~ |
  q4 e,,8 e << { <a' d>8([ <b e>]) } \\ { e,4 } >> r8 <c' f>8 |
  r <b e>4. \tuplet 3/2 4 { e,8 e e e e e } |
  <f c' f>4 r4 r2 |

  % chorus 3
  \repeat unfold 2 {
    a,4 a8 a <a' cs>( d) r <a cs> ~ | q <a d> r <a e'> ~ q2 |
    a,4 a8 a <a' e' g>( <d fs>) r <a e' g> ~ | q <a d fs> r <a e' g> ~ q2 |
    a,4 a8 a <a' cs>( d) r <a cs> ~ | q <a d> r <a e'> ~ q2 |
  }
  \alternative {
    { \repeat unfold 2 { e8 fs g e fs d e c | } }
    { e8 f g e f d e c | d b c a b g a b | }
  }


  a4. e'8 ~ e4 a | <b cs e>1\arpeggio |
  <<
    { f4. a8 ~ a4 d | e4. f8 ~ f4 d | }
    \\
    { d,4. e8 ~ e4 f | a4. c8 ~ c4 b | }
  >>

  \repeat volta 3 {
    e,,4 e8 e f'( e) d e ~ | e4 e,8 e f'( e) d e ~ |
    e4 e,8 e f'( e) d e ~ | e4 d8 c b c d \textMark "3x" e, ~ |

  }

  e4. e8 ~ e e <e b' e b' e>4 ~ | q2 <f c' f>4. q8 ~ |
  q q q2. | <g d' g>2 q |


  a4 a8 a d'( cs) a, cs'(\glissando b) a, b'( cs)
  a,4 a8 a b'( a) a, a'(\glissando g) a, g'( a)
  a,4 a8 a g'( fs) a, fs'(\glissando e) a, e'( fs)
  a,4 a8 a f'( e) a, e'( d) a d( e)
  e,4 e8 e gs( e) e a ~ | a( e) b'( e,) d'4 e |


  e4 e8 e gs( e) e a ~ | a( e) b'^+( e,) d'4^+ e^+ |
  e4 e8 e gs( e) e a ~ | a( e) b'( e,) d'4 e |

  <<
    { \grace e8( f2. e4) | d2. e8( d) | e2 }
    \\
    { e,,8 f g e f d e c | d e f d e c d b | a2 }
  >>



  a'''8( e) a, e' e, d'( cs) b b, e fs fs, d' cs g b a2

  \bar "|."



  %{
  \bar "||"

  \repeat unfold 4 { a8 cs e }
  \repeat unfold 4 { a, d f }
  \repeat unfold 4 { a, e' g }
  \repeat unfold 2 { a, e' a }
  a, e' a2 |

  \repeat unfold 4 { a8 cs e }
  \repeat unfold 4 { a, d f }
  \repeat unfold 4 { a, e' g }
  \repeat unfold 2 { a, e' a }
  a, e' a2 |

  \tuplet 3/2 4 {
    \repeat unfold 36 e,,8
  } |

  <f c' f>4-> r r2 |



  \repeat unfold 2{ e,,4 e8 e gs( e) e a ~ | a( e) b'( e,) d'4 e | }


  % chorus
  R1*16^"chorus" |


  %}
}

vocalMelody = \relative c' {
  \repeat volta 2 R1*6
  \alternative {
    { R1*4 }
    { R1*2 }
  }

%{
  \repeat volta 3 R1*4 |
  R1*2 | R1*7/8 | R1*6/8*4 | R1*2/4 |
%}

  R1*4 |


  % verse 1
  \textMark "Verse 1"
  r4 cs'4 b a | d4. e8 r4 a, | d4. e8 r2 | fs4 e e cs |
  d4. cs8 ~ cs4 a | d4. cs8 ~ cs4 b ~ | b1 | R1 |

  r4 cs4 b a | d4. e8 r4 a, | d4. e8 r2 | fs4 e e cs |
  d4 c c b | a4. b8 ~ b4 c ~ | c1 | r4 c4 c8 d4. |

  b1 ~ | b1 | R1 | r2 b8 cs4. |

  % chorus
  \bar "||"
  \textMark "Chorus"
  d2. ~ d8 cs ~ | cs2 r2 | d2. ~ d8 e ~ | e2 r4 a, |
  d4 cs cs b | b4 a a b8 c ~ | c1 | R1 |

  d2. ~ d8 cs ~ | cs2 r4 a | fs'2( ~ fs8 g fs) fs( ~ | fs4 e) r4 r8 a, |
  d4 cs cs b8 b ~ | b4 a a b | c1 | b |

  a1 ~ | a1 | R1*6 |

  % \repeat volta 2 R1*4 |
  R1*20 |

  \bar "||"
  \textMark "Verse 2"

  r4 cs4 b a | d4. e8 r4 a, | d4. e8 r2 | d4. cs8 ~ cs4 a |
  d4 cs a a | d4. cs8 ~ cs4 b ~ | b1 | R1 |
  r4 cs4 b a | d4. e8 r4 a, | d4. e8 r2 | fs4 e e cs |
  d4 c c b | a4. b8 ~ b4 c ~ | c1 | R1 |

  r4 cs4 b a | d4. e8 r4 a, | d4. e8 r2 | d4 cs cs a |
  d4 cs a a | d4 cs cs a | | b1 | R1 |
  r4 cs4 b a | d4. e8 r4 a, | d4. e8 r2 | fs4 e e cs |
  d4 c c b | a4 a a b8 c ~ | c1 | r4 c4 c8 d4. |

  b1 ~ | b1 | R1 | r2 b8 cs4. |

  \bar "||"
  \textMark "Chorus"
  d2. ~ d8 cs ~ | cs2 r2 | d2. ~ d8 e ~ | e2 r4 a, |
  d4 cs cs b | b4 a a b8 c ~ | c1 | R1 |

  d2. ~ d8 cs ~ | cs2 r4 a | fs'2( ~ fs8 g fs) fs( ~ | fs4 e) r4 r8 a, |
  d4 cs cs b8 b ~ | b4 a a b | c1 | b |

  % interlude
  a2 r | R1*7 |
  R1*8 |
  R1*8 |
  R1*8 |
  R1*4 |

  \bar "||"
  \textMark "Verse 3"

  r4 cs4 b a | d4. e8 r4 a, | d4. e8 r2 | d4 cs4 b( a) |
  d4 cs b a | d4. cs8 ~ cs4 b ~ | b1 | R1 |
  r4 cs4 b a | d4. e8 r4 a, | d4. e8 r2 | fs4 e e cs |
  d4 c c b | a4. b8 ~ b4 c ~ | c1 | r4 c4 c8 d4. |

  b1 ~ | b1 | R1 | r2 b8 cs4. |

  \bar "||"
  \textMark "Chorus"
  d2. ~ d8 cs ~ | cs2 r2 | d2. ~ d8 e ~ | e2 r4 a, |
  d4 cs cs b | b4 a a b8 c ~ | c1 | R1 |

  d2. ~ d8 cs ~ | cs2 r4 a | fs'2( ~ fs8 g fs) fs( ~ | fs4 e) r4 r8 a, |
  d4 cs cs b8 b ~ | b4 a a b | c1 | b |

  a1 ~ | a1 | R1 | R1 |
}

allTheLyrics = \lyricmode {
  % verse 1
  There was a bright light, a star -- light,
  beam -- ing down its won -- der __ for all to __ see. __
  Then came a dark night, a last rite,
  cast -- ing down a sha -- dow like it's meant to __ be. __

  Or so it seems. __

  % chorus 1
  Will it shine __ on, __ shine __ long, __
  or burn out like some dist -- ant mem -- o -- ry? __
  Shine __ on, __ or die __ wrong. __
  The on -- ly choice to make __ is how to fade a -- way. __

  % verse 2
  There was a young boy, who felt joy,
  liv -- ing __ and play -- ing un -- der -- neath the __ stars. __
  But this was de -- stroyed, null and void,
  shat -- tered by a bott -- le and a do -- zen __ scars. __

  He's now a grown man, with no plan,
  haunt -- ed and em -- bitt -- ered by his youth -- ful tra-- ge -- dies.
  It's now a last stand, while out -- manned,
  fight -- ing for what once were all those cher -- ished mem -- or -- ies. __

  Oh, hear his pleas. __

  % chorus 2
  Will he shine __ on, __ shine __ long, __
  or burn out like some dist -- ant mem -- o -- ry? __
  Shine __ on, __ or die __ wrong. __
  The on -- ly choice to make __ is how to fade a -- way.

  % verse 3
  There was a mo -- ment, so co -- gent,
  all the world __ stopped to watch this beam of __ light. __

  But then de -- struc -- tion, re -- duc -- tion,
  dark -- ness fell and with it our last will to __ fight.

  Yet still so bright.

  % chorus 3
  Will we shine __ on, __ shine __ long, __
  or burn out like some dist -- ant mem -- o -- ry? __
  Shine __ on, __ or die __ wrong. __
  The on -- ly choice to make __ is how we fade a -- way. __

}

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

vox = \new Staff \with { midiInstrument = "voice oohs" midiMinimumVolume = #0.7 } {
  <<
    \new Voice = "vocalMelody" { \clef treble \global \vocalMelody }
    \new Lyrics \lyricsto "vocalMelody" {
      \allTheLyrics
    }
  >>
}

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 ef gf bf>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 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 e g bf df'>1-\markup { "7" \super { \flat "9" } }
  <c e g f'>1-\markup { "add11" }
}

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

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

  \repeat volta 2 {
    a1. a:/g fs:m7 d:m/f |
  }
  \alternative {
    { e1*2 | e | }
    { e1*2 | }
  }

%{
  \repeat volta 3 {
    e1:1.3.5.7.9- | q | q | q |
  }

  q1 | q | q2.. |
  c4.:1.5 d:1.5 | b:1.5 c:1.5 | a:1.5 b:1.5 | g:1.5 a:1.5 |
  f4:1.5 g:1.5 |
%}

  a1*4:1.5 |

  % verse 1
  a1*4 | a:/g | fs:m7 | d:m/f |
  e1 | q | q | f |

  % chorus
  a1*6 | c1 | d |
  a1*6 | f1 | g |

  a1*2:1.3.5.9 | q | f:1.3.5.7+11+ | d:1.3-.5.6.9 |

  a1*6 | e1*2 |
  a1*6:m | e1*2:1.4.5.7 |

  r1*4 |

  % verse 2
  a1*4:5 | g:/a | fs:m7/a | f1:maj7/a  | q | e:5/a | d:5/a |
  a1*4 | g:/a | fs:m7/a | d:m7/a |
  e1:sus4 | q | e | q |

  % chorus 2
  a1*6 | c1 | d |
  a1*6 | f1 | g |

  % interlude
  a1*4:m7 | f1*2:maj7 | g |
  a1*2:m7 | a:7 | c1*2:maj7 | d1 | f2 g |

  a1:1.4.5.7 | q2 g | a c | g f | g4. a8 a2 | d1:m | c2 g:/b | a:5 c4:/g g |
  a1:1.4.5.7 | q2 g:m6/bf | a d:m/f | a:/e f:maj7/e | g4.:/d a8:/cs q2 | f2:/c c4. d8:m | q1 | c2 g4.:/b a8 |
  a1 | q | q | q |

  % verse 3
  a1*4:5 | a:1.4.5.7 | a:6 | d:m9/a |
  e1*3:5 | f1:5 |

  % chorus 3
  a1*6 | c1 | d |
  a1*6 | f1 | g |

  a1:1.3.5.9 | q | d:m | d2:m/c d:m/b |

  \repeat volta 3 { e1*4:1.3.5.7.9- }
  e1.:5 f:5 g2 q |

  a1*6 | e1*2 |
  e1 | q | q | q |
  c2:sus4 c | g2:/b g |
  a1:5 |

}

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

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