﻿% “ = U+201C (left formatted quote)
% ” = U+201D (right formatted quote)
% — = U+2014 (em dash)
% – = U+2013 (en dash)
% © = U+00A9 (copyright symbol)
% ® = U+00AE (registered copyright symbol)
% ℗ = U+2117 (published; phonorecord sign)

\version "2.12.3"
#(ly:set-option 'point-and-click #f)

\paper
{
    indent = 0.0
    line-width = 185 \mm
    %between-system-space = 0.1 \mm
    %between-system-padding = #1
    %ragged-bottom = ##t
    %top-margin = 0.1 \mm
    %bottom-margin = 0.1 \mm
    %foot-separation = 0.1 \mm
    %head-separation = 0.1 \mm
    %before-title-space = 0.1 \mm
    %between-title-space = 0.1 \mm
    %after-title-space = 0.1 \mm
    %paper-height = 32 \cm
    %print-page-number = ##t
    %print-first-page-number = ##t
    %ragged-last-bottom
    %horizontal-shift
    %system-count
    %left-margin
    %paper-width
    %printallheaders
																%systemSeparatorMarkup
		#(set-paper-size "a4" 'landscape)
}

\header
{
    %dedication = ""
    title = "Joy to the World"
    %subtitle = ""
    %subsubtitle = ""
    poet = \markup{ {\italic Text: } "Isaac Watts, 1719"}
    composer = \markup{ {\italic Music: } "George Frideric Handel (1685-1759)"}
    %meter = ""
    %opus = ""
		arranger = \markup{ {\italic Arrangement: } "Lowell Mason, 1836"}
    %instrument = ""
    %piece = \markup{\null \null \null \null \null \null \null \null \null \null \null \null \null \italic Slowly \null \null \null \null \null \note #"4" #1.0 = 70-100}
    %breakbefore
    %copyright = ""
    tagline = ""
}


global =
{
    %\override Staff.TimeSignature #'style = #'()
    \time 2/4
    \key d \major
    \override Rest #'direction = #'0
    \override MultiMeasureRest #'staff-position = #0
}

sopWords = \lyricmode
{
    \override Score . LyricText #'font-size = #-1
    \override Score . LyricHyphen #'minimum-distance = #1
    \override Score . LyricSpace #'minimum-distance = #0.8
    % \override Score . LyricText #'font-name = #"Gentium"
    % \override Score . LyricText #'self-alignment-X = #-1
    \set stanza = "1. "
    %\set vocalName = "Men/Women/Unison/SATB"
    Joy to the world! The Lord is come.
    Let earth re -- ceive her King:
    Let ev -- ’ry heart pre -- pare Him room,
    And Heaven and na -- ture sing,
    And Heaven and na -- ture sing,
    And Heaven, and Heaven and na -- ture sing.
}
sopWordsTwo = \lyricmode
{
    \set stanza = "2. "
		Joy to the world! The Sav -- ior reigns.
		Let men their songs em -- ploy;
		While fields and floods; rocks, hills and plains
		Re -- peat the soun -- ding joy,
		Re -- peat the soun -- ding joy,
		Re -- peat, re -- peat the soun -- ding joy.
}
sopWordsThree = \lyricmode
{
    \set stanza = "3. "
    No more shall sin and sor -- row reign.
    Nor thorns in -- fest the ground;
    For He shall make the bless -- ing flow
    Far as the curse is found.
    Far as the curse is found,
    Far as, far as the curse is found.
}
sopWordsFour = \lyricmode
{
    \set stanza = "4. "
		He rules the world with truth and grace!
		And makes the na -- tions prove
		The glo -- ries of His right -- eous -- ness,
		And won -- ders of His love,
		And won -- ders of His love,
		And won -- ders, wo -- nders of His love!
}
sopWordsFive = \lyricmode
{
    \set stanza = "5. "
}
sopWordsSix = \lyricmode
{
    \set stanza = "6. "
}
sopWordsSeven = \lyricmode
{
    \set stanza = "7. "
}
altoWords = \lyricmode
{

}
tenorWords = \lyricmode
{

}
bassWords = \lyricmode
{
    \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1
    \set stanza = "1. "
    And Saints and an -- gels sing,
    And Saints and an -- gels sing,
}
bassWordsTwo = \lyricmode
{
    \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1
    \set stanza = "2. "
    Re -- peat the sound -- ing joy,
    Re -- peat the sound -- ing joy,
}
bassWordsThree = \lyricmode
{
    \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1
    \set stanza = "3. "
    Far as the curse was found.
    Far as the curse was found,
}
bassWordsFour = \lyricmode
{
    \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1 \skip 1
    \set stanza = "4. "
    And ev -- er wor -- ship God,
    And ev -- er wor -- ship God,
}

\score
{
    %\transpose es' d'
    <<
	\new Staff
	<<
	    %\set Score.midiInstrument = "Orchestral Strings"
	    %\set Score.midiInstrument = "Choir Aahs"
	    \new Voice = "sopranos"
	    {
		\voiceOne
		\global
		%\override Score.MetronomeMark #'transparent = ##t
		\override Score.MetronomeMark #'stencil = ##f
		
		%\override HorizontalBracket #'direction = #UP
		%\override HorizontalBracket #'bracket-flare = #'(0 . 0)
		%put \startGroup and \stopGroup after notes to create analysis brackets
		
		%\override TextSpanner #'dash-period = #-1
		%\override TextSpanner #'bound-details #'left #'text = \markup{ \concat{\draw-line #'(0 . -1.0) \draw-line #'(1.0 . 0) }}
		%\override TextSpanner #'bound-details #'right #'text = \markup{ \concat{ \draw-line #'(1.0 . 0) \draw-line #'(0 . -1.0) }}
		%put \stopTextSpan \startTextSpan after notes for hymn-style piano introduction brackets; also consider \mark \markup{} for measure markup
		
		\tempo 4 = 56
		d''4 cis''8. b'16 a'4. g'8 fis'4 e' d'4. a'8 b'4. b'8
		cis''4. cis''8 d''4. \bar "" \break d''8 d'' (cis'') b' (a') a'8. ([g'16 fis'8]) d'' d'' (cis'') b' (a') a'8. ([g'16 fis'8])
		fis'8 fis' fis' fis' fis'16 (g') a'4. \bar "" \break g'16 (fis') e'8 e' e' e'16 (fis')
		g'4. fis'16 (e') d'8 (d''4) b'8 a'8. ([g'16 fis'8]) g'8 fis'4 e' d'2
		\bar "|."
	    }

	    \new Voice = "altos"
	    {
		\voiceTwo
		fis'4 a'8. g'16 fis'4. e'8 d'4 cis'4 d'4. a'8 g'4. g'8
		e'4. g'8 fis'4. fis'8 fis' (a') g' (fis') fis'8. ([e'16 d'8]) fis'8 fis' (a') g' (fis') fis'8. ([e'16 d'8])
		d'8 d' d' d' d'16 (e') fis'4. e'16 (d') cis'8 cis' cis' cis'16 (d')
		e'4. d'16 (cis') d'8 (fis'4) g'8 fis'8. ([e'16 d'8]) e'8 d'4 cis' d'2
	    }

	    \new Lyrics = sopranos { s1 }
	    \new Lyrics = sopranosTwo { s1 }
	    \new Lyrics = sopranosThree { s1 }
	    \new Lyrics = sopranosFour { s1 }
	    %\new Lyrics = sopranosFive { s1 }
	    %\new Lyrics = sopranosSix { s1 }
	    %\new Lyrics = sopranosSeven { s1 }
	    %\new Lyrics = altos { s1 }
	    %\new Lyrics = tenors { s1 }
	>>


	\new Staff
	<<
	    \clef bass
	    \new Voice = "tenors"
	    {
		\voiceThree
		\global
		a4 a8. d'16 d'4. b8 a4 g fis4. d'8 d'4. d'8
		a4. a8 a4. r8 d2~ d~ d~ d4.
		r8 r4 r8 d8 d d d d a2~
		a2 (fis8 a4) d'8 d'4. b8 a4 a8 (g) fis2
	    }

	    \new Voice = "basses"
	    {
		\voiceFour
		d4 d8. d16 d4. g,8 a,4 a, d4. fis8 g4. g8
		a4. a8 d4. s8 d2~ d~ d~ d4.
		s8 s4 s8 d8 d d d d a4. a,8
		a,8 a, a, a, d4. d8 d4. g,8 a,4 a, d2
	    }
	    \new Lyrics = basses { s1 }
	    \new Lyrics = bassesTwo { s1 }
	    \new Lyrics = bassesThree { s1 }
	    \new Lyrics = bassesFour { s1 }
	>>
	\context Lyrics = sopranos \lyricsto sopranos \sopWords
	\context Lyrics = sopranosTwo \lyricsto sopranos \sopWordsTwo
	\context Lyrics = sopranosThree \lyricsto sopranos \sopWordsThree
	\context Lyrics = sopranosFour \lyricsto sopranos \sopWordsFour
	%\context Lyrics = sopranosFive \lyricsto sopranos \sopWordsFive
	%\context Lyrics = sopranosSix \lyricsto sopranos \sopWordsSix
	%\context Lyrics = sopranosSeven \lyricsto sopranos \sopWordsSeven
	%\context Lyrics = altos \lyricsto altos \altoWords
	%\context Lyrics = tenors \lyricsto tenors \tenorWords
	%\context Lyrics = basses \lyricsto basses \bassWords
	%\context Lyrics = bassesTwo \lyricsto basses \bassWordsTwo
	%\context Lyrics = bassesThree \lyricsto basses \bassWordsThree
	%\context Lyrics = bassesFour \lyricsto basses \bassWordsFour
    >>
	
    \midi { }
    \layout
    {	
	\context
	{
	    \Lyrics
	    \override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 0)
	}
	\context
	{
	    \Voice
	    \consists "Horizontal_bracket_engraver"
	}
    }
}

% \markup
% {
%     \column
%     {
% 	\line{\italic Text: Isaac Watts (1674–1748), 1719}
% 	\line{\italic Music: George Frideric Handel (1685–1759); arr. by Lowell Mason (1792–1872), 1836}
% 	%\line{\italic Arrangement: }
% 	%\line{\italic {Words and Music:} }
% 	\line{\italic {Tune Name:} ‘Antioch’}
% 	%\line{\italic {Poetic Meter:} }
%     }
% }