\version "2.24.2"
\language deutsch

\include "gregorian.ly"
chant.meta = {
    \key f \major
    \time 1/4
    s4*3 \divisioMinima
    s4*3 \divisioMinima
    s4*10 \divisioMaxima
    s4*13 \divisioMaxima
    s4*7 \divisioMaxima
    s4*14 \divisioMaxima
    s4*10 \finalis
}
chant.cantus = \fixed c' {
    a4 a (g)
    a4 a (g)
    f4 g \repeat unfold 5 a a g a
    f g a \repeat unfold 3 a a g b a a g f
    f g a a a g a
    f g a a a a a g b a g a g f
    d f (g) g4 g a g (f) f (g) 
}
chant.verba = \lyricmode {
  Sanc -- tus,
  Sanc -- tus,
  Sanc -- tus Do -- mi -- nus De -- us Sa -- ba -- oth.
  Ple -- ni sunt cæ -- li et ter -- ra glo -- ri -- a tu -- a.
  Ho -- san -- na in ex -- cel -- sis.
  Be -- ne -- di -- ctus qui ve -- nit in no -- mi -- ne Do -- mi -- ni.
  Ho san -- na in ex -- cel -- sis.
}
chant.S = \fixed c' {
    a4 a (g)
    a4 a (g)
    f2 a2 s4*3 a2 a4
    f2 (s4 a2) s4 a2 b2( s4 g4 f4)
    f g( a2) s4 g4 a
    f2 a2 s4 a2 s4 b2 s4 f2 s4
    r f2 s2. e2 d
}
chant.A = \relative c' {
  f4 e2
  e4 d2
  d e s4*3 d2 e4
  d2( s4 d2) s4 e2 d2( s4 d2)
  d4 e2 s d4 e
  f2 d s4 e2 s4 d2 s4 d2 s4
  r b2 s2. c2 b
}
chant.T = \relative c'{
  c4 c2
  c4 b2
  a c s4*3 d2 c4
  a2( s4 a2) s4 c2 g s4 a2
  a4 c2 s d4 c
  a2( a) s4 c2 s4 g2 s4 a2 s4
  r f2 s2. g2 g
}
chant.B = \relative {
  f4 c2
  a4 b2
  d c s4*3 b2 a4
  d2 s4 f2 s4 c2 b s4 d2
  d4 c2 s b4 a
  d2 f s4 c2 s4 b2 s4 d2 s4
  r d2 s2. c2 g
}



VocalScore = \new GregorianTranscriptionStaffStaff <<
        \new GregorianTranscriptionVoice = "melody" <<\chant.meta \chant.cantus>>
        \new GregorianTranscriptionLyrics \lyricsto melody {\chant.verba}
  >>

FullScore =<<
{\VocalScore}
\new StaffGroup <<
  \new GregorianTranscriptionStaff <<
        \new GregorianTranscriptionVoice = "melody" <<\voiceOne \chant.meta \chant.S>>
        \new GregorianTranscriptionVoice <<\voiceTwo \chant.meta \chant.A>>
    >>
  \new GregorianTranscriptionStaff <<
      \clef bass
        \new GregorianTranscriptionVoice <<\voiceOne \chant.meta \chant.T>>
        \new GregorianTranscriptionVoice <<\voiceTwo \chant.meta \chant.B>>
    >>
>>
>>