%
% sanctus
%

\version "2.8.5"
\include "english.ly"

#(set-global-staff-size 23)

\header {
  title = "Sanctus"
%  subtitle = "SATB Arrangement"
  subsubtitle = "Version 1.0 - November 21, 2006"
  copyright = "Public Domain - Copying Permitted"
  composer = "Gabriel Faure"
%  arranger = \markup { \tiny "Public Domain" }
%  tagline = \markup {
%    \center-align { "Public Domain -- Copying Permitted" }}
}

\layout {
%  raggedright = ##t
%  indent = 0
%  topmargin = 0
%  bottommargin = 0
%  headsep = 0
%  footsep = 0
%  betweensystemspace = 1\mm
%  betweensystempadding = #1
}

global = {
   \key ef \major
   \time 3/4
}

% SEGMENT A: everything up to letter A
snA = \relative c'' {
  R2. | R2. | bf2\pp^\markup { \italic \bold \tiny "unis." } c4~ |
  c bf( af) | bf~bf8 r8 r4 | R2. | bf2 c4~ | c bf af | bf~bf8 r8 r4 | R2. |
  bf4 c df~ | df bf( af) | bf2~\< bf4~\! | bf4\> r2\! |
  bf4( c) df~ | df bf af | bf~bf8 r8 r4 | R2. | \mark \default
}
anA = \relative c'' { s2.*18 }
tnA = \relative c' {
  R2. | R2. | R2. | R2. | bf2\pp^\markup { \italic \bold \tiny "unis." } c4~ |
  c bf( af) | bf~bf8 r8 r4 | R2. | bf2 c4~ | c bf af |
  bf~bf8 r8 r4 | R2. | bf4\< c d!~\! | d\> bf( af)\! | bf~bf8 r8 r4 | R2. |
  bf4( c) d!~ | d bf af
}
bnA = \relative c' { s2.*18 }
llA = \lyricmode {
  San -- ctus, __ San -- ctus, __
  San -- ctus __ Do -- mi -- nus, __
  Do -- mi -- nus, De -- us, __
  De -- us __ Sa -- ba -- oth,
}
blA = \lyricmode {
  San -- ctus, __ San -- ctus, __
  San -- ctus __ Do -- mi -- nus,
  Do -- mi -- nus __ De -- us, __
  De -- us __ Sa -- ba --
}

% SEGMENT B: letter A plus 6 measures
snB = \relative c'' {
  \override DynamicLineSpanner #'padding = #2.5
  \once \override TextScript #'extra-offset = #'( 1 . 0 )
  bf4\<(^\markup { \italic \bold \tiny "div." } c) d\! |
  f4.\> e8 d4\! | d2( c4) | d2.( |
  \once \override DynamicText #'extra-offset = #'( 2 . 2 )
  d2.\pp | d2.)
  \override DynamicLineSpanner #'padding = #1.5
}
anB = \relative c'' { bf4( c) bf | a4. g8 f4 | g2. | fs2.( | fs2. | fs2.)
}
tnB = \relative c' {
  bf4~bf8 r8 r4 | R2. | R2. | R2. | a2\mp b4~ | b a g
}
bnB = \relative c' { s2.*6 }
llB = \lyricmode {
  San -- ctus Do -- mi -- nus De -- us,
}
blB = \lyricmode {
  oth, De -- us, __ De -- us
}

% SEGMENT C: beautiful "sabaoth" modulation
snC = \relative c'' { R2. | R2. }
anC = \relative c'' { s2. | s2. }
tnC = \relative c' { a2~a8 a8 | bf2. }
bnC = \relative c' { s2.*2 }
llC = \lyricmode { }
blC = \lyricmode { Sa -- ba -- oth. }

% SEGMENT D: pleni
snD = \relative c'' { bf4\mp bf ef | ef d c | bf2. | bf2 b4\rest \mark \default }
anD = \relative c'' { bf4 bf c | c bf af | g2. | g2 s4 }
tnD = \relative c' { R2.*4 }
bnD = \relative c' { s2.*4 }
llD = \lyricmode { Ple -- ni sunt coe -- li et ter -- ra }
blD = \lyricmode { }

