\version "2.19.3"
\language "deutsch"

#(set-global-staff-size 17)

%{ \satzspiegel definiert das Seiten-
   verhältnis des Satzspiegels 
   (Zeilenlänge:Satzspiegelhöhe).
   % topMarginFactor ist das Verhältnis
   oberer Rand:Papierhöhe.
   % Es wird so berechnet, dass:
   %%% die oberen Ecken des Satz-
   spiegels auf den Diagonalen 
   gedachter Doppelseiten
   %%% und die unteren Ecken auf 
   den Diagonalen der Einzelseite liegen.
   % Daraus folgt bei DIN-Papier-
   formaten, dass das Satzspiegelseiten-
   verhältnis Zeilenlänge:Satzspiegel-
   höhe größer als 1:1,414… (Wurzel
   aus 2) sein muss, und zwar je breiter
   die Seitenränder, desto mehr. %}
% Varianten: kleiner sind 5/8 und 3/5
satzspiegel = #'(2 . 3)
topMarginFactor = #( /
                     (- (cdr satzspiegel) 
                       (* (car satzspiegel) (sqrt 2)))
                     (- (* 4 (cdr satzspiegel)) 
                       (* 3 (car satzspiegel) (sqrt 2))) )

\paper  {
  #(set-paper-size  "a4")
  two-sided = ##f
  top-margin = #(*
                 paper-height
                 topMarginFactor)
  % In den folgenden Verhältnissen
  % steckt wohl die Qualität 
  % dieser Konstruktionsweise…
  bottom-margin = #(* top-margin 2)
  left-margin = #(* top-margin (sqrt 2))
  right-margin = #left-margin
  myStaffSize = #17
  system-count = 4
  page-count = 1
  indent = 0
}

editorsColor = #'grey40
edAcc = \once \override
Staff.Accidental.color = #(x11-color editorsColor)
edLyr =
#(define-music-function
  (parser location text)
  (ly:music?)
  #{
    \override LyricText.color = #(x11-color editorsColor)
    \override LyricExtender.color = #(x11-color editorsColor)
    \override LyricHyphen.color = #(x11-color editorsColor)
    \override LyricText.font-shape = #'italic
    $text
    \revert LyricText.color
    \revert LyricExtender.color
    \revert LyricHyphen.color
    \revert LyricText.font-shape
  #}
  )
global = 
#(define-music-function
  (parser location music)
  (ly:music?)
  #{
    \transpose f es {
      \relative {
        \key f \major
        \time 2/2
        \set Score.measureLength = #(ly:make-moment 2 1)
        $music
      }
    }
  #}
  )
maximaBar =
#(define-music-function
  (parser location music)
  (ly:music?)
  #{
    \set Score.measureLength = #(ly:make-moment 8 1)
    $music
    \set Score.measureLength = #(ly:make-moment 2 1)
  #}
  )
