\version "2.12.2"
\include "english.ly"
\include "gregorian.ly"

% XS: necessary, see below
\paper{
  print-all-headers = ##t
}

global = {
  \key f \major
  \time 7/4
  \override Staff.TimeSignature #'stencil = ##f
  \override Staff.BarLine #'stencil = ##f
}

move = { \bar "" \break }


%% XS: variables ending by "One" are related to SCORE NUMBER 1:
%% "Prokeimenon ~ Tone 1"
%% Variables ending by "Two" are related to SCORE NUMBER 2:
%% "Prokeimenon ~ Tone 2"
%% Variables ending by "Three" are related to SCORE NUMBER 3:
%% "Prokeimenon ~ Tone 3
%% Variables ending by "Four" are related to SCORE NUMBER 4:
%% "Prokeimenon ~ Tone 4"
%% Variables ending by "Five" are related to SCORE NUMBER 5:
%% "Prokeimenon ~ Tone 5"
%% Variables ending by "Six" are related to SCORE NUMBER 6:
%% "Prokeimenon ~ Tone 6"
%% Variables ending by "Seven" are related to SCORE NUMBER 7:
%% "Prokeimenon ~ Tone 7"
%% Variables ending by "Eight" are related to SCORE NUMBER 8:
%% "Prokeimenon ~ Tone 8"

sopranoOne = \relative c' {
  \global
  % Music follows here.
  f4 f f f f g a2 a4 a a2 \divisioMaxima
  a2 g4(f g2) f4(a) a g g8(f e4 f e) d2 c1 \finalis
}

sopranoTwo = \relative c' {
  \global
  a'4 a a a a a a bf1 \divisioMaxima
  bf4 bf bf bf a(g) a bf a2(g a4 g f2 g) f1 \finalis
}

sopranoThree = \relative c' {
  \global
  bf4 bf bf bf bf bf bf bf1 \divisioMaxima
  bf4(a) c2(bf4 a) bf4 c bf2 bf2 \times 2/3 {c4(bf a} bf2 a4 g 
  a2) g1 \finalis
}

altoOne = \relative c' {
  \global
  % Music follows here.
  f4 f f f f c f2 f4 f f2 \divisioMaxima
  f2 c1 f2 f4 c c2(f4 c4) d2 c1 \finalis
}

altoTwo = \relative c {
  \global
  f'4 f f f f f f c1 \divisioMaxima
  c4 c c c c2 c4 c f2(c f4 c d2 a2) d1 \finalis
}

altoThree = \relative c {
  \global
  c4 c c c c c c c1 \divisioMaxima
  c2 f2(c) c4 c c2 c c1.(c2) c1 \finalis
}

tenorOne = \relative c {
  \global
  % Music follows here.
  f4 f f f f g a2 a4 a a2 \divisioMaxima
  a2 g4(f g2) f4(a) a g g8(f e4 f e) d2 c1 \finalis
}

tenorTwo = \relative c {
  \global
  a'4 a a a a a a bf1 \divisioMaxima
  bf4 bf bf bf a(g) a bf a2(g a4 g f2 g) f1 \finalis
}

tenorThree = \relative c' {
  \global
  bf4 bf bf bf bf bf bf bf1 \divisioMaxima
  bf4(a) c2(bf4 a) bf4 c bf2 bf2 \times 2/3 {c4(bf a} bf2 a4 g 
  a2) g1 \finalis
}

bassOne = \relative c {
  \global
  % Music follows here.
  f4 f f f f c f2 f4 f f2 \divisioMaxima
  f2 c1 f2 f4 c c2(f4 c4) d2 c1 \finalis
}

bassTwo = \relative c {
  \global
  f4 f f f f f f c1 \divisioMaxima
  c4 c c c c2 c4 c f2(c f4 c d2 a2) d1 \finalis
}

