music/hourglass.ly

\version "2.14.2"
\language "english"

\header {
  title = "The Hourglass"
  composer = "Tommy Montgomery"
  copyright = "(c) 2003 Tommy Montgomery"
}

global = {
  \key bf \mixolydian
  \numericTimeSignature
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \time 4/4
  \tempo 4 = 160
}

chorusR = \relative c' {
  \key bf \mixolydian <d bf'>4. <d f>8 ~ <d f> f bf c |
  <f, d'>4. <ef c'> <c af'>4 |
  <d bf'>4. <d f>8 ~ <d f> f bf c |
  d16 ef d c g'8 g, c ef \times 2/3 { d16 ef d } c8 |
  
  <d, bf'>4. <d f>8 ~ <d f> f bf c |
  <f, d'>4. <ef c'> <c af'>4 |
  <d bf'>4. <d f>8 ~ <d f> f bf c |
  <g g'>4. <g d'>8 ~ <g d'> g8 g16 c d ef |
  
  <af, f'>4. <af gf'> <af f'>4 |  
  <bf ef>4. <ef, bf'>8 ~ <ef bf'> ef ef16 af bf ef, |  
  <ef cf'>4. <ef bf'> <ef af>4 | 
  <ef af bf>4. <ef g bf>8 ~ <ef g bf>2 |
  
  <af, df f>4. << { af8 ~ af df f ef ~ } \\ { s8 s2 } >> |
  << { ef1 } \\ { r8 f,4 g bf4 ef8 } >> |
  <bf c f>2 f8 bf <c f> <a c f> ~ |
}

chorusL = \relative c {
  \key bf \mixolydian bf8 f' bf c ~ c4 f, |
  af,8 ef' af4 c8 bf4 ef,8 |
  bf8 f' bf c ~ c4 f, |
  c,4 g' c g |
  
  bf8 f' bf c ~ c4 f, |
  af,8 ef' af4 c8 bf4 ef,8 |
  bf8 f' bf c ~ c4 f, |
  c,4 g' c g |
  
  df8 af' df4 df'8 af4 df,8 |
  ef,8 bf' ef4 bf' ef,4 |
  af,8 ef' cf' ef, bf' ef, af ef |
  ef,4 bf' ef bf |
  
  df,4 af' df af |
  ef4 bf' ef bf |
  f,4 f' f, f' |
}

verseR = \relative c' {
  \key c \major <c e>4. <e c'>4 <c e> g8 |
  <b d>4. <d b'>4 <b d> g8 |
  <b e>4. <b gs'>4 <e b'> b8 |
  <c e c'>4. <b b'>4 <c c'>4. |
  
  <d g d'>4. <d b'>8 ~ <d b'> d e <a, f'> ~ |
  <a f'>4. a8 d a e' <a, f'> ~ |
  <a f'>4. a8 d e f <b, e> ~ |
  <b e>4. e,8 gs b e d |
  
  <c e>4. <e c'>4 <c e> g8 |
  <b d>4. <d b'>4 <b d> g8 |
  <b e>4. <b gs'>4 <e b'> b8 |
  <c e c'>4. <b b'>4 <c c'>4. |
  
  <d g d'>4. <d b'>8 ~ <d b'> d e <a, f'> ~ |
  <a f'>4. a8 d a e' <a, f'> ~ |
  <a f'>4. a8 d e f <b, e> ~ |
  <b e>4. d8 f af b d |
}

verseL = \relative c {
  \key c \major c,8 g' c4 c g |
  g8 d' g4 g d |
  gs,8 e' gs4 gs e |
  a,8 e' a4 e a8 e |
  
  g,8 d' g4 g d |
  f,8 c' f4 f c |
  d,8 a' d4 d a |
  e8 b' e4 e, d |
  
  c8 g' c4 c g |
  g8 d' g4 g d |
  gs,8 e' gs4 gs e |
  a,8 e' a4 e a8 e |
  
  g,8 d' g4 g d |
  f,8 c' f4 f c |
  d,8 a' d4 d a |
  e8 b' e4 af8 b d f |
}

