Hauke eingefügt

6 files changed, 496 insertions, 0 deletions

diff --git a/hr/michi/corpus/corpus.ly b/hr/michi/corpus/corpus.ly
new file mode 100644
index 0000000..2f8f4d4
--- /dev/null
+++ b/hr/michi/corpus/corpus.ly
@@ -0,0 +1,73 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+\pointAndClickOff
+
+  \header {
+    title = "Ave verum"
+    composer = "Camille Saint-Saëns"
+    %opus = "<+Werk+>"
+    tagline = \markup {
+      \bold "studentenchor"
+    }
+  }
+
+  \paper {
+    line-width = \paper-width - 30
+    top-margin = 10
+    bottom-margin = 10
+    ragged-last-bottom = #'f
+  }
+
+  \layout {
+    indent = #0
+    \context {
+      \Staff
+      \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3.5)
+    }
+  }
+
+  #(set-global-staff-size 14)
+
+  sop = <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \global \sopranMelodie }
+          %\addlyrics { \sopranText }
+        >>
+
+  alt = <<
+          \new Voice = "alti" { \global \altMelodie }
+          %\addlyrics { \altText }
+        >>
+
+  ten = <<
+          \new Voice = "tenoere" { \global \tenorMelodie }
+          \addlyrics { \tenorText }
+          \addlyrics { \stzII }
+        >>
+
+  bas = <<
+          \new Voice = "baesse" { \global \bassMelodie }
+          %\addlyrics { \bassText }
+        >>
+
+  \score {
+    \new ChoirStaff \with { printPartCombineTexts = ##f } <<
+      \new Staff = sopran { \sop }
+      \new Staff = alt { \alt }
+      \new Staff = tenor { \ten }
+      \new Staff = bass { \bas }
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/michi/corpus/dynArt.ly b/hr/michi/corpus/dynArt.ly
new file mode 100644
index 0000000..0140f44
--- /dev/null
+++ b/hr/michi/corpus/dynArt.ly
@@ -0,0 +1,37 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    %\override Staff.TimeSignature #'style = #'()
+    \dynamicUp
+    \key ees \major
+    \time 2/2
+    \repeat volta 2 {
+      s1*8 
+    }
+    \break
+    \repeat volta 2 {
+      s1*8 
+      \break
+      s1*8 
+      \break
+      s1*12 
+    }
+    s1*4 
+    \bar "|."
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/michi/corpus/midi.lua b/hr/michi/corpus/midi.lua
new file mode 100644
index 0000000..8aef7d6
--- /dev/null
+++ b/hr/michi/corpus/midi.lua
@@ -0,0 +1,53 @@
+ -- 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 100 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/michi/corpus/stimmen.ly b/hr/michi/corpus/stimmen.ly
new file mode 100644
index 0000000..bae07bd
--- /dev/null
+++ b/hr/michi/corpus/stimmen.ly
@@ -0,0 +1,66 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	ees2 f4( g4) aes2 g2 g2( f4) ees4 f2 ees2 g2\( aes4( bes4)\) c2 bes2 bes2( aes4) g4 g2( f2) 
+        bes2 ces4( bes4) bes2 aes2 aes2. bes4 ces2 des2 ees2. ees4 d2 des2 ces4 bes2 a4 bes1 ees,2 f4( g4) f2 ees2 ees2 f4( g4) f2 ees2 ees2 c'2( ~ c4 bes4) g4 ees4 f2. f4 bes1 bes2 c4( d4) c2 bes2 bes2 c4( d4) c2 bes2 ees2( g2 ~ g4 ees4 d4 c4) bes2 bes2( ~ bes4 b4 c4 aes4) g4( bes4) d4( ees4) aes,2( g4) f4 f1( ees2) r2 
+        ees2( f4 g4 aes2 g2 f1) g1 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	bes2 d4( ees4) c4( d4) ees2 ees2( d4) c4 d2 bes2 ees2.( ees4) ees4( aes4) g2 ees2( f4) ees4 ees2( d2) 
+        f2 aes4( ges4) ges2 f2 f2. g4 aes2 bes2 bes2 a2 bes2 bes2 ges4 g2 f4 f2 bes,2 ~ bes2. bes4 bes2. bes4 c2. c4 des2. des4 c2 d2 ees2 ees2 ees2( d4) d4 ees1 ees2. ees4 e2. e4 f2. f4 fis2 g2 g2 g2 ~ g2.( aes4 bes2 a4 aes4 g4 f4) ees2 ~ ees2 ees2 ~ ees4 c2 d4 d1( ees2) r2 
+        r2 bes2( c4 d4 ees2) ~ ees2( d2) ees1 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      {
+        \clef "treble_8"
+	g2 bes2 aes2 bes2 bes2. g4 bes2 g2 bes2.( bes4) aes4( c4) ees2 bes2 ~ bes4 bes4 bes1 
+        d2 ees4( des4) des4( ees4) f2 f2( ees4) des4 ees2 ges2 ges2 f2 f2 bes,2 ees4 des2 c4 bes1 g2. g4 g2. g4 g2. g4 g2. g4 aes2 f2 g2 ees2 bes'2. bes4 bes1 bes2. bes4 bes2. bes4 bes2. bes4 ees2 ees2 ees2( d2 ~ d4 c4 d4 ees4) ees4( bes2) bes4( ~ bes4 des4 c4 ces4) bes2 g2 f2( aes4) aes4 aes1( g2) r2 
+        r1 
+        f2( g4 aes4 bes1) <bes g>1 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	ees2 bes4( ees4) f2 ees2 ees2( bes4) c4 bes2 ees2 ees2\(( f4) g4\) aes2( ees2) g2( d4) ees4 bes'2( bes,2) 
+        bes'2 aes4( bes4) bes4( ces4) des2 des2( ces4) bes4 aes2 ges2 ces2. ces4 bes2 ges2 ees4 e2 f4 bes,1 ees2. ees4 d2. d4 c2. c4 bes2. bes4 aes1 g2 c4 c4 bes2. bes4 <g g'>1 g'2. g4 g2. g4 aes2. aes4 a2 bes2 c2( b2 ~ b4 c4 bes4 aes4 g4 ges4 f4 fes4) ees2 aes,2 bes1 ~ bes2 bes2 bes1( ees2) r2 
+        r1 r1 bes1 <ees ees,>1 
+      }
+    >>
+  }
+
diff --git a/hr/michi/corpus/stimmen_.ly b/hr/michi/corpus/stimmen_.ly
new file mode 100644
index 0000000..ea4099f
--- /dev/null
+++ b/hr/michi/corpus/stimmen_.ly
@@ -0,0 +1,213 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	ees2 f4( g4) 
+	aes2 g2 
+	g2( f4) ees4 
+	f2 ees2 
+	g2\( aes4( bes4)\) 
+	c2 bes2 
+	bes2( aes4) g4 
+	g2( f2) 
+        bes2 ces4( bes4) 
+        bes2 aes2 
+        aes2. bes4 
+        ces2 des2 
+        ees2. ees4 
+        d2 des2 
+        ces4 bes2 a4 
+        bes1 
+        ees,2 f4( g4) 
+        f2 ees2 
+        ees2 f4( g4) 
+        f2 ees2 
+        ees2 c'2( ~ 
+        c4 bes4) g4 ees4 
+        f2. f4 
+        bes1 
+        bes2 c4( d4) 
+        c2 bes2 
+        bes2 c4( d4) 
+        c2 bes2 
+        ees2( g2 ~ 
+        g4 ees4 d4 c4) 
+        bes2 bes2( ~ 
+        bes4 b4 c4 aes4) 
+        g4( bes4) d4( ees4) 
+        aes,2( g4) f4 
+        f1( 
+        ees2) r2 
+        ees2( f4 g4 
+        aes2 g2 
+        f1) 
+        g1 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	bes2 d4( ees4) 
+	c4( d4) ees2 
+	ees2( d4) c4 
+	d2 bes2 
+	ees2.( ees4) 
+	ees4( aes4) g2 
+	ees2( f4) ees4 
+	ees2( d2) 
+        f2 aes4( ges4) 
+        ges2 f2 
+        f2. g4 
+        aes2 bes2 
+        bes2 a2 
+        bes2 bes2 
+        ges4 g2 f4 
+        f2 bes,2 ~ 
+        bes2. bes4 
+        bes2. bes4 
+        c2. c4 
+        des2. des4 
+        c2 d2 
+        ees2 ees2 
+        ees2( d4) d4 
+        ees1 
+        ees2. ees4 
+        e2. e4 
+        f2. f4 
+        fis2 g2 
+        g2 g2 ~ 
+        g2.( aes4 
+        bes2 a4 aes4 
+        g4 f4) ees2 ~ 
+        ees2 ees2 ~ 
+        ees4 c2 d4 
+        d1( 
+        ees2) r2 
+        r2 bes2( 
+        c4 d4 ees2) ~ 
+        ees2( d2) 
+        ees1 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      {
+        \clef "treble_8"
+	g2 bes2 
+	aes2 bes2 
+	bes2. g4 
+	bes2 g2 
+	bes2.( bes4) 
+	aes4( c4) ees2 
+	bes2 ~ bes4 bes4 
+	bes1 
+        d2 ees4( des4) 
+        des4( ees4) f2 
+        f2( ees4) des4 
+        ees2 ges2 
+        ges2 f2 
+        f2 bes,2 
+        ees4 des2 c4 
+        bes1 
+        g2. g4 
+        g2. g4 
+        g2. g4 
+        g2. g4 
+        aes2 f2 
+        g2 ees2 
+        bes'2. bes4 
+        bes1 
+        bes2. bes4 
+        bes2. bes4 
+        bes2. bes4 
+        ees2 ees2 
+        ees2( d2 ~ 
+        d4 c4 d4 ees4) 
+        ees4( bes2) bes4( ~ 
+        bes4 des4 c4 ces4) 
+        bes2 g2 
+        f2( aes4) aes4 
+        aes1( 
+        g2) r2 
+        r1 
+        f2( g4 aes4 
+        bes1) 
+        <bes g>1 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	ees2 bes4( ees4) 
+	f2 ees2 
+	ees2( bes4) c4 
+	bes2 ees2 
+	ees2\(( f4) g4\) 
+	aes2( ees2) 
+	g2( d4) ees4 
+	bes'2( bes,2) 
+        bes'2 aes4( bes4) 
+        bes4( ces4) des2 
+        des2( ces4) bes4 
+        aes2 ges2 
+        ces2. ces4 
+        bes2 ges2 
+        ees4 e2 f4 
+        bes,1 
+        ees2. ees4 
+        d2. d4 
+        c2. c4 
+        bes2. bes4 
+        aes1 
+        g2 c4 c4 
+        bes2. bes4 
+        <g g'>1 
+        g'2. g4 
+        g2. g4 
+        aes2. aes4 
+        a2 bes2 
+        c2( b2 ~ 
+        b4 c4 bes4 aes4 
+        g4 ges4 f4 fes4) 
+        ees2 aes,2 
+        bes1 ~ 
+        bes2 bes2 
+        bes1( 
+        ees2) r2 
+        r1 
+        r1 
+        bes1 
+        <ees ees,>1 
+      }
+    >>
+  }
+
diff --git a/hr/michi/corpus/texte.ly b/hr/michi/corpus/texte.ly
new file mode 100644
index 0000000..8bff82c
--- /dev/null
+++ b/hr/michi/corpus/texte.ly
@@ -0,0 +1,54 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  stzI = \lyricmode {
+    \set stanza = "1."
+    A -- ve, ve -- rum cor -- pus,
+    na -- 
+    \set ignoreMelismata = ##t
+    tum de Ma -- _ 
+    \unset ignoreMelismata
+    ri -- a vir -- gi -- ne:
+  }
+  stzII = \lyricmode {
+    \set stanza = "2."
+    Ve -- re pas -- sum im -- mo -- la -- tum in cru -- ce pro ho -- mi -- ne:
+  }
+  cujus = \lyricmode {
+    Cu -- jus la -- tus per -- fo -- ra -- tum
+    un -- da flu -- xit Cum san -- gui -- ne.
+    Es -- to no -- bis præ -- gus -- ta -- tum
+    in mor -- tis ex -- a -- mi -- ne,
+    Es -- to no -- bis præ -- gus -- ta -- tum
+  }
+
+% Die Textaufteilungen %  -- _
+
+  sopranText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+  }
+
+  altText = \lyrics {
+    %<+hier den Text für den Alt eintragen+>
+  }
+
+  tenorText = \lyricmode {
+    %<+hier den Text für den Tenor eintragen+>
+    %<<
+      \stzI
+      %\stzII
+    %>>
+    \cujus
+    \set ignoreMelismata = ##t
+    in mor -- _ _ _ _
+    \unset ignoreMelismata
+    tis,
+    mor -- tis ex -- a -- mi -- ne.
+    A -- men.
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+