music/amazing-grace.ly

\version "2.14.2"
\language "english"

\header {
  title = "Amazing Grace"
  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. |
}

dMajorScale = { cs d e fs g a b }

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 \change Staff = "left" d32 fs a \change Staff = "right" 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> \cadenzaOn s2 s16 s s \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 } \cadenzaOn \parenthesize a4. \teeny e16[ 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 |
  <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'> } |
  
  <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. } >> <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. } >> <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. |
}

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

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 b d4 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. |
}

\score {
  \new PianoStaff \with {
    instrumentName = "Piano"
  } <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
    } {
      \clef treble
      \global
      
      \introR
      \firstThemeR
      \firstInterludeR
      \secondThemeR
    }
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
    } { 
      \clef bass
      \global
      
      \introL
      \firstThemeL
      \firstInterludeL
      \secondThemeL
    }
  >>
  \layout { }
  \midi {}
}