\version "2.18.2"
\language "english"
\include "lib/guitar-bend.ily"

\header {
  title = "Blue Shift"
  composer = "Tommy Montgomery"
  copyright = "(c) 2009 Tommy Montgomery"
}

globalConfig = {
  \key b \mixolydian
  \time 4/4
  \numericTimeSignature
  \tempo 4 = 90
  \override TupletBracket #'bracket-visibility = #'if-no-beam
}

rhythmGuitar = \new Staff \with {
  instrumentName = "Rhythm"
} {
  \globalConfig
  \clef treble \relative c' {
    \repeat unfold 3 { b16 fs' a fs a( b) fs a fs a( b) fs c' fs, b( a) | }
    b,16 fs' a fs a( b) fs a \times 4/6 { c( b a) g( fs e) } \times 4/6 { ds( e fs) e( ds) c } |

    \repeat unfold 3 { b16 fs' a fs a( b) fs a fs a( b) fs c' fs, b( a) | }
    b,16 fs' a fs a( b) fs a \times 4/6 { c( b a) g( fs e) } \times 4/6 { ds( e fs) e( ds) c } |
  }
}

leadGuitarOne =  {
  \relative c'' {
    \set TabStaff.minimumFret = #8
    \set TabStaff.restrainOpenStrings = ##t
    \omit Voice.StringNumber

    r1 | r1 | r1 |
    r2 \times 4/6 { c16\2( b a) g\3( fs e) } \times 4/6 { ds( e fs) e( ds) c } |

    \repeat unfold 3 { b16 fs' a fs a( b) fs a fs a( b) fs c'\2 fs, b( a) | }
    b,16 fs' a fs a( b) fs a \times 4/6 { c\2( b a) g( fs e) } \times 4/6 { ds( e fs) e( ds) c } |

    fs4. b,8 ~ b2 \grace { b16 ds fs\2 b\1 } |
    c8( b\1) g d\3 ~ d4. d16\3( e) |
    \bendOn \bendGrace e( fs4.) \bendGrace e8( fs\harmonic) ~ fs8 \bendOff e d\3 e ~ |
    e cs4\3 a8\4 ~ a4 a16\4 cs\3 e cs\3 |

    ds8 b4 \hideNotes \grace { d\3\glissando } \unHideNotes fs8 ~ fs4. \times 2/3 { fs16( g\3 fs) } |
    e8 b4 \hideNotes \grace { d\3\glissando } \unHideNotes g8\3 ~ g4. g16\3( a\3) |
    \bendOn \bendGrace a8\3( b4.) \bendGrace a8\3( b8) ~ b8 a4\3 \bendOff gs?16\3( fs) |
    gs8\3 a\3 b\3 e\2 ~ e4 \afterGrace <b\3 e\2>\glissando { \hideNotes <cs, fs> } \unHideNotes |

    \hideNotes \grace { e\3\glissando } \unHideNotes b'4.\3
    e,8\4 ~ \afterGrace e2\4\glissando { \hideNotes b\4 } \unHideNotes |
    \hideNotes \grace { e\3\glissando } \unHideNotes b'8\3 a\3 gs\3 e\4 ~ e4. e16( fs) |
    g4\3 g8\3 fs ~ fs d4 e8\4 ~ |
    e2 e16\4 gs\3 b\2 gs\3 e' b gs'( e) |
    g( d) c\2 b c\2 d c\2 b a fs d fs a,8 a16 b\5 |
    c8\5 e\4 g\3 fs ~ fs ds4\4 b8\5 ~ | b1 ~ |
    b2 \times 4/6 { b16\5 ds\4 fs\3 b\2 ds\1 fs }
    \afterGrace b4\glissando^"+" { \hideNotes e } \unHideNotes |

    \repeat unfold 2 {
      <<
        {
          \repeat unfold 3 { ds,,16 b' cs b cs( ds) \deadNotesOn ds, ds \deadNotesOff }
          \times 4/6 { e' ds c b a g } \times 4/6 { fs g a g fs e }
        } \\
        {
          \repeat unfold 3 { b fs' a fs a( b) \deadNotesOn b, b \deadNotesOff }
          \times 4/6 { c'16 b a g fs e } \times 4/6 { ds e fs e ds c }
        }
      >>
    }

    b4. fs'8 ~ fs4. ds16( e) |
    fs8 \times 2/3 { ds16( e ds) } b8 \grace { \hideNotes e\2\glissando \unHideNotes } b' ~ b4. b16( cs\2) |
    \bendOn \bendGrace cs\2( d4) \bendOff \bendOn cs16\2( d) \bendOff cs8\2 ~ cs a4 b8 ~ |

    \set TabStaff.minimumFret = #14
    b2 \ottava #'1 \grace { fs16\4 a\3 d\2 fs\1 } a( fs) d\2 a\3 d\2 fs\1 a( fs) |

    e2\2 ~ e8 a16( gs) a( gs) e\2 b\3 |
    e2\2 ~ e8 a16( gs) a( gs) e\2 b\3 ~ |
    b4.\3 cs8\3 ~ cs4 d\3 | e4.\2 d8\3 ~ d4 cs\3 |
    r4 fs16\2( e\2) r8 r8 a16( gs) a( gs) e\2 b\3 |
    r4 fs'16\2\harmonic( e\2) r8 r8 a16\harmonic( gs) a\harmonic( gs) e\2 b\3 ~ |

    b4.\3 \ottava #'0 d8\3 ~ d4. cs16\3( b\3) | cs4.\3 e8\2 ~ e4. d16\2( cs\2) |

    \set TabStaff.minimumFret = #12
    ds?4.\2 b8\3 ~ b fs4\4 e8\4 ~ | e8 ds8\4 ~ ds16 e32\4( ds\4) b8\5 ~ b4. \deadNotesOn a16 a \deadNotesOff |

    \repeat unfold 2 { a\glissando( b) ds b ds( e) \deadNotesOn a, a \deadNotesOff }

    \set TabStaff.minimumFret = #16
    \ottava #'1 b''( fs\1) e fs\1 ds fs\1 cs\2 fs\1 b,\3 cs\2 b\3 a\3 b4 |

    \set TabStaff.minimumFret = #6
    \ottava #'0

    b,,16 ds\5 e ds fs e ds g fs e c' a b16 ds e ds |
    fs\3 e ds g\3 fs\3 e c'\2 a b2\2 |


    \set TabStaff.minimumFret = #0 \grace { \hideNotes d,,8\3\glissando \unHideNotes } \set TabStaff.minimumFret = #12
    d'8 g d b' ~ b2 |
    \set TabStaff.minimumFret = #0 \grace { \hideNotes e,,8\3\glissando \unHideNotes } \set TabStaff.minimumFret = #14
    e' a e cs' ~ cs 2 |

    \set TabStaff.minimumFret = #6
    b,,16 ds\5 e ds fs e ds g fs e c' a b16 ds e ds |
    fs\3 e ds g\3 fs\3 e c'\2 a b2\2 |

    \set TabStaff.minimumFret = #15
    \repeat unfold 2 { g,16 d' a' b cs( b) a d, }
    \set TabStaff.minimumFret = #17
    a16 e' b' cs d( cs) b e, a, e' b' cs d( cs) e\3( cs) |
    b1 ~ | b1 |

    \set TabStaff.minimumFret = #9
    fs,16 g cs d fs g b( d\2 b) g fs d cs g fs g |
    \set TabStaff.minimumFret = #12
    a4. e'8 ~ e a, a'4 |

    % last theme
    \set TabStaff.minimumFret = #0
    \grace { \hideNotes e,\3\glissando \unHideNotes }
    \set TabStaff.minimumFret = #7
    fs'4.\3 b,8 ~ b4. b16( cs) |
    \set TabStaff.minimumFret = #11
    d8( cs) a e ~ e4. \set TabStaff.minimumFret = #2 e16\3( fs) |
    g8( fs) d a ~ a \set TabStaff.minimumFret = #5 b cs b16 a |
    b2\1 \set TabStaff.minimumFret = #7 b16 cs ds fs b cs ds\4 fs\3 |

    \set TabStaff.minimumFret = #12
    g8 d4 b'8\3 ~ b4 a,16 b cs e |
    \set TabStaff.minimumFret = #14
    a8 e4 cs'8\3 ~ cs4 b,16 cs ds fs |
    \set TabStaff.minimumFret = #16
    b8 fs4 ds'8\3 ~ ds \bendOn \bendGrace ds\3( e4) \bendOff ds8\3 ~ |
    ds8 b4 fs8 ~ fs \set TabStaff.minimumFret = #13 e ds b |

    \set TabStaff.minimumFret = #12
    a16\glissando( b) ds b ds( e) b ds b ds( e) b fs' e ds b |
    a16\glissando( b) ds b ds( e)
    \set TabStaff.minimumFret = #13
    ds e b' ds, e b' ds, e b' ds, |

    \set TabStaff.minimumFret = #16
    b'4. a8 ~ a4 b | \bendOn \bendGrace cs( d4.) \bendOff cs8 ~ cs4. b16\glissando( a\3) |
    b8 b16 b e( ds) b b b e( ds) b ds4 |
  }
}

\score {
  <<
    \new Staff \with { \clef "G_8" instrumentName = "Lead I" } {
      \globalConfig
      \leadGuitarOne
    }
    \new TabStaff { \leadGuitarOne }
    \rhythmGuitar

  >>
  \layout {
    \context {
      \Staff \RemoveEmptyStaves
      \override Glissando.minimum-length = #4
      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      \override Glissando.thickness = #2
    }
  }
}