% SEGMENT E: gloria gloria tua
snE = \relative c'' { R2.*4 }
anE = \relative c' { s2.*4 }
tnE = \relative c' { bf4.\mf bf8 ef4 | ef d c | bf2. | bf2. }
bnE = \relative c' { s2.*4 }
llE = \lyricmode { }
blE = \lyricmode { Glo -- ri -- a glo -- ri -- a tu -- a }

% SEGMENT F: first hosanna
snF = \relative c'' { bf4\f c df | f4.( ef8) df4 | df2( c4) | bf2 r4 }
anF = \relative c' { f4 f f | bf2 f4 | af2. | af4( g) r }
tnF = \relative c' { R2.*4 }
bnF = \relative c' { s2.*4 }
llF = \lyricmode { Ho -- san -- na in ex -- cel -- sis, }
blF = \lyricmode { }

% SEGMENT G: second hosanna
snG = \relative c'' { bf4\< c d | ef( f) g | ef2( d4)\! \mark \default }
anG = \relative c'' { g4 g bf | bf2 c4 | af2. }
tnG = \relative c' {
  c4\f^\markup { \italic \bold \tiny "div." } bf\< af | g( bf) ef | bf2.\!
}
bnG = \relative c { e4 e f | g2 af4 | bf2. }
llG = \lyricmode { Ho -- san -- na in ex -- cel -- }
blG = \lyricmode { Ho -- san -- na in ex -- cel -- }

% SEGMENT H: letter C
snH = \relative c'' { ef2\ff r4 }
anH = \relative c'' { g2 r4 }
tnH = \relative c' { bf2\ff r4 }
bnH = \relative c { ef2 r4 }
llH = \lyricmode { sis. }
blH = \lyricmode { sis. }

% SEGMENT I: big hosanna
snI = \relative c'' {
  R2.*4 | r4 r4 r8 ef\ff^\markup { \italic \bold \tiny "sopranos" } |
  ef2 ef4 | af,( bf) c | ef2\> ef4 | af,( bf) c\! | ef2.\p
}
anI = \relative c'' { s2.*10 }
tnI = \relative c' {
  r2 r8 ef^\markup { \italic \bold \tiny "unis." } |
  ef2 ef4 | af,( bf) c | ef2 ef4 | af,( bf) c |
  ef2. | ef4~ ef8 r8 r4 | R2. | R2. | R2.
}
bnI = \relative c' { s2.*10 }
llI = \lyricmode {
  Ho -- san -- na in ex -- cel -- sis, in ex -- cel --
}
blI = \lyricmode {
  Ho -- san -- na in ex -- cel -- sis, in ex -- cel -- sis.
}

% SEGMENT J: last "sis"
snJ = \relative c'' {
  ef2.~\pp \mark \default | ef2. | R2.
}
anJ = \relative c' { s2.*3 }
tnJ = \relative c' { g2. | g2. | R2. }
bnJ = \relative c {
  \once \override TextScript #'extra-offset = #'( -3 . 0 )
  ef2.\pp^\markup { \italic \bold \tiny "div." }
  | ef2. | s2.
}
llJ = \lyricmode { sis. }
blJ = \lyricmode { San -- ctus. }

% SEGMENT K: second to last sanctus
snK = \relative c'' {
  \once \override TextScript #'extra-offset = #'( 1 . 0 )
  g2.~^\markup { \italic \bold \tiny "div." }
  | g2. | g2.~ | g2. | R2.
}
anK = \relative c' { ef2.~ | ef2. | ef2.~ | ef2. | s2. }
tnK = \relative c' {
  R2. | bf2. | bf2.~ | bf2. | R2.
}
bnK = \relative c { s2. | ef2. | ef2.~ | ef2. | s2. }
llK = \lyricmode { San -- ctus. }
blK = \lyricmode { San -- ctus. }

% SEGMENT L: ending
snL = \relative c' {
  \once \override TextScript #'extra-offset = #'( 1 . 0 )
  bf2.^\markup { \italic \bold \tiny "unis." }
  | bf2.\fermata \bar "|." }
anL = \relative c' { s2.*2 }
tnL = \relative c' { g2. | g2.\fermata \bar "|." }
bnL = \relative c { ef2. | ef2. }
llL = \lyricmode { San -- ctus. }
blL = \lyricmode { San -- ctus. }

