Hauke eingefügt

9 files changed, 533 insertions, 0 deletions

diff --git a/hr/stch/fertig/brevis_leavitt/gloria/a.midi b/hr/stch/fertig/brevis_leavitt/gloria/a.midi
new file mode 100644
index 0000000..1e1a823
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/gloria/a.midi
diff --git a/hr/stch/fertig/brevis_leavitt/gloria/b.midi b/hr/stch/fertig/brevis_leavitt/gloria/b.midi
new file mode 100644
index 0000000..ae80404
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/gloria/b.midi
diff --git a/hr/stch/fertig/brevis_leavitt/gloria/dynArt.ly b/hr/stch/fertig/brevis_leavitt/gloria/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/gloria/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/gloria/gloria.ly b/hr/stch/fertig/brevis_leavitt/gloria/gloria.ly
new file mode 100644
index 0000000..22267b7
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/gloria/gloria.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 = "Gloria in excelsis Deo"
+    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
+          \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/gloria/midi.lua b/hr/stch/fertig/brevis_leavitt/gloria/midi.lua
new file mode 100644
index 0000000..e22ba8e
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/gloria/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/gloria/s.midi b/hr/stch/fertig/brevis_leavitt/gloria/s.midi
new file mode 100644
index 0000000..c28a534
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/gloria/s.midi
diff --git a/hr/stch/fertig/brevis_leavitt/gloria/stimmen.ly b/hr/stch/fertig/brevis_leavitt/gloria/stimmen.ly
new file mode 100644
index 0000000..115f6de
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/gloria/stimmen.ly
@@ -0,0 +1,338 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key aes \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 6/8
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  generalPausen = {
+    R1*6/8*2 
+    s2.*7 
+    R1*6/8*3 
+    \break
+    s2.*8 
+    \break
+    s2.*4 
+    s2.*4 
+    \break
+    R1*2/4*4 
+    s2*4 
+    \pageBreak
+    s2*4 
+    R1*2/4*2 
+    s2*4 
+    \break
+    s2*5 
+    s2*2 
+    s2*2 
+    \break
+    R1*6/8*2 
+    s2.*8 
+    \break
+    s2.*4 
+    s2.*4 
+    \break
+    R1*6/8*2 
+    s2.*10 
+  }
+  frauenPausen = {
+    s2.*2 
+    s2.*7 
+    s2.*3 
+    %
+    s2.*8 
+    %
+    R1*6/8*4 
+    s2.*4 
+    %
+    s2*4 
+    s2*4 
+    %
+    s2*4 
+    s2*2 
+    s2*4 
+    %
+    s2*5 
+    R1*2/4*2 
+    s2*2 
+    %
+    s2.*2 
+    s2.*8 
+    R1*6/8*4 
+    s2.*4 
+    s2.*2 
+    s2.*10 
+  }
+  upper = \relative c'' {
+        aes8. aes16 aes8 ees8. ees16 ees'8 
+        d8.( c16) aes8 bes8 c8 d8 
+  }
+  lower = \relative c' {
+	ees8. ees16 ees8 aes,8. aes16 aes'8 
+        bes8.( aes16) fes8 ges8 aes8 bes8 
+  }
+  braceS = \relative c' {
+	s1*6/8*2 
+        aes'8. aes16 aes8 ees8. ees16 ees'8 
+        d8.( c16) bes8 c8 c4 
+        aes8. aes16 aes8 ees8. ees16 ees'8 
+        d8.( c16) bes8 c8 c4 
+        \upper
+  }
+  braceA = \relative c' {
+	s1*6/8*4 
+	ees8. ees16 ees8 aes,8. aes16 aes'8 
+        bes8.( aes16) ges8 aes8 aes4 
+        \lower
+  }
+  braceT = \relative c' {
+	R1*6/8*6 
+        \transpose c c, \upper
+  }
+  braceB = \relative c' {
+	R1*6/8*6 
+        \transpose aes' aes \lower
+  }
+  frauenIs = \relative c' {
+        ees4 aes8 aes4. 
+        s2. 
+        c8.( des16) ees8 ees8( des8) c8 
+        bes4. bes4. 
+        aes4 ees8 ees4. 
+        s2. 
+        c8.( des16) ees8 ees8( f8) g8 
+        f4. f4. 
+	s1*6/8*4 
+        ges4 ges8 ~ ges8 aes8 bes8 
+        aes4 des8 ~ des4. 
+        des4 c8 ~ c8 aes4 
+  }
+  frauenIa = \relative c' {
+        s2. 
+        ees4 bes'8 bes4. 
+        s2. 
+        bes8.( aes16) ges8 f8 ges8 aes8 
+        aes4 r8 r4. 
+        aes4 des,8 des4. 
+        c8.( des16) ees8 ees4 ees8 
+        c4. c4. 
+	s1*6/8*4 
+        bes4 bes8 ~ bes8 c8 des8 
+        des4 aes'8 ~ aes4. 
+        f4 ees8 ~ ees8 f4 
+  }
+  maennerI = \relative c' {
+    c4. bes4. 
+    bes4. a4. 
+    f4 f8 ~ f8 g8 aes8 
+    g4( c8 ~ c8) g4 
+    f4( bes8 ~ bes8) f4 
+    ees2. 
+    ges4. des4. 
+    f2. 
+  }
+  maennerT = \relative c' {
+        r4 r8 r8 c8 c8 
+        des4 r8 r8 ees8 ees8 
+        ees4. c4. 
+        des2. 
+        c4 r8 r8 c8 c8 
+        des4 r8 r8 des8 des8 
+        \maennerI
+        aes4 bes8 ~ bes8 c4 
+        aes4.( g4.) 
+  }
+  maennerB = \relative c {
+        r4 r8 r8 ees8 ees8 
+        f4 r8 r8 g8 g8 
+        aes4. g4. 
+        ges4.( f4.) 
+        f4 r8 r8 f8 f8 
+        f4 r8 r8 des'8 des8 
+        \maennerI
+        bes,4 c8 ~ c8 des4 
+        ees2. 
+  }
+  frauenII = \relative c'' {
+    s2*4 
+    aes8 ees16 ees16 f8 c16 c16 
+    des8 f16 f16 ees8 bes'16 bes16 
+    aes8 ees8 f16 c16 c16 c16 
+    des8 f8 ees4 
+    \bar "||" 
+    \key c \major
+    c'8 g16 g16 a8 e16 e16 
+    f8 a16 a16 g8 d'16 d16 
+    c8 g8 a16 e16 e16 e16 
+    f8 a8 g4 
+    s2*2 
+    a8 b16 c16 b8 c16 d16 
+    c8( g8) g4 
+    c8 b16( a16) b16( a16) g8 
+    e8. e16 e4 
+    ees4 f4 
+    f2 
+    g4 f4 
+    f2 
+  }
+  maennerII = \relative c' {
+    R2*4 
+    c8 aes16 aes16 bes8 ees,16 ees16 
+    f8 aes16 aes16 bes8 g16 g16 
+    c8 aes8 bes16 ees,16 ees16 ees16 
+    f8 aes8 bes4 
+    \bar "||" 
+    \key c \major
+    r4 c8 g16 g16 
+    a8 f16 f16 g8 g16 g16 
+    r8 g16 g16 c8( g8) 
+    a8( f8) g4 
+    R2*2 
+    c4 d4 
+    e2 
+  }
+  maennerIII = \relative c' {
+    g8 a16 bes16 a8 bes16 c16 
+    bes8( f8) f4 
+    bes8 a16( g16) a16( bes16) c8 
+  }
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+        \braceS
+        ees'2. 
+	s1*6/8*3 
+        \frauenIs
+        bes2. 
+        %\mark \markup { "4. -- > 4" }
+        \time 2/4 
+        \frauenII
+        bes8( f'8) f4 
+        s2*2 
+        ees4 d4 
+        bes4 c4 
+        \bar "||" 
+        \time 6/8 
+        \key bes \major
+	s1*6/8*2 
+        \transpose aes bes \frauenIs
+        c2. 
+        \bar "||" 
+        \key c \major
+        \transpose aes c' \braceS
+        g'2. ~ 
+        g2. ~ 
+        g2. ~ 
+        g2. 
+        \bar "|." 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+        \braceA
+        aes'2. 
+	s1*6/8*3 
+        \frauenIa
+        ees2. 
+        \frauenII
+        bes'8( f8) f4 
+        s2*2 
+        g4 f4 
+        ees4 ees4 
+        \key bes \major
+	s1*6/8*2 
+        \transpose aes bes \frauenIa
+        ees2. 
+        \key c \major
+        \transpose aes c' \braceA
+        c'2. ~  
+        c2. ~  
+        c2. ~  
+        c2. 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+        \braceT
+	c2. 
+	R1*6/8*3 
+        \maennerT
+        \maennerII
+        f4 e4 
+        c2 
+        \maennerIII
+        b8 f'8 f4 
+        b,8( f'8) f4 
+        R2*2 
+        bes,4 a4 
+        g4 a4 
+        \key bes \major
+	R1*6/8*2 
+        \transpose aes bes \maennerT
+        \key c \major
+        \transpose aes c' \braceT
+        e'2. ~ 
+        e2. ~ 
+        e2. ~ 
+        e2. 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+        \braceB
+	aes'2. 
+	R1*6/8*3 
+        \maennerB
+        \maennerII
+        c4 b4 
+        b4( a4) 
+        \maennerIII
+        b8 f8 f4 
+        b8( f8) f4 
+        c'8 c8 c8 c8 
+        c8 c8 c8 c8 
+        f,8 f8 f8 f8 
+        f8 f8 f8 f8 
+        \key bes \major
+	R1*6/8*2 
+        \transpose aes bes \maennerB
+        \key c \major
+        \transpose aes c' \braceB
+        c'2. ~  
+        c2. ~  
+        c2. ~  
+        c2. 
+      }
+    >>
+  }
+
diff --git a/hr/stch/fertig/brevis_leavitt/gloria/t.midi b/hr/stch/fertig/brevis_leavitt/gloria/t.midi
new file mode 100644
index 0000000..3cbe02a
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/gloria/t.midi
diff --git a/hr/stch/fertig/brevis_leavitt/gloria/texte.ly b/hr/stch/fertig/brevis_leavitt/gloria/texte.ly
new file mode 100644
index 0000000..16d84f8
--- /dev/null
+++ b/hr/stch/fertig/brevis_leavitt/gloria/texte.ly
@@ -0,0 +1,43 @@
+%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+>
+    Glo -- ri -- a, Glo -- ri -- a in ex -- cel -- sis De -- o!
+    Glo -- ri -- a in ex -- cel -- sis De -- o.
+    Glo -- ri -- a in ex -- cel -- sis De -- o.
+    Et in ter -- ra pax ho -- mi -- ni -- bus,
+    ter -- ra pax ho -- mi -- ni -- bus.
+    Lau -- da -- mus te. Be -- ne -- di -- ci -- mus te.
+    A -- do -- ra -- mus te. Glo -- ri -- fi -- ca -- mus te.
+    Lau -- da -- mus te. Be -- ne -- di -- ci -- mus,
+    A -- do -- ra -- mus te.
+    Gra -- ti -- as, gra -- ti -- as,
+    Gra -- ti -- as a -- gi -- mus ti -- bi
+    prop -- ter mag -- nam glo -- ri -- am tu -- am.
+    Al -- le -- lu -- ia,
+    Al -- le -- lu -- ia,
+    Al -- le -- lu -- ia,
+    Al -- le -- lu -- ia.
+    Glo -- ri -- a in ex -- cel -- sis De -- o.
+    Glo -- ri -- a in ex -- cel -- sis De -- o.
+    Et in ter -- ra pax ho -- mi -- ni -- bus,
+    ter -- ra pax ho -- mi -- ni -- bus.
+    Glo -- ri -- a, Glo -- ri -- a in ex -- cel -- sis De -- o!
+  }
+