section = 
#(define-music-function
  (parser location type)
  (string?)
  #{  \once \override Staff.BarLine.transparent = ##f
      \context  Staff = "altus" {
        \once \override Staff.BarLine.transparent = ##f }
      \context  Staff = "tenor" {
        \once \override Staff.BarLine.transparent = ##f }
      \context  Staff = "bassus" {
        \once \override Staff.BarLine.transparent = ##f }
      \once \override StaffGroup.SpanBar.color = #black 
      \bar $type #}
  )

sopranoS = \global {
  a'1 g | r2
  % pleni
  c1 d2 e1 f1.( e4 d e2) d1
  c b2.( a4 a1 g2) | a1 r r2
  c1 d2 e1 f1.( e2 c d2. c4 c1 \edAcc h2) | c1 r
  r r2 f d e f1.( e4 d e d c b a b c1 b4 a g1) a | r r2
  c a b c1 a
  % hosanna
  r2 c a b c2.( b4 a g f1) g2 a1( b2 a1 g4 f a2) g |
  c2.( b4 a2) g2.( f4 f1) e2 \maximaBar f\maxima
  \section "|."
}
altoS = \global {
  f'1 r2
  g2 a1.( g4 f e2 g) f1 r2
  %pleni
  c1 d2 e f2.( e4 d1) c2
  d2.( e4 f2) e( a2. g8 f g1) a |
  %gloria
  r2 c a b c1.( b4 a g2 c,) d
  g1 e2 f g2.( f4 e d c b a g a2) g r1 r2
  g'1 e2 f( g c,) f1 e2 r
  % hosanna
  f d e g a2.( g4 f1 e2) f1.( c2 d1) a
  R\breve
  r2 f' d e f1.( e4 d e2) f2.( e4 c2) \[ d1( c) \] c\maxima
}
tenorS = \global {
  % dominus
  c'2 d e1 | f e2 d2.( c4 c1) \edAcc h2 c1
  a2 b c1( d2. e4 f2 e) r1 r2
  % pleni
  c1 d2 e1 f e2 c d1 c r2
  g' e f g2.( f4 e d c1 d2 e a,2. b4 c2 d c1 \edAcc h2) c\breve
  R r2
  c1 a2 b c2.( b4 a g \[ f1 g) \] f2
  % hosanna
  f' d e f1. e2 c( d1 c4 b a2) f
  r c' a b c2.( b4 a g f1) g2 a( b g1) f\maxima
}
bassS = \global {
  f1
  c'( f,2. g4 a2 b c c,) d1 c r r2
  % pleni
  f1 g2 a1 b a f \[ c'( f,) \] c r r2
  c' a b c( a) g1
  c a2 b c2.( b4 a g f1 e2 d1) c\breve r2
  c' a b c2.( b4 a g f2 g c, e f2. e4 d2) \[ c1( f) \] r
  R\breve
  f1 d2 e f4( e d c b2) c d1 c2
  c'2.( b4 a g f2) e d( b c1) f\maxima
}
sopranoVerseS = \lyricmode {
  ba -- oth.
  Ple -- ni sunt coe -- li, et ter -- ra
  glo -- ri -- a tu -- a,
  glo -- ri -- a tu -- a,
  glo -- ri -- a tu -- a.
  Ho -- san -- na in __ ex -- cel -- sis,
  in ex -- cel -- sis.
}
altoVerseS = \lyricmode {
  oth,
  Sa -- ba -- oth.
  Ple -- ni sunt coe -- li, et ter -- ra
  glo -- ri -- a tu -- a,
  glo -- ri -- a tu -- a,
  \edLyr { glo -- ri -- a tu -- a. }
  Ho -- san -- na in ex -- cel -- sis,
  Ho -- san -- na in __ ex -- cel -- sis.
}
tenorVerseS = \lyricmode {
  Do -- mi -- nus De -- us Sa -- ba -- oth,
  Sa -- ba -- oth. __
  Ple -- ni sunt coe -- li, et ter -- ra
  glo -- ri -- a tu -- a,
  glo -- ri -- a tu -- a.
  Ho -- san -- na in ex -- cel -- sis,
  \edLyr { ho -- san -- na in __ ex -- cel -- sis. }
}
bassVerseS = \lyricmode {
  oth,
  Sa -- ba -- oth.
  Ple -- ni sunt coe -- li, et ter -- ra
  glo -- ri -- a tu -- a,
  glo -- ri -- a tu -- a,
  glo -- ri -- a tu -- a. __
  \edLyr { Ho -- san -- na in __ ex -- cel -- sis,
           in __ ex -- cel -- sis. }
}

\score { % S
         \new StaffGroup <<
           \new Staff = "cantus" \sopranoS
           \addlyrics \sopranoVerseS
           \new Staff = "altus" \altoS
           \addlyrics \altoVerseS
           \new Staff = "tenor" { \clef "treble_8" \tenorS }
           \addlyrics \tenorVerseS
           \new Staff = "bassus" { \clef bass \bassS }
           \addlyrics \bassVerseS
         >>
         \layout { 
           \context { \Score
                      \override SpacingSpanner.shortest-duration-space = 1.2 }
           \context { \StaffGroup
                      \override SpanBar.color = #(x11-color editorsColor) }
           \context { \Staff
                      \override VerticalAxisGroup.nonstaff-unrelatedstaff-spacing
                      = #'((padding . 0.2) (stretchability . 0))
                      \override BarLine.transparent = ##t }
           \context { \Voice
                      \override LigatureBracket.padding = 1
                      \remove "Forbid_line_break_engraver"
                      \override Slur.stencil = ##f
                      \override NoteHead.style = #'baroque }
         }
}