\version "2.10.0"
\header {
 title = "Devotion (8-8-8-8)"
 piece = "Isaac Watts, 1719 (based on Psalm 92)"
 composer = "Alexander Johnson, 1818"
}

#(set-default-paper-size "letter" 'landscape)

stanzaOne = \lyricmode {
  \set stanza = "1."

 Sweet is the day of sa- cred rest;
 No mor- tal cares shall seize my breast; -
 O may my heart in tune be found
 Like Da- vid's harp of sol- emn sound.

}

stanzaTwo = \lyricmode {
  \set stanza = "2."

 Then shall I share a glo- rious part
 When grace hath well re- fined my heart, -
 And fresh sup- plies of joy are shed, 
 Like ho- ly oil,
 to cheer my head.



}

stanzaThree = \lyricmode {
  \set stanza = "3."

 Then shall I see and hear and know 
 All I de- sired and wished be- low -
 And ev- 'ry pow'r find sweet em- ploy
 In that e- ter- nal world of joy.

}


stanzaFour = \lyricmode {



}







sopranoMusic = {
 \sacredHarpHeads
  \set shapeNoteStyles = ##(fa #f la fa #f la mi)
   \clef treble
   \key c \major
   \autoBeamOff

   \time 4/4
	\relative c'' {

c2 e4 e4 | d2 b2 | c4 a4 g2 |

g2 a4 b4 | a2 c2 | d4 d4 e2\( | e2\) 



g2 | e4 c4 b2 | c2 a4 a4 | g2 \fermata

e2 | a4 a4 c2 | b2 c4 d4 | e1

	


}

}

altoMusic = {
 \sacredHarpHeads
  \set shapeNoteStyles = ##(fa #f la fa #f la mi)
   \clef treble
   \key c \major
   \autoBeamOff

   \time 4/4
	\relative f' {

e2 e4 g4 | a2 g2 | e4 c8[\( d8]\) e2 |

e2 c4 c8[\( d8]\) | e2 f2 | g4 a4 g2\( | g2\)



e2 | a4 a4 g2 | e2 a4 a4 | g2 \fermata

g2 | g4 c,4 e2 | g2 a4 g4 | e1

}
}


tenorMusic = {
 \sacredHarpHeads
  \set shapeNoteStyles = ##(fa #f la fa #f la mi)
   \clef treble
   \key c \major
   \autoBeamOff
   \time 4/4
	\relative c'' {

g2 a4 c4 | a2 g2 | a4 c4 c2 |

g2 c4 d4 | e2 c2 | d4 a4 c2\( | c2\)

 \bar "|:"



c2 | e4 e4 d2 | a2 c4 a4 | g2 \fermata

g2 | a4 c4 a2 | g2 a4 c4 | c1

\break

 \bar ":|"

}
}

bassMusic = {
 \sacredHarpHeads
  \set shapeNoteStyles = ##(fa #f la fa #f la mi)
   \clef bass
   \key c \major
   \autoBeamOff
   \time 4/4
	\relative c {

c2 e4 c4 | d2 g2 | a4 g4 c,2 |

c2 e4 g4 | a2 f2 | g4 e8[\( d8]\) c2\( | c2\)



g'2 | a4 a4 g2 | c2 f,4 d4 | g2 \fermata

c,2 | d4 f4 e2 | g2 a4 g4 | c,1


}
}



\score
{
   <<
           \new Voice = "one" { \sopranoMusic }
           \new Lyrics \lyricsto "one" \stanzaOne
           \new Voice = "two" { \altoMusic }
           \new Lyrics \lyricsto "two" \stanzaTwo
       <<
       >>
           \new Voice = "three" { \tenorMusic }
           \new Lyrics \lyricsto "three" \stanzaThree
           \new  Voice = "four" { \bassMusic }
           \new Lyrics \lyricsto "four" \stanzaFour
   >>

   \layout {
       indent = 0 \cm
       firstpagenumber =  no
       papersize = a4
   }
}