music/blue-shift.ly

\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 = #8

  }
}

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