bridgeR = \relative c' {
  \key ef \dorian <ef gf bf ef>4. <ef gf bf>4 <ef gf bf> ef8 |
  <f bf df f>4. <f bf df>4 <f bf df> f8 |
  <gf bf df gf>4. <f f'>4. <ef ef'>4 |
  <f af df f>4. <df f af df>4 <df f af df> df8 |
  
  <ef gf bf ef>4. <ef gf bf ef>4 <ef gf bf ef> ef8 |
  <c f af c>4. <bf bf'>4 <af af'>4. |
  <bf df gf bf>2 bf8 df <gf bf> <a, c a'> ~ |
  <a c a'>4. <a c f>4 <a c f>4. |
}

bridgeL = \relative c, {
  \key ef \dorian ef8 bf' ef4 ef bf |
  bf8 f' bf4 bf f |
  gf,8 df' gf4 gf8 df4 gf,8 |
  df8 af' df4 df af |
  
  ef8 bf' ef4 ef bf  |
  f8 c' f4 f c |
  gf4 df' gf df |
  f,8 c' f4 f c |
}

interludeOneR = \relative c {
  \key b \minor
  <fs b d>4. <b d fs>8 ~ <b d fs> <fs b d>4 fs8 |
  <a d fs>4. <a e'>8 ~ <a e'> <a d>4 a8 |
  <b cs e g>4\arpeggio b8 <cs fs> ~ <cs fs> <cs e>4 fs8 ~ |
  fs8 cs4 b8 ~ b as4. |
  
  <g b cs e>4.\arpeggio cs8 ~ cs <g b>4 <a cs>8 ~ |
  <a cs>8 fs4 <a cs>8 ~ <a cs> fs'4 d8 |
  <bf d bf'>4. <a d a'>8 ~ <a d a'>4 <g d' g> |
  a8 cs e a g cs e bf' |
  
  \key d \minor
  
  <d, f a>4. <a e'>8 ~ <a e'> <f a d>4 d8 |
  <f bf e>4. <f bf d>8 ~ <f bf d> <f bf>4. |
  <c c'>4 <d d'> <e e'> <g g'> |
  <e' g bf>4. <bf df g>8 ~ <bf df g>4 <g bf e> |
  
  <af c f>4. c,8 ~ c f g af |
  <df, f bf>4. <f bf df>8 ~ <f bf df> <df f bf>4 df8 |
  <c af' c>4. <c af'>8 ~ <c af'> <ef bf'> <c af' c>4 |
  <d? f d'?>4. <d b'>8 ~ <d b'> <f af> g4 |
}

interludeOneL = \relative c, {
  \key b \minor
  b8 fs' b4 fs b |
  a,8 fs' a4 fs a |
  e8 b' e4 b e |
  fs,4 cs' fs cs |
  
  e,8 b' e4 b e |
  d,8 a' d4 a d |
  g,8 d' g4 d8 g4 d8 |
  <a a'>4. <g g'>8 ~ <g g'> <f f'> <e e'>4 |
  
  \key d \minor
  
  d8 a' d4 a d |
  bf8 f' bf4 f bf |
  <c,, c'>4. <bf bf'>8 ~ <bf bf'>4 <a a'> |
  <g g'>8 e'' g4 e8 g4 e8 |
  
  f,8 c' f4 c f |
  bf,8 f' bf4 f bf |
  af,8 ef' af4 ef af |
  g,8 d' g4 d g |
}

pianoPart = \new PianoStaff \with {
  instrumentName = "Piano"
} <<
  \new Staff = "right" \with {
    midiInstrument = "acoustic grand"
  } {
    \global
    \clef treble
    
    \chorusR
    \relative c' { <a c f>2 <g b d g>\arpeggio }
    \verseR
    \bridgeR
    
    \chorusR
    \relative c' { <a c f>2 <as cs fs>2 }
    
    \interludeOneR
    
    \verseR
  }
  \new Staff = "left" \with {
    midiInstrument = "acoustic grand"
  } { 
    \global
    \clef bass
    
    \chorusL
    \relative c,, { f4 f' g, g' }
    \verseL
    \bridgeL
    
    \chorusL
    \relative c,, { f4 f' fs, fs' }
    
    \interludeOneL
    
    \verseL
  }
