perparations for rorate

sanctus_xviii/sanctus_xviii_vars.ly

@@ -0,0 +1,91 @@
+\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>>
+    >>
+>>
+>>