Hauke eingefügt

9 files changed, 611 insertions, 0 deletions

diff --git a/hr/stch/fertig/brevis_leavitt/sanctus/a.midi b/hr/stch/fertig/brevis_leavitt/sanctus/a.midi
new file mode 100644
index 0000000..980fe48
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/sanctus/a.midi
diff --git a/hr/stch/fertig/brevis_leavitt/sanctus/b.midi b/hr/stch/fertig/brevis_leavitt/sanctus/b.midi
new file mode 100644
index 0000000..a0ab61b
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/sanctus/b.midi
diff --git a/hr/stch/fertig/brevis_leavitt/sanctus/dynArt.ly b/hr/stch/fertig/brevis_leavitt/sanctus/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/sanctus/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/sanctus/midi.lua b/hr/stch/fertig/brevis_leavitt/sanctus/midi.lua
new file mode 100644
index 0000000..e22ba8e
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/sanctus/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/sanctus/s.midi b/hr/stch/fertig/brevis_leavitt/sanctus/s.midi
new file mode 100644
index 0000000..4a1955f
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/sanctus/s.midi
diff --git a/hr/stch/fertig/brevis_leavitt/sanctus/sanctus.ly b/hr/stch/fertig/brevis_leavitt/sanctus/sanctus.ly
new file mode 100644
index 0000000..0c1a223
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/sanctus/sanctus.ly
@@ -0,0 +1,80 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Festival sanctus"
+    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 16)
+
+  sop = <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \generalPausen
+          \frauenPausen
+          \new Voice = "soprane" { \voiceOne \sopranMelodie }
+          \new Voice = "alti" { \voiceTwo \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 {} <<
+      \set Score.skipBars = ##t
+      \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/sanctus/stimmen.ly b/hr/stch/fertig/brevis_leavitt/sanctus/stimmen.ly
new file mode 100644
index 0000000..e1b1b74
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/sanctus/stimmen.ly
@@ -0,0 +1,405 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key a \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  generalPausen = {
+    r1 
+    s1 
+    s1*4 
+    \break
+    r1 
+    s1 
+    s1*4 
+    r1 
+    r1 
+    r1 
+    \break
+    s1*8 
+    \break
+    %
+    s1*4 
+    s2.*2 
+    s1*4 
+    \break
+    s1*3 
+    s1*3 
+    s1*10/8*4 
+    R1*3 
+    s1*8 
+    \break
+    s1*8 
+    \break
+    %
+    s1*4 
+    s2.*3 
+    s1 
+    s1*10/8*4 
+    %\time 4/4 
+    s2 r2 
+  }
+  frauenPausen = {
+    s1 
+    r1 
+    s1*4 
+    s1 
+    r1 
+    s1*4 
+    s1 
+    s1 
+    s1 
+    s1*8 
+    %
+    s1*4 
+    s2.*2 
+    s1*4 
+    R1*3 
+    s1*3 
+    s1*10/8*4 
+    s1*3 
+    s1*16 
+    %
+    r1 s1 r1 s1 
+    s2.*3 
+    s1 
+    s1*10/8*4 
+    s1 
+  }
+  frauenI = \relative c'' {
+    a8( b8 cis8) d8 ~ d8 cis4 b8 
+    d4 cis4 b4 a4 
+    a8( b8 cis8) d8 ~ d8 d8 cis8 b8 
+  }
+  maennerI = \relative c' {
+    a4. a8 ~ a4 a4 
+    a4. a8 ~ a4 a4 
+    a4. a8 ~ a8 a8 a8 a8 
+  }
+  frauenII = \relative c' {
+    fis8( gis8) a8 e8 ~ e8 a4 d8( ~ 
+    d8 cis8) b8 a8 ~ a8 e4. 
+    fis4. e8 ~ e4 cis4 ~ 
+    cis2. a'4 
+  }
+  maennerII = \relative c' {
+    d4 d8 cis8 ~ cis8 cis4 a8 ~ 
+    a4 b8 cis8 ~ cis8 cis4. 
+    d4. b8 ~ b4 a4 ~ 
+    a2. 
+  }
+  frauenIII = \relative c' {
+    d8( e8 fis8) g8 ~ g8 fis4 e8 
+    g4 fis4 e4 d4 
+    d8( e8 fis8) g8 ~ g8 g8 fis8 e8 
+  }
+  maennerIII = \relative c {
+    fis8( g8 a8) b8 ~ b8 a4 g8 
+    b4 a4 g4 fis4 
+    fis8( g8 a8) b8 ~ b8 b8 a8 g8 
+  }
+  commonIV = \relative c' {
+    a8( b8 cis8) d8 ~ d8 cis4 b8 
+    d4 cis4 b4 a4 
+    a8( b8 cis8) d8 ~ d8 d8 cis8 b8 
+  }
+  oberIV = \relative c' {
+    b4. b8 ~ b4 b4 
+    b4. b8 ~ b4 b4 
+    b4. b8 ~ b8 b8 b8 b8 
+    b4 b2. 
+    \commonIV
+    e4 e2. 
+  }
+  unterIV = \relative c' {
+    e8( fis8 gis8) a8 ~ a8 gis4 fis8 
+    a4 gis4 fis4 e4 
+    e8( fis8 gis8) a8 ~ a8 a8 gis8 fis8 
+    b4 b2. 
+    \transpose c c' \commonIV
+    a4 a2. 
+    a4. a8 ~ a4 a4 
+    a4. a8 ~ a4 a4 
+    a4. a8 ~ a8 a8 a8 a8 
+  }
+  frauenV = \relative c' {
+    b8 cis8 d8 cis8( d8) e8 
+    dis8 e8 fis8 eis8( fis8) gis8 
+    fis8 gis8 a8 gis8( a8) b8 
+    \time 4/4 
+    a8. a16 a2 r4 
+  }
+  oberVI = \relative c' {
+    R1*10/8 
+    d8 cis8 a8 c8 b8 g8 a4 a4 
+    a4. b4. c2 
+    d4. e4. 
+  }
+  unterVI = \relative c' {
+    a8 gis8 e8 g8 fis8 d8 e4 e4 
+    d8 cis8 a8 c8 b8 g8 a4 a4 
+    a'8 gis8 e8 g8( fis8) d8 e4 e4 
+    d'8 cis8 a8 c8( b8) g8 
+  }
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+        s1*2 
+	d'4 cis2 \times 2/3 { b8 a8 b8 } 
+	d4 cis2 \times 2/3 { b8 a8 b8 } 
+        d4 cis2( d4) 
+        e8. e16 e2. 
+        s1*2 
+	d4 cis2 \times 2/3 { b8 a8 b8 } 
+	d4 cis2 \times 2/3 { b8 a8 b8 } 
+        d4 cis2( d4) 
+        e8. e16 e2. 
+        s1 
+        \repeat volta 2 {
+          s1*2 
+        }
+        \frauenI
+        e4 e2. 
+        \frauenI
+        e4 e2. 
+        \bar "||" 
+        \mark \markup { \smaller \musicglyph #"scripts.segno" }
+        \frauenII
+        \time 6/8 
+        a,8( gis8) fis8 e4. 
+        d'8( cis8) b8 a4. 
+        \time 4/4 
+        b4 b2. 
+        b4 b2. 
+        a4 a2. ~ 
+        a1 
+        \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
+        \mark \markup { \smaller \musicglyph #"scripts.coda" } 
+        s1*3 
+        cis4. d8 ~ d4 b4 ~ 
+        b8 cis4. a4. b8 ~ 
+        b4 \times 2/3 { b8 a8 b8 } cis4 cis4 
+        \time 10/8 
+        R1*10/8 
+        d8 cis8 a8 c8 b8 g8 a4 a4 
+        a4. b4. c2 
+        d4. e4. f4( g4) 
+        \time 4/4 
+        s1*3 
+        \frauenIII
+        a,4 a2. 
+        \transpose c c' \oberIV
+        a8( b8 cis8) d8 ~ d8 cis4 b8 
+        d4 cis4 b4 a4 
+        a8( b8 cis8) d8 ~ d8 d8 cis8 b8 
+        e4^\markup { "D.S. al Coda" } e2. 
+        \bar "||"
+        \mark \markup { \smaller \musicglyph #"scripts.coda" } 
+        s1 
+        d4 cis2. 
+        s1 
+        cis4 b2. 
+        \time 6/8 
+        \frauenV
+        \time 10/8 
+        \transpose d d' \oberVI f'4( g4) 
+        a4 a4 s2 
+        \bar "|." 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+        s1*2 
+        b'4 a2 \times 2/3 { a8 g8 a8 } 
+        b4 a2 \times 2/3 { a8 g8 a8 } 
+        b4 a2( b4) 
+        a8. a16 a2. 
+        s1*2 
+        b4 a2 \times 2/3 { a8 g8 a8 } 
+        b4 a2 \times 2/3 { a8 g8 a8 } 
+        b4 a2( b4) 
+        g8. g16 g2. 
+        s1 
+        \repeat volta 2 {
+          s1*2 
+        }
+        \frauenI
+        a4 a2. 
+        cis,8( d8 e8) fis8 ~ fis8 e4 d8 
+        fis4 e4 d4 cis4 
+        cis8( d8 e8) fis8 ~ fis8 fis8 e8 d8 
+	g4 g2. 
+        \frauenII
+        a8( gis8) fis8 e4.( 
+        g4.) a8 g8 fis8 
+        g4 g2. 
+        g4 g2. 
+        a4 a2. ~ 
+        a1 
+        s1*3 
+        a4. a8 ~ a4 g4 ~ 
+        g8 a4. f4. g8 ~ 
+        g4 \times 2/3 { g8 f8 g8 } a4 a4 
+        a8 gis8 e8 g8 fis8 d8 e4 e4 
+        d8 cis8 a8 c8 b8 g8 a4 a4 
+        a'8 gis8 e8 g8 fis8 d8 e4 e4 
+        d'8 cis8 a8 c8 b8 g8 a4( b4) 
+        s1*3 
+        \frauenIII
+        d,4 d2. 
+        \unterIV
+        g4 g2. 
+        s1 
+        b4 a2. 
+        s1 
+        a4 g2. 
+        \frauenV
+        \transpose a a' \unterVI a4( <b d>4) 
+        <a e'>4 q4 s2 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+        R1 
+	r2 fis4 e4 ~ 
+        e2. \times 2/3 { e8 d8 e8 } 
+        fis4 e2 \times 2/3 { e8 d8 e8 } 
+        fis4 e2( fis4) 
+        cis8. cis16 cis2. 
+        R1 
+	r2 fis4 e4 ~ 
+        e2. \times 2/3 { e8 d8 e8 } 
+        fis4 e2 \times 2/3 { e8 d8 e8 } 
+        fis4 e2( fis4) 
+        e8. e16 e2. 
+        R1 
+        \repeat volta 2 {
+          R1*2 
+        }
+        R1*4 
+        \maennerI
+        e4 e2. 
+        \maennerII a,4 
+        fis'8 e8 d8 cis4.( 
+        d4.) fis8 e8 d8 
+        d4 d2. 
+        e4 e2. 
+        a,4 a2. ~ 
+        a1 
+        cis4. d8 ~ d4 b4 ~ 
+        b8 cis4. a4. b8 ~ 
+        b4 \times 2/3 { b8 a8 b8 } cis4 cis4 
+        e4. fis8 ~ fis4 d4 ~ 
+        d8 e4. c4. d8 ~ 
+        d4 \times 2/3 { d8 cis8 d8 } e4 e4 
+        R1*10/8 
+        d8 cis8 a8 c8 b8 g8 a4 a4 
+        a4. b4. c2 
+        d4. e4. f4( d4) 
+        R1*3 
+        \maennerIII
+        d4 d2. 
+        \oberIV
+        cis8( d8 e8) fis8 ~ fis8 e4 d8 
+        fis4 e4 d4 cis4 
+        cis8( d8 e8) fis8 ~ fis8 fis8 e8 d8 
+        e4 e2. 
+        r2 fis4 e4 ~ 
+        e1 
+        r2 e4 d4 ~ 
+        d1 
+        R1*6/8 
+        b8 cis8 dis8 cis8( dis8) eis8 
+        fis4. e4. 
+        e2. r4 
+        \oberVI f4( d4) 
+        e4 e4 r2 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+        R1 
+	b'4 a2. ~ 
+        a2. \times 2/3 { a8 a8 a8 } 
+        a4 a2 \times 2/3 { a8 a8 a8 } 
+        a4 a2. 
+        a8. a16 a2. 
+        R1 
+	b4 a2. ~ 
+        a2. \times 2/3 { a8 a8 a8 } 
+        a4 a2 \times 2/3 { a8 a8 a8 } 
+        a4 a2. 
+        c8. c16 c2. 
+        R1 
+        \repeat volta 2 {
+          R1*2 
+        }
+        R1*4 
+        \maennerI
+        c4 c2. 
+        \maennerII r4 
+        r4. cis8 b8 a8 
+        b8 a8 g8 d4. 
+        g4 g2. 
+        e4 e2. 
+        a4 a2. ~ 
+        a1 
+        a4. fis8 ~ fis4 g4 ~ 
+        g8 e4. f4. d8 ~ 
+        d4 \times 2/3 { g8 f8 g8 } a4 a4 
+        a4. a8 ~ a4 a4 ~ 
+        a8 a4. a4. a8 ~ 
+        a4 \times 2/3 { a8 a8 a8 } a4 a4 
+        a8 gis8 e8 g8 fis8 d8 e4 e4 
+        d8 cis8 a8 c8 b8 g8 a4 a4 
+        a'8 gis8 e8 g8 fis8 d8 e4 e4 
+        d'8 cis8 a8 c8 b8 g8 a4( b4) 
+        R1*3 
+        \maennerIII
+        d,4 d2. 
+        \transpose c c, \unterIV
+        c'4 c2. 
+        b4 a2. ~ 
+        a1 
+        a4 g2. ~ 
+        g1 
+        R1*6/8*2 
+        a8 b8 cis8 b8( cis8) d8 
+        cis8. cis16 cis2 r4 
+        \unterVI a4( b4) 
+        a4 a4 r2 
+      }
+    >>
+  }
+
diff --git a/hr/stch/fertig/brevis_leavitt/sanctus/t.midi b/hr/stch/fertig/brevis_leavitt/sanctus/t.midi
new file mode 100644
index 0000000..14cc685
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/sanctus/t.midi
diff --git a/hr/stch/fertig/brevis_leavitt/sanctus/texte.ly b/hr/stch/fertig/brevis_leavitt/sanctus/texte.ly
new file mode 100644
index 0000000..720c462
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/sanctus/texte.ly
@@ -0,0 +1,54 @@
+%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+>
+  }
+
+  pleni = \lyricmode {
+    Ple -- ni sunt cœ -- li et ter -- ra
+    Glo -- ri -- a Glo -- ri -- a tu -- a
+  }
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+    \repeat unfold 2 {
+      Sanc -- tus
+      Do -- mi -- nus De -- us
+      Do -- mi -- nus De -- us
+      Sa -- ba -- oth!
+    }
+    Ho -- san -- na Ho -- san -- na Ho -- san -- na in ex -- cel -- sis!
+    Be -- ne -- dic -- tus Be -- ne -- dic -- tus qui ve -- nit
+    no -- mi -- ne Do -- _  mi -- ne De -- i De -- i De -- i.
+    \repeat unfold 2 {
+      Sanc -- tus Sanc -- tus Sanc -- tus
+      Do -- mi -- nus De -- us
+    }
+    \pleni
+    Ple -- ni sunt cœ -- li et ter -- ra
+    Glo -- ri -- a Glo -- ri -- a tu~a!
+    \repeat unfold 3 {
+      Ho -- san -- na Ho -- san -- na De -- o
+      Ho -- san -- na in ex -- cel -- sis!
+    }
+    Ho -- san -- na Ho -- san -- na
+    Ho -- san -- na in ex -- cel -- sis!
+    Sanc -- tus Sanc -- tus
+    Do -- mi -- nus De -- us Sa -- ba -- oth!
+    \pleni
+    Ho -- san -- na in ex -- cel -- sis
+    Ho -- san -- na in ex -- cel~sis
+    De -- o!
+  }
+