%%%%%%%%%%%%%%%%%%%
% SCORE STRUCTURE %
%%%%%%%%%%%%%%%%%%%

<<
  \set Score.markFormatter = #format-mark-letters
  \set Score.markFormatter = #format-mark-box-letters
  \override Score.BarNumber #'padding = #2

  \new ChoirStaff <<
    \new Staff = "women" {
      \tempo 4=64
      \set Staff.instrument = \markup { \column { "Soprano " \line { "Alto" } } }
      \set Staff.instr = "SA "
      \global
      <<
	\new Voice = "soprano" {
	  \snA % SEGMENT A
	  \voiceOne % voices split
	  \snB % SEGMENT B
	  \oneVoice % voices join
	  \snC % SEGMENT C
	  \voiceOne % voices split
	  \snD % SEGMENT D
	  \oneVoice % join for rests
	  \snE % SEGMENT E
	  \voiceOne
	  \snF % SEGMENT F
	  \snG % SEGMENT G
	  \snH % SEGMENT H
	  \oneVoice % one voice, but it's the sopranos
	  \snI % SEGMENT I
	  \snJ % SEGMENT J
	  \voiceOne % voices split
	  \snK % SEGMENT K
	  \oneVoice % join for end
	  \snL % SEGMENT L
	}
	\new Voice = "alto" {
	  \anA % SEGMENT A
	  \voiceTwo % voices split
	  \anB % SEGMENT B
	  \oneVoice
	  \anC % SEGMENT C
	  \voiceTwo % voices split
	  \anD % SEGMENT D
	  \oneVoice % join for rests
	  \snE % SEGMENT E
	  \voiceTwo
	  \anF % SEGMENT F
	  \anG % SEGMENT G
	  \anH % SEGMENT H
	  \oneVoice % one voice, but it's the sopranos
	  \anI % SEGMENT I
	  \anJ % SEGMENT J
	  \voiceTwo % voices split
	  \anK % SEGMENT K
	  \oneVoice % join for end
	  \anL % SEGMENT L
	}
      >>
    }

    % Middle line context for lyrics
    \new Lyrics = "toplyrics" { s1 }
    \lyricsto "soprano" \context Lyrics = toplyrics {
      \llA
      \llB
      \llC
      \llD
      \llE
      \llF
      \llG
      \llH
      \llI
      \llJ
      \llK
      \llL
    }
    \new Staff = "men" {
      \set Staff.instrument = \markup { \column { "Tenor " \line { "Bass" } } }
      \set Staff.instr = "TB "
      \clef bass
      \global
      <<
	\context Voice = tenor {
	  \tnA % SEGMENT A
	  \tnB % SEGMENT B
	  \tnC % SEGMENT C
	  \tnD % SEGMENT D
	  \tnE % SEGMENT E
	  \tnF % SEGMENT F
	  \voiceOne % voices split
	  \tnG % SEGMENT G
	  \tnH % SEGMENT H
	  \oneVoice % voices join
	  \tnI % SEGMENT I
	  \voiceOne % voices split
	  \tnJ % SEGMENT J
	  \tnK % SEGMENT K
	  \tnL % SEGMENT L
	}
	\context Voice = bass {
	  \bnA % SEGMENT A
	  \bnB % SEGMENT B
	  \bnC % SEGMENT C
	  \bnD % SEGMENT D
	  \bnE % SEGMENT E
	  \bnF % SEGMENT F
	  \voiceTwo % voices split
	  \bnG % SEGMENT G
	  \bnH % SEGMENT H
	  \oneVoice % voices join
	  \bnI % SEGMENT I
	  \voiceTwo % voices split
	  \bnJ % SEGMENT J
	  \bnK % SEGMENT K
	  \bnL % SEGMENT L
	}
      >>
    }

    % Bottom line context for lyrics
    \new Lyrics = "botlyrics" { s1 }
    \lyricsto "tenor" \context Lyrics = botlyrics {
      \blA
      \blB
      \blC
      \blD
      \blE
      \blF
      \blG
      \blH
      \blI
      \blJ
      \blK
      \blL
    }
  >>
>>