verse and chorus

hourglass.ly

@@ -12,48 +12,118 @@ global = {
   \numericTimeSignature
   \override TupletBracket #'bracket-visibility = #'if-no-beam
   \time 4/4
+  \tempo 4 = 160
 }
 
-\parallelMusic #'(pianoRight pianoLeft) {
-  \global <d bf'>4. <d f>8 ~ <d f> f bf c |
-  \global bf8 f' bf c ~ c4 f, |
+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 |
-  af,8 ef' af4 c8 bf4 ef,8 |
   <d bf'>4. <d f>8 ~ <d f> f bf c |
-  bf8 f' bf c ~ c4 f, |
   d16 ef d c g'8 g, c ef \times 2/3 { d16 ef d } c8 |
-  c,4 g' c g |
   
   <d, bf'>4. <d f>8 ~ <d f> f bf c |
-  bf8 f' bf c ~ c4 f, |
   <f, d'>4. <ef c'> <c af'>4 |
-  af,8 ef' af4 c8 bf4 ef,8 |
   <d bf'>4. <d f>8 ~ <d f> f bf c |
-  bf8 f' bf c ~ c4 f, |
   <g g'>4. <g d'>8 ~ <g d'> g8 g16 c d ef |
-  c,4 g' c g |
   
-  <af, f'>4. <af gf'> <af f'>4 |
-  df8 af' df4 df'8 af4 df,8 |
-  <bf ef>4. <ef, bf'>8 ~ <ef bf'> ef ef16 af bf ef, |
-  ef,8 bf' ef4 bf' ef,4 |
-  <ef cf'>4. <ef bf'> <ef af>4 |
-  af,8 ef' cf' ef, bf' ef, af 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 |
-  ef,4 bf' ef bf |
   
   <af, df f>2. ~ <af df f>8 <bf ef g> ~ |
-  df,4 af' df af |
   <bf ef g>4 bf ef g |
-  ef4 bf' ef bf |
   <bf, c f>2 f8 bf <c f> <a c f> ~ |
-  f4 c' f c |
-  <a c f>2 <b d g> |
-  f,,4 f' g, g' |
   
-  \key c \major s1 |
-  \key c \major s1 |
-  s1 | s1 | s1 |s1 | s1 | s1 |
+}
+
+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 |
+  f4 c' f c |
+}
+
+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 |
 }
 
 pianoPart = \new PianoStaff \with {
@@ -61,10 +131,30 @@ pianoPart = \new PianoStaff \with {
 } <<
   \new Staff = "right" \with {
     midiInstrument = "acoustic grand"
-  } \relative c' \pianoRight
+  } {
+    \clef treble
+    
+    \chorusR
+    \relative c' { <a c f>2 <b d g> }
+    \verseR
+    \bridgeR
+    
+    \chorusR
+    \relative c' { <a c f>2 <as cs fs>2 }
+  }
   \new Staff = "left" \with {
     midiInstrument = "acoustic grand"
-  } { \clef bass \relative c \pianoLeft }
+  } { 
+    \clef bass
+    
+    \chorusL
+    \relative c, { f4 f' g, g' }
+    \verseL
+    \bridgeL
+    
+    \chorusL
+    \relative c, { f4 c' fs cs }
+  }
 >>
 
 vocalMelody = \relative c' {
@@ -73,12 +163,38 @@ vocalMelody = \relative c' {
   \repeat unfold 16 r1 
   \key c \major
   
-  c'4. g c4 | d4. b d4 | f4.( e) d4 | c2 r4 c |
+  % 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 |
+  
 }
 
 vocals = \lyricmode {
-    Lost4. in my4 lab-4. 'rinth of4 time2. __ I4 wait.2 
-    So4
+  % 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 {