bassThree = \relative c {
  \global
  c4 c c c c c c c1 \divisioMaxima
  c2 f2(c) c4 c c2 c c1.(c2) c1 \finalis

verseOne = \lyricmode {
  % Lyrics follow here.
  Let Thy mer -- cy be up -- on us, O Lord,
  as we __ have __ set our hope __ on Thee.
}

verseTwo = \lyricmode {
  My might and my song is the Lord,
  and He is be -- come __ my sal -- va -- tion.
}

verseThree = \lyricmode {
  Sing psalms un -- to our God, sing psalms;
  sing __ psalms __ un -- to our King, sing __ psalms.
}

% XS: see NR 2.1.5 for further details
psalmVerseOne = \markup \column {
  "Rejoice in the Lord,ye righteous;"
  "praise becometh the upright."
}

psalmVerseTwo = \markup \column {
  "The Lord hath sorely chastened me;"
  "but He hath not given me over unto death."
}

psalmVerseThree = \markup \column {
  "All ye nations, clap your hands;"
  "shout unto God with a joyful noise."
}

%% XS: SCORE NUMBER 1
%%
%% Prokeimenon ~ Tone 1
%%

\score {
  \new ChoirStaff <<
    \new Staff \with {
      midiInstrument = " string ensemble 1 "
      instrumentName = \markup \center-column { "S" "A" }
    } <<
      \new Voice = "soprano" { \voiceOne \sopranoOne }
      \new Voice = "alto" { \voiceTwo \altoOne }
    >>
    \new Lyrics \lyricsto "soprano" \verseOne
    \new Staff \with {
      midiInstrument = " string ensemble 1 "
      instrumentName = \markup \center-column { "T" "B" }
    } <<
      \clef bass
      \new Voice = "tenor" { \voiceOne \tenorOne }
      \new Voice = "bass" { \voiceTwo \bassOne }
    >>
  >>
  % XS: Prokeimenon title here (as subtitle)
  % NB: print-all-headers = ##t necessary to print subtitle, see NR 3.2.1
  \header {
    title = "Octoëchos ~ Hymns of the Resurrection"
    subtitle = "Prokeimenon ~ Tone 1"
    composer = "Divine Liturgy"
    poet = "Znamenny Chant"
  }
  \layout { ragged-last = ##f }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 120 4)
    }
  }
}

% XS: psalm verse one
\psalmVerseOne


%% XS: SCORE NUMBER 2
%%
%% Prokeimenon ~ Tone 2
%%

\score {
  \new ChoirStaff <<
    \new Staff \with {
      midiInstrument = " string ensemble 1 "
      instrumentName = \markup \center-column { "S" "A" }
    } <<
      \new Voice = "soprano" { \voiceOne \sopranoTwo }
      \new Voice = "alto" { \voiceTwo \altoTwo }
    >>
    \new Lyrics \lyricsto "soprano" \verseTwo
    \new Staff \with {
      midiInstrument = " string ensemble 1 "
      instrumentName = \markup \center-column { "T" "B" }
    } <<
      \clef bass
      \new Voice = "tenor" { \voiceOne \tenorTwo }
      \new Voice = "bass" { \voiceTwo \bassTwo }
    >>
  >>
  % XS: Prokeimenon title here (as subtitle)
  % NB: print-all-headers = ##t necessary to print subtitle, see NR 3.2.1
  \header {
    subtitle = "Prokeimenon ~ Tone 2"
  }
  \layout { ragged-last = ##f }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 120 4)
    }
  }
}

% XS: psalm verse two
\psalmVerseTwo

%% XS: SCORE NUMBER 3
%%
%% Prokeimenon ~ Tone 3
%%

\score {
  \new ChoirStaff <<
    \new Staff \with {
      midiInstrument = " string ensemble 1 "
      instrumentName = \markup \center-column { "S" "A" }
    } <<
      \new Voice = "soprano" { \voiceOne \sopranoThree }
      \new Voice = "alto" { \voiceTwo \altoThree }
    >>
    \new Lyrics \lyricsto "soprano" \verseThree
    \new Staff \with {
      midiInstrument = " string ensemble 1 "
      instrumentName = \markup \center-column { "T" "B" }
    } <<
      \clef bass
      \new Voice = "tenor" { \voiceOne \tenorThree }
      \new Voice = "bass" { \voiceTwo \bassThree }
    >>
  >>
  % XS: Prokeimenon title here (as subtitle)
  % NB: print-all-headers = ##t necessary to print subtitle, see NR 3.2.1
  \header {
    title = "Octoëchos ~ Hymns of the Resurrection"
    subtitle = "Prokeimenon ~ Tone 3"
    composer = "Divine Liturgy"
    poet = "Znamenny Chant"
  }
  \layout { ragged-last = ##f }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 120 4)
    }
  }
}

% XS: psalm verse three
\psalmVerseThree