>>

stringMusic = \relative c' {
  \global
  \repeat unfold 55 r1
  r2 r4 d'8( cs) |
  
  \key b \minor
  <<
    { b4.  cs      d8( e) | fs4. e d4 | e4. d cs4 | b4.    cs8 as4 b8( cs) | } \\
    { fs,4. g8 ~ g2        | a2.    b4 | g1        | g4 fs2.               | }
  >>
  
  <<
    { d'4. cs b4 | a  fs g  a  | bf4. a g4 | f8  a  cs e  d  cs e   g   | } \\
    { e,4. g  e4 | d2    e4 fs | f4.  e d4 | <a e'>4.  <a d>    <a cs>4 | }
  >>
  
  \key d \minor
  <<
    { f''4. e f4 | g4. e       d4 | e f g c | bf2 \times 2/3 { e,,8 g bf } \times 2/3 { df  e  g } | } \\
    { d4.   a d4 | d4. bf8 g e a4 | c d e c | e2  \times 2/3 { e,8 g bf }              df8  ef    | }
  >>
  
  <<
    { af4 g8  f  g af c4  | bf df,8 ef f4 ef8 df | c4.  df ef4 | d?8 f g af ~ af4 g | } \\
    { f4  ef8 df c df ef4 | f  df4     bf f      | af4. bf c4  | f8  d c b    c4  b | }
  >>
}

strings = \new Staff \with {
  instrumentName = "Strings"
  midiInstrument = #"string ensemble 1"
} { \clef treble \relative c' \stringMusic  }

vocalMelody = \relative c' {
  \global
  \dynamicUp
  \repeat unfold 16 r1 
  \key c \major
  
  % verse 1
  \bar "||"
  c'4.^"Verse 1" g c4 | d4. g, d'4 | f4.( e) d4 | c2 r4 c |
  d4 d8 d ~ d4 d | c c8 c ~ c c c4 | d2. d4 | c4( b2) r4 |
  c4. g c4 | d4 g,8 g ~ g4 d'4 | f4 f8 e ~ e4 d4 | c2 r4 r8 c8 |
  d4 d8 d ~ d4 d | c1 | a1 | gs2. r4 |
  
  % bridge 1
  \key ef \dorian
  \repeat unfold 8 r1 
  
  % chorus
  \key bf \mixolydian
  bf4.^"Chorus" f bf4 | c4. af4. af4 | d4. c bf8( c) | c2. r4 |
  bf4 f8 f ~ f4 bf4 | c4 af8 af ~ af4. af8 | d4 c8 c8 ~ c4 bf8( c) | c2. r4 |
  df4. df df4 | bf2. r8 bf | cf4 cf8 bf ~ bf4 af | bf1 |
  af4 af8 af ~ af4 af | g2. r8 g | f4 f8 f ~ f4 f | f1 |
  
  \key b \minor
  \repeat unfold 8 r1
  \key d \minor
  \repeat unfold 8 r1
}

vocals = \lyricmode {
  % verse 1
  Lost in my lab -- 'rinth of time __ I wait. So
  long be -- fore I see the fruits of my blood and tears.
  Lone -- ly I sit and wait for life to show me joy. But
  long I stay and still I wait.
    
  % chorus
  Sit -- ting and wai -- ting as life pass -- es __ by.
  Ho -- ping for a mir -- a -- cle to ease the pain -- ful __ time.
  Once in a while, I won -- der what went wrong.
  What could I __ have done to live my life __ so long?
}

vox = \new Staff \with {
  instrumentName = "Vocals"
  midiInstrument = #"voice oohs"
} { \clef treble \vocalMelody }
\addlyrics { \vocals }

\score {
  <<
    \vox
    \pianoPart
    \strings
  >>
  \layout { }
  \midi {}
}