% “ = 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.2"
#(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
}

\header
{
    %dedication = ""
    title = "When I Survey the Wondrous Cross"
    %subtitle = ""
    %subsubtitle = ""
    % poet = \markup{ \italic Text: }
    % composer = \markup{ \italic Music: }
    %meter = ""
    %opus = ""
    %arranger = ""
    %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 4/4
    \key f \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"
    When I sur -- vey the won -- drous cross
    On which the Prince of glo -- ry died,
    My rich -- est gain I count but loss,
    And pour con -- tempt on all my pride.
}
sopWordsTwo = \lyricmode
{
    \set stanza = "2. "
    For -- bid it, Lord, that I should boast,
    Save in the death of Christ, my God;
    All the vain things that charm me most,
    I sac -- ri -- fice them to His blood.
}
sopWordsThree = \lyricmode
{
    \set stanza = "3. "
    See, from His head, His hands, His feet,
    Sor -- row and love flow min -- gled down!
    Did e'er such love and sor -- row meet,
    Or thorns com -- pose so rich a crown?
}
sopWordsFour = \lyricmode
{
    \set stanza = "4. "
    Were the whole realm of na -- ture mine,
    That were a pres -- ent far too small;
    Love so a -- maz -- ing, so di -- vine,
    De -- mands my soul, my life, my all.
    A -- MEN.
}
sopWordsFive = \lyricmode
{
    \set stanza = "5. "
}
sopWordsSix = \lyricmode
{
    \set stanza = "6. "
}
sopWordsSeven = \lyricmode
{
    \set stanza = "7. "
}
altoWords = \lyricmode
{

}
tenorWords = \lyricmode
{

}
bassWords = \lyricmode
{

}

\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 = 120
		f'2 f'4 g' a'2 g'4 (a') bes'2 a'4 (g') a'1 a'2 a'4 a' bes'2 a'4 (g') f'2 e'4 (f') g'1 \break
		f'2 f'4 g' a'2 g'4 (a') bes'2 a'4 (g') a'1 a'2 a'4 a' g'2 f' g' a'4 (g') f'1 \bar "||" f'2 f'2
		\bar "|."
	    }

	    \new Voice = "altos"
	    {
		\voiceTwo
		c'2 c'4 e' f'2 g'4 (fis') g'2 f'4 (e') f'1 f'2 f'4 f' f'2 f'4 (e') f'2 c' e'1
		c'2 c'4 e' f'2 g'4 (fis') g'2 f'4 (e') f'1 f'2 f'4 f' e'2 f' f' e' f'1 d'2 c'
	    }

	    \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 Lyrics = basses { s1 }
	>>


	\new Staff
	<<
	    \clef bass
	    \new Voice = "tenors"
	    {
		\voiceThree
		\global
		a2 a4 c' c'2 d' d' c' c'1 c'2 c'4 c' d'2 c' c' bes4 (a) c'1
		a2 a4 c' c'2 d' d' c' c'1 c'2 c'4 c' c' (bes) a2 d'2 c'4 (bes) a1 bes2 a
	    }

	    \new Voice = "basses"
	    {
		\voiceFour
		f2 f4 c f2 bes4 (a) g2 c f1 f2 f4 f f2 f4 (bes) a2 g4 (f) c1
		f2 f4 c f2 bes4 (a) g2 c f1 f2 f4 f c2 d bes, c <f f,>1 bes,2 <f f,>
	    }
	>>
	\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
    >>
	
    \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), 1707}
	\line{\italic Music: Gregorian chant; arr. by Lowell Mason (1792–1872), 1824}
	%\line{\italic Arrangement: }
	%\line{\italic {Words and Music:} }
	\line{\italic {Tune Name:} 'Hamburg'}
	\line{\italic {Poetic Meter:} L. M.}
	\line{\italic {Source: Elmhurst Hymnal,} 1921; no. 103, p. 88}
    }
}