9 files changed, 412 insertions, 0 deletions
diff --git a/hr/stch/fertig/brevis_leavitt/agnus/a.midi b/hr/stch/fertig/brevis_leavitt/agnus/a.midi
new file mode 100644
index 0000000..728c9fd
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/agnus/a.midi
diff --git a/hr/stch/fertig/brevis_leavitt/agnus/agnus.ly b/hr/stch/fertig/brevis_leavitt/agnus/agnus.ly
new file mode 100644
index 0000000..3a1abb5
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/agnus/agnus.ly
@@ -0,0 +1,78 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Agnus dei"
+    composer = "John Leavitt"
+    %opus = "<+Werk+>"
+    tagline = ""
+  }
+
+  \paper {
+    line-width = \paper-width - 30
+    top-margin = 10
+    bottom-margin = 10
+    ragged-last-bottom = #'f
+  }
+
+  \layout {
+    indent = #0
+    \context {
+      \Staff
+      \RemoveEmptyStaves
+      \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3.5)
+      \override VerticalAxisGroup #'remove-first = ##t
+    }
+  }
+
+  #(set-global-staff-size 17)
+
+  sop = <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \generalPausen
+          \new Voice = "soprane" { \sopranMelodie }
+          \new Voice = "alti" { \altMelodie }
+          %\addlyrics { \sopranText }
+        >>
+
+  alt = <<
+          \new Voice = "alti" { \altMelodie }
+          %\addlyrics { \altText }
+        >>
+
+  ten = <<
+          \new Voice = "tenoere" { \tenorMelodie }
+          %\addlyrics { \tenorText }
+        >>
+
+  bas = <<
+          \new Voice = "baesse" { \bassMelodie }
+          \addlyrics { \bassText }
+        >>
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \new Staff = sopran \with {
+        fontSize = #-3
+        \override StaffSymbol #'staff-space = #(magstep -3)
+      }{ \global \sop }
+      %\new Staff = alt { \global \alt }
+      \new Staff = tenor \with {
+        fontSize = #-3
+        \override StaffSymbol #'staff-space = #(magstep -3)
+      }{ \global \ten }
+      \new Staff = bass { \global \bas }
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/stch/fertig/brevis_leavitt/agnus/b.midi b/hr/stch/fertig/brevis_leavitt/agnus/b.midi
new file mode 100644
index 0000000..cbcade5
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/agnus/b.midi
diff --git a/hr/stch/fertig/brevis_leavitt/agnus/dynArt.ly b/hr/stch/fertig/brevis_leavitt/agnus/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/agnus/dynArt.ly
@@ -0,0 +1,21 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/stch/fertig/brevis_leavitt/agnus/midi.lua b/hr/stch/fertig/brevis_leavitt/agnus/midi.lua
new file mode 100644
index 0000000..e22ba8e
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/agnus/midi.lua
@@ -0,0 +1,51 @@
+ -- some settings -- vim: ai sw=2 lbr nu et
+
+pre=[[
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.12"
+\include "stimmen.ly"
+
+  \score {
+    \unfoldRepeats
+]]
+
+post=[[
+    \midi {
+      \context{
+	\Score
+	tempoWholesPerMinute = #(ly:make-moment 120 4)
+      }
+    }
+  }
+]]
+
+voices={ "s", "a", "t", "b" }
+expand = { s="sopran", a="alt", t="tenor", b="bass" }
+map = { sopran="soprane", alt="alti", tenor="tenoere", bass="baesse" }
+
+function text(stimme)
+  return
+[[
+    \new Staff = ]]..stimme..[[ <<
+      %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+      \new Voice = "]]..map[stimme]..[[" { \global \]]..stimme..[[Melodie }
+    >>
+]]
+end
+
+function err() print("oops") os.exit() end
+
+which=which or "satb"
+if type(which)~="string" then err() end
+
+for _,v in pairs(voices) do
+  if string.find(which, v) then pre=pre..text(expand[v]) end
+end
+
+input=pre..post
+
+--os.execute(lilypond -...)
+io.stdout:write(input)
+os.exit()
+
diff --git a/hr/stch/fertig/brevis_leavitt/agnus/s.midi b/hr/stch/fertig/brevis_leavitt/agnus/s.midi
new file mode 100644
index 0000000..8e63d84
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/agnus/s.midi
diff --git a/hr/stch/fertig/brevis_leavitt/agnus/stimmen.ly b/hr/stch/fertig/brevis_leavitt/agnus/stimmen.ly
new file mode 100644
index 0000000..5540057
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/agnus/stimmen.ly
@@ -0,0 +1,226 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key e \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  generalPausen = {
+    s1*8 
+    \break
+    s1*8 
+    \break
+    R1*3 
+    s1*4 
+    \break
+    s1*4 
+    s1*4 
+    \break
+    s1*4 
+    s1*4 
+    \break
+    s1*5 
+    r1 
+    s1 
+    s1 
+  }
+  frauenEnde = \relative c'' {
+        g2( d2) 
+        e1 ~ 
+        e1 
+        s1\fermata 
+  }
+  sopPat = \relative c' {
+          r4 e4( gis4) b4 
+          c4.( g8) b2 
+          r4 e,4( gis4) b4 
+          c8( e8 d8 c8) b4. b8 
+          \voiceOne
+          d4 e8 d8 a4 fis8( gis8) 
+          a2 cis2 
+          c4 d8( c8) a4 e8( f8) 
+          g2 c4( b4) 
+          a2( e2) 
+          fis1 
+          g2( d2) 
+          e1 
+  }
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+        \oneVoice
+        R1 
+          R1*3 
+          \sopPat
+          s1*3 
+          \sopPat
+        %
+        r4 c4( e4) g4 
+        a4.( d,8) g2 
+        r4 g4( bes4) d4 
+        cis4.( a8) b4. b8 
+        d4 d8 cis8 a4 fis8( g8) 
+        a2 cis2 
+        c4 c8( b8) g4 e8( f8) 
+        g2 c4( b4) 
+        a2( e2) 
+        fis1 
+        \frauenEnde
+        gis1 
+        gis1\fermata 
+        \bar "|." 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+        s1*4 
+        s1*3 
+        %s2 s4. r8 
+        s1 
+        \voiceTwo
+	a'1( ~ 
+        a1 ~ 
+        a1 
+        g1) 
+        R1*4  
+        %
+        s1*3 
+          r4 e4( gis4) b4 
+          c4.( g8) b2 
+          r4 e,4( gis4) b4 
+          c8( e8 d8 c8) b4. r8 
+        fis2 fis2 
+        fis4 fis2. 
+        f2 f2 
+        e4 e2. 
+          a2( e2) 
+          fis1 
+          g2( d2) 
+          e1 
+        %
+        r4 c2 e4 
+        d2 d2 
+        r4 d4( g4) bes4 
+        a2 fis4. fis8 
+        g2 g2( 
+        fis4) fis4 fis4 fis4 
+        f2 f2 
+        r4 e8 e8 e4 e4 
+        e1 
+        fis4 a8 a8 a4 a4 
+        \frauenEnde
+        e1 
+        e1\fermata 
+      }
+    >>
+  }
+  
+  maennerI = \relative c' {
+        R1 
+        d4 d4 cis4 cis4 
+        c2( b2) 
+        gis1 
+  }
+  maennerII = \relative c {
+    r4 e4( e'4 d8 c8 
+    b2) b2 
+    c4( b8 a8) gis4. r8 
+    a2 a2 
+    a4 a2. 
+    a2 a2 
+    g4 g2. 
+    R1 
+    d'4 d4 cis4 cis4 
+    c2( b2) 
+    c1 
+  }
+  maennerEnde = \relative c' {
+    c2( d2) 
+    e1 ~ 
+    e1 
+    R1\fermata 
+  }
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+        R1*8 
+	d1( 
+        cis1 
+        c1 ~ 
+        c1) 
+        \maennerI
+        %
+        R1*4 
+        \maennerII
+        %
+        r4 c2 c4 
+        c2 b2 
+        r4 bes4( d4) f4 
+        e2 d4. d8 
+        b2 b2( 
+        cis4) cis4 cis4 cis4 
+        a2 a2 
+        r4 c8 c8 c4 c4 
+        d2( cis2) 
+        d4 a8 a8 a4 a4 
+        \maennerEnde
+        gis1 
+        gis1\fermata 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+        R1*8 
+	fis1( ~ 
+        fis1 
+        f1 
+        e1) 
+        \maennerI
+        %
+        R1*4 
+        \maennerII
+        %
+        r4 c'8( b8 a4) g4 
+        fis2 g2 
+        r4 g2 g4 
+        g2 b4. b8 
+        d4 d8 cis8 a4 fis8( gis8) 
+        a2 a2 
+        c4 c8( b8) g4 e8( f8) 
+        g2 g2 
+        a2( cis2) 
+        d1 
+        \maennerEnde
+        <b, e,>1 
+        q1\fermata 
+      }
+    >>
+  }
+
diff --git a/hr/stch/fertig/brevis_leavitt/agnus/t.midi b/hr/stch/fertig/brevis_leavitt/agnus/t.midi
new file mode 100644
index 0000000..0c870e3
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/agnus/t.midi
diff --git a/hr/stch/fertig/brevis_leavitt/agnus/texte.ly b/hr/stch/fertig/brevis_leavitt/agnus/texte.ly
new file mode 100644
index 0000000..cef06f7
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/agnus/texte.ly
@@ -0,0 +1,36 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+% Die Textaufteilungen
+
+  sopranText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+  }
+
+  altText = \lyrics {
+    %<+hier den Text für den Alt eintragen+>
+  }
+
+  tenorText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+    Oo
+    mi -- se -- re -- re no -- bis.
+    Ag -- nus De -- i
+    Ag -- nus De -- i
+    Ag -- nus De -- i
+    mi -- se -- re -- re no -- bis.
+    Ag -- nus De -- i
+    Ag -- nus De -- i
+    qui tol -- lis pec -- ca -- ta mun -- di
+    do -- na no -- bis pa -- cem
+    A -- men,
+    A -- men.
+    A -- men.
+    A -- men.
+  }
+