\version "2.18.0"
\language "english"

\header {
  title = "Amazing Grace"
  subsubtitle = "For Dave and Avery Quatro"
  composer = "Traditional"
  arranger = "Tommy Montgomery"
  copyright = "(c) 2004 Tommy Montgomery"
}

global = {
  \key df \major
  \time 4/4
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \set Score.connectArpeggios = ##t
}

lhArpeggio = \relative c, {
  d8 a' d e fs a d a fs e d a
}
lhArpeggioShort = \relative c, {
  d8 a' d e fs a d4 a2 |
}

lhArpeggioShortest = \relative c, {
  d8 a' d e fs a d2. |
}

lhBrokenFifths = \relative c {
  g8 d' g ~ g g d' ~ d g d g,4. |
}

dMajorScale = { cs d e fs g a b }
gMajorScale = { d e fs g a b c }

introR = \relative c {
  \tempo "Rubato" 4 = 86
  \change Staff = "left" <af df f>4 \change Staff = "right" <af' df f>  <af' df f>2 |
  \change Staff = "left" \override Stem #'direction = #UP <bf,, ef gf>4 \revert Stem #'direction \change Staff = "right" <bf' ef gf> <bf' ef gf>2 |
  \change Staff = "left" \override Stem #'direction = #UP <f, af df>4 \revert Stem #'direction \change Staff = "right" <f' af df> <f' af df>2 |
  \times 2/3 { <gf,, bf df gf>4\arpeggio <f f'> <ef ef'> } \times 2/3 { <ef gf bf ef>\arpeggio <f f'> <gf gf'> } |

  <fs a d fs>2 d32 fs a d d fs a d \times 4/7 { d16 fs a \ottava #'1 d d fs a } |
  <d, d'>1\fermata \bar "||" |

  \time 12/8
  \key d \major
  \tempo "In time" 4. = 86

  \ottava #'0 <a, d a'>4. <a d g> <a d fs> <a d g> |
  <a d a'> <a d g> <a d fs> <a d g> |
  <bf d a'> <bf d g> <bf d f> <bf e> |
  <a f'> <a e'> <a d> <a cs> \noBreak \bar "" \cadenzaOn s2 s4 \cadenzaOff \bar "|" |

  \time 3/4
  \repeat unfold 4 r2.

  \time 4/4
  r16 e, fs a d e fs a d a fs e d a fs e |
  r f a bf d f a bf d bf a f d bf a f |
  r e fs a d e fs a d a fs e d a fs e |
  r e g bf cs e g bf cs e g bf cs8 a |
}

introL = \relative c,, {
  \override Stem #'direction = #DOWN <df df'>4 \revert Stem #'direction <df' df'> <df' df'>2 |
  \override Stem #'direction = #DOWN <ef,, ef'>4 \revert Stem #'direction <ef' ef'> <ef' ef'>2 |
  \override Stem #'direction = #DOWN <f,, f'>4 \revert Stem #'direction <f' f'> <f' f'>2 |
  <gf,, gf'>2 <ef ef'> |

  <d d'>1 ~ |
  <d d'>\fermata |

  \time 12/8
  \key d \major

  d''8 a' d ~ d e fs ~ fs e d ~ d a d, |
  c g' c ~ c d e ~ e d c ~ c g c, |
  bf f' bf ~ bf c d ~ d c bf ~ bf f bf, |
  a e' a ~ a bf cs ~ \times 3/5 { cs d e f g }
  \parenthesize a4. ~ \teeny a16[ e cs bf a e cs bf a g f e] \normalsize \cadenzaOff \bar "|" |

  \time 3/4
  \tempo 4 = 76
  d16 a' d e fs a d a fs e d a |
  d, bf' d e f a bf a f e d bf |
  d, a' d e fs a d a fs e d a |
  d, a' d cs e d cs bf a g f e |

  \time 4/4
  d a' d e fs a d a fs e d a d,8 a' |
  d,16 bf' d e f a bf a f e d bf d,8 bf' |
  d,16 a' d e fs a d a fs e d a d,8 a' |
  a,4 a' a, a' |
}

firstThemeR = \relative c'' {
  \time 6/4
  \set Score.tempoHideNote = ##t
  \tempo \markup {
    \concat {
      (
      \smaller \general-align #Y #DOWN \note #"8" #1
      " = "
      \smaller \general-align #Y #DOWN \note #"16" #1
      )
    }
  } 2. = 50

  <d d'>2. ~ q2 <fs fs'>8 <d d'> |
  <fs fs'>2. ~ q2 <e e'>4 |
  <d d'>2. ~ q2 <b b'>4 |
  <a a'>1. |
  r1. |

  <d fs a d>2.\arpeggio ~ q2 <fs fs'>8 <d d'> |
  <fs fs'>2. ~ q2 <e e'>4 |
  <a d e a>1.\arpeggio ~ |
  q2. r2 <fs fs'>4 |

  <a a'>2. ~ q4. <fs fs'>8 <a a'> <fs fs'> |
  <d d'>2. ~ q2 <a a'>4 |
  \override TupletNumber #'text = #tuplet-number::calc-fraction-text
  <b b'>2. ~ \times 3/4 { q4 <d d'> <d g b d> <b b'> } |
  <a c f a>2. ~ \times 3/4 { q4 <d d'> q <b b'> } |
  <a a'>2. ~ \times 3/4 { q4 q <b b'> <cs cs'> } |
  \revert TupletNumber #'text

  <d d'>2. ~ q2 <fs fs'>8 <d d'> |
  <fs fs'>2. ~ q2 <e e'>4 |
  <d d'>1. |
  <d d'>2. <cs cs'>4. <d d'>8 <e e'>4 |
  <d d'>1. |
  <d d'>2. <e e'>4 <d d'> <e e'> |
  <e e'>2. <fs fs'> |
  \grace { d,16[ e fs] } << { g8( fs e) e( fs g) } \\ { a,4 a8 a4 a8 } >> <a fs'>4. \times 6/7 { d16 e fs g a b c } |
}

firstThemeL = \relative c, {
  \lhArpeggio |
  \transpose d g \lhArpeggio |
  \modalTranspose d e \dMajorScale \lhArpeggio |
  \transpose d a \lhArpeggio |
  a'8 e' a b cs e a4 \times 2/3 { g fs e } |

  \lhArpeggio |
  \transpose d c \lhArpeggio |
  a,,8 d e a d e a e d a e d |
  \transpose d a \lhArpeggioShort |

  \lhArpeggio |
  \modalTranspose d b, \dMajorScale \lhArpeggioShort |
  \transpose d g \lhArpeggioShortest |
  \transpose d f \lhArpeggioShortest |
  \transpose d a \lhArpeggioShortest |

  \lhArpeggio |
  \modalTranspose d b, \dMajorScale \lhArpeggio |
  \transpose d g \lhArpeggio |
  \transpose d a \lhArpeggio |
  \modalTranspose d b, \dMajorScale \lhArpeggio |
  \transpose d c \lhArpeggio |
  \lhArpeggio |
  d,8 a' d e fs e d2. |
}

firstInterludeR = \relative c'' {
  \key g \major
  \time 15/8
  \tempo "A little faster" 4. = 112

  d4. d, d'4 d,8 << { d'4 c b } \\ { d8 d, c' d, b' d, } >> |
  c'4. c, c'4 c,8 << { c'4 b a } \\ { c8 c, b' c, a' c, } >> |
  b'4. b, b'4 b,8 << { b'4 a g } \\ { b8 b, a' b, g' b, } >> |
  \time 12/8 a'8 fs e ds e fs e fs g fs g a |

  d4. d, d'4 d,8 d' c16 d c b |
  c4. c, c'4 c,8 c' b16 c b a |
  b4. b, b'4 b,8 b' a16 b a g |
  a4. a, <d g> <a fs'> |
  \grace { d'16[ e fs] } << { g8 fs e e fs g } \\ { a,4 a8 a4 a8 } >> <a fs'>4. d, |
}

firstInterludeL = \relative c, {
  \key g \major
  g'8 d' g a4 g8 d g, d' g d g, d' g, d' |
  c,8 g' c e4 c8 g c, g' c g c, g' c, g' |
  e8 b' e fs4 e8 b e, b' e b e, b' e, b' |
  b,8 fs' b fs' g a c,, g' c d,? a' d? |

  g,8 d' g a g d g, d' g a g d |
  c, g' c e c g c, g' c e c g |
  e b' e fs e b e, b' e fs e b |
  d, a' d ~ d a d ~ d a d, ~ d4. |
  d'8 a' d e fs e d2. |
}

secondThemeR = \relative c'' {
  g4. \tiny <d b'> <b' g'> \normalsize \grace { g16[ a] } b8 a g |
  b4. \tiny <e, fs g> <e' fs g b> \normalsize \afterGrace a, { b16[ a] } |
  g4. \tiny d <b' g'> \normalsize \afterGrace e, { g16[ e] } |
  d4. \tiny <g e> <d' g e>4 <d, g e> c |
  <e fs>4. d <e' fs a>4 <e, fs a> \normalsize d |

  g4. \tiny <d b'> <b' g'> \normalsize \grace { g16[ a] } b8 a g |
  b4. \tiny <e, fs g> <e' fs g b> \normalsize a, |
  d4. \tiny a <a' d>4 <a, d> <g d'> |
  \times 3/5 { fs8 d fs a d } \times 3/5 { d fs a d d } d'4. \normalsize b,, |

  d \tiny b d4 \normalsize b8 \afterGrace d4. { b16[ d b] } |
  g4. \tiny <d e g> <d' e g> \normalsize d, |
  e \tiny <b e fs g> <b' e fs g>4 \normalsize g8 \afterGrace g4. { e16[ g e] } |
  d4. \tiny <d g> <d fs> \afterGrace g { e16[ fs] } |
  \normalsize <e fs g>4. \tiny b <b' e fs g> \normalsize \grace { g16[ a] } b8 a g |
  b4. \tiny <c e>8 b g <c' e> b g <c, e> b g |
  \normalsize <a d>4. \tiny d, <g d'> <fs d'> |

  \time 6/8
  \normalsize \times 6/7 { d16 e fs g a b c } \times 6/7 { d e fs g a b c } |
}

secondThemeL = \relative c {
  \lhBrokenFifths |
  \transpose g e \lhBrokenFifths |
  \lhBrokenFifths |
  c,8 g' c ~ c c g' ~ g c4 g c,8 |
  d,8 a' d ~ d d a' ~ a d4 a d,8 |

  \lhBrokenFifths |
  \transpose g e \lhBrokenFifths |
  c,8 g' c ~ c c g' ~ g c4 g c,8 |
  d,8 a' d ~ d d a' d a d,8 ~ d4. |

  \lhBrokenFifths |
  \transpose g c \lhBrokenFifths |
  \transpose g e \lhBrokenFifths |
  \transpose g d \lhBrokenFifths |
  \transpose g e \lhBrokenFifths |
  \transpose g c \lhBrokenFifths |
  \transpose g d \lhBrokenFifths |
  <d, d'>2. |
}

secondInterludeR = \relative c''' {
  \time 12/8

  d4. d, d'4 d,8 d' c16 d c b |
  c4. c, c'4 c,8 c' b16 c b a |
  b4. b, b'4 b,8 b' a16 b a g |
  a4. a, <d g> <d fs> |
  \grace { d16[ e fs] } << { g8 fs e e fs g } \\ { a,4 a8 a4 a8 } >> <a fs'>4. \times 6/7 { d16 e fs g a b c } |

  d4. d, d'4 d,8 d' c16 d c b |
  c4. \times 3/5 { c,8 e g c c } \times 3/5 { e g c g e } \times 3/5 { c c g e c } |
  b'4. b, \grace { b16[ e g] } << { b4 a g } \\ { b8 b, a' b, g' b, } >> |
  a'4. a, <d g> <d fs> |
  \time 6/8
  \grace { d'16[ e fs] } << { g8 fs e e fs g } \\ { a,4 a8 a4 a8 } >> |

  \time 4/4
  \tempo \markup {
    \concat {
      (
      \smaller \general-align #Y #DOWN \note #"4" #1
      " = "
      \smaller \general-align #Y #DOWN \note #"4." #1
      )
    }
  } 4 = 112
  fs'16 e d a fs e d a fs e d a \change Staff = "left" fs e d a ~ |
  a a d e fs a \change Staff = "right" d e fs a d e fs a d e |
  fs2 d |
}

secondInterludeL = \relative c {
  \repeat unfold 2 {
    \transpose d g \lhArpeggio |
    \transpose d c \lhArpeggio |
    \modalTranspose d e { d e fs g a b c } \lhArpeggio |
    \lhArpeggio |
  }
  \alternative {
    { d8 a' d e fs e d4. d, }
    { \clef treble d'8 a' d e fs e }
  }

  d2. \clef bass s4 |
  <d,,,, d'>1 ~ |
  q1 |
}

thirdThemeR = \relative c'''' {
  \repeat unfold 11 { g16 d c g }
  \times 4/6 { g' d c a d e }
  \repeat unfold 4 \times 4/6 { a e d a d e }

  \repeat unfold 7 { g16 d c g }
  \times 4/6 { g' d c a d e }
  \repeat unfold 8 \times 4/6 { a e d a d e }

  \repeat unfold 8 { g16 d c g }
  \repeat unfold 4 { b g fs e }
  a g fs e d e fs g a g fs e d'4\fermata |

  \repeat unfold 4 { b16 a g d }
  \time 3/4
  \repeat unfold 3 { b' g fs d }
  \time 4/4
  a' e d a a e d a a d e a a e d a |
}

thirdThemeL = \relative c {
  <g g'>2. <b b'>8 <g g'> |
  <b b'>2. <a a'>4 |
  <g g'>2. <e e'>4 |
  <d d'>2. q4 |

  <g g'>2. <b b'>8 <g g'> |
  <b b'>2. <a a'>4 |
  <d d'>2. <a a'>4 |
  <g g'> <fs fs'> <d d'> <b' b'> |

  <d d'>2 ~ q8 <b b'> <d d'> <b b'> |
  <g g'>2. <d d'>4 |
  <e e'>2 ~ q8 <g g'> q <e e'> |
  <d d'>2. ~ q8\fermata \times 2/3 { <d d'>16 <e e'> <fs fs'> } |

  <g g'>2. <b b'>8 <g g'> |
  <b b'>2. |
  <a a'>1 |
}

thirdInterludeR = \relative c'' {
  \time 12/8
  \tempo \markup {
    \concat {
      (
      \smaller \general-align #Y #DOWN \note #"4." #1
      " = "
      \smaller \general-align #Y #DOWN \note #"4" #1
      )
    }
  } 4. = 112
  g4. \tiny <d b'> <b' g'> \normalsize \grace { g16[ a] } b8 a g |
  b4. \tiny <e, fs g> <e' fs g b> \normalsize a, |
  a a, <d g>4 <d fs> g |

  <ef g>4. g, <g' ef' g>4 <a a'> <bf bf'> |
  <a d fs a>4. d, <a' d fs a>4 <g g'> <fs fs'> |
  <g c ef g>4. q <c c'>4 <d d'> <ef ef'> |
  <d fs a d>4. d, g fs |
  a e! g fs |

  \key d \major
  \time 4/4
  \tempo \markup {
    \concat {
      (
      \smaller \general-align #Y #DOWN \note #"4" #1
      " = "
      \smaller \general-align #Y #DOWN \note #"4." #1
      )
    }
  } 4 = 112
  \repeat unfold 12 { a16 fs e d }
  \repeat unfold 4 { b' fs e d }
  \repeat unfold 4 { cs' gs fs es }
  \repeat unfold 4 { d' a fs e }
  \repeat unfold 4 { e' cs b a }
  \repeat unfold 4 { es' d b gs }
  \repeat unfold 4 { fs' cs b a }
  \repeat unfold 3 { gs' ds cs bs }
  gs' ds cs8\mordent |
  <bs ds>1\fermata |
}

thirdInterludeL = \relative c, {
  \lhBrokenFifths |
  \transpose g e \lhBrokenFifths |
  d8 a' d ~ d d a' ~ a d4 a d,8 |

  ef,8 bf' ef ~ ef bf ef ef, bf' ef bf ef, bf' |
  d,8 a' d ~ d a d d, a' d a d, a' |
  c,8 g' c ~ c g c c, g' c g c, g' |
  d a' d ~ d a d ~ d a d ~ d a d |
  d, a' d ~ d a d ~ d a d ~ d a d |

  \key d \major
  \repeat unfold 4 { d,16 a' d e }
  \repeat unfold 4 { g, d' g a }
  \repeat unfold 4 { a, e' a b }
  \repeat unfold 4 { b, fs' b cs }
  \repeat unfold 4 { cs, gs' a cs }
  \repeat unfold 4 { d, g a d }
  \repeat unfold 4 { e, a b e }
  \repeat unfold 4 { es, gs b d }
  \repeat unfold 4 { fs, cs' e fs }
  \repeat unfold 4 { gs, ds' gs ds }
  <gs, ds' gs>1\fermata |
}

outroR = \relative c {
  \tempo "Rubato" 4 = 86
  \key df \major
  \change Staff = "left" <af df f>4 \change Staff = "right" <af' df f>  <af' df f>2 |
  \change Staff = "left" \override Stem #'direction = #UP <bf,, ef gf>4 \revert Stem #'direction \change Staff = "right" <bf' ef gf> <bf' ef gf>2 |
  \change Staff = "left" \override Stem #'direction = #UP <f, af df>4 \revert Stem #'direction \change Staff = "right" <f' af df> <f' af df>2 |
  \times 2/3 { <gf, bf df gf>4\arpeggio <f f'> <ef ef'> } \times 2/3 { <ef gf bf ef>\arpeggio <f f'> <gf gf'> } |

  <fs a d fs>2 d,32 fs a d d fs a d \times 4/7 { d16 fs a \ottava #'1 d d fs a } |
  <d, d'>1\fermata \bar "||" |

  \key c \major
  \time 6/4
  \ottava #'0
  r2 \times 2/3 { <c g'>8 d g, } \times 2/3 { <c, g'>[ d g,] } \times 2/3 { <c, g'>[ d g,] } \change Staff = "left" \times 2/3 { <c, g'>[ d g,] } |
  <bf ef>2 \change Staff = "right" \times 2/3 { <d''' g>8[ ef g,] } \times 2/3 { <d g>[ ef g,] } \times 2/3 { <d g>[ ef g,] } \change Staff = "left" \times 2/3 { <d g>[ ef g,] } |
  \time 4/4
  \override Stem #'direction = #UP <c ef g>2.  \revert Stem #'direction \change Staff = "right" r8 f'16 g |

  \times 2/3 { af8 g f } \times 2/3 { e f g } \times 2/3 { f e d } <c e>4 |
  <e' g c e>8 <c c'> <e g c e>4 <d g b d> <b, d g> |
  <e, g c>2 \ottava #'1 <c''' g' e'>2\arpeggio\fermata \bar "|." |
}

outroL = \relative c,, {
  \key df \major
  \override Stem #'direction = #DOWN <df df'>4 \revert Stem #'direction <df' df'> <df' df'>2 |
  \override Stem #'direction = #DOWN <ef,, ef'>4 \revert Stem #'direction <ef' ef'> <ef' ef'>2 |
  \override Stem #'direction = #DOWN <f,, f'>4 \revert Stem #'direction <f' f'> <f' f'>2 |
  <gf,, gf'>2 <ef ef'> |

  <d d'>1 ~ |
  <d d'>\fermata |

  \key c \major
  <g g'>1. |
  <ef ef'>1. |
  <a a'>1 |
  \times 2/3 { c'8 bf' af } \times 2/3 { c, af' g } \times 2/3 { bf, g' bf } <c, g'>4 |
  <c, g' c>2 <g g'>4. g'8 |
  <c, c'>2 c,\fermata |

}

\score {
  \new PianoStaff \with {
    instrumentName = "Piano"
  } <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
    } {
      \clef treble
      \global

      \introR
      \firstThemeR
      \firstInterludeR
      \secondThemeR
      \secondInterludeR
      \thirdThemeR
      \thirdInterludeR
      \outroR
    }
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
    } {
      \clef bass
      \global

      \introL
      \firstThemeL
      \firstInterludeL
      \secondThemeL
      \secondInterludeL
      \thirdThemeL
      \thirdInterludeL
      \outroL
    }
  >>
  \layout { }
  \midi {}
}