Hauke eingefügt

5 files changed, 406 insertions, 0 deletions

diff --git a/hr/quartett/avc/ave.ly b/hr/quartett/avc/ave.ly
new file mode 100644
index 0000000..45183df
--- /dev/null
+++ b/hr/quartett/avc/ave.ly
@@ -0,0 +1,56 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.12"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Ave verum corpus"
+    composer = "Wolfgang Amadeus Mozart"
+    opus = "KV 618, 1791"
+    tagline = ""
+  }
+
+  \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 17)
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \new Staff = sopran <<
+	%\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+        \new Voice = "fP" { \frauenPausen }
+	\new Voice = "soprane" { \global \voiceOne \sopranMelodie }
+	\new Voice = "alti" { \global \voiceTwo \altMelodie }
+	\addlyrics { \altText }
+      >>
+      \new Staff = maenner <<
+        \new Voice = "mP" { \maennerPausen }
+	\new Voice = "tenoere" { \global \voiceOne \tenorMelodie }
+	\new Voice = "baesse" { \global \voiceTwo \bassMelodie }
+	%\addlyrics { \bassText }
+      >>
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/quartett/avc/dynArt.ly b/hr/quartett/avc/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/quartett/avc/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/quartett/avc/midi.lua b/hr/quartett/avc/midi.lua
new file mode 100644
index 0000000..f8b2520
--- /dev/null
+++ b/hr/quartett/avc/midi.lua
@@ -0,0 +1,50 @@
+ -- some settings -- vim: ai sw=2 lbr nu encoding=utf8 et
+
+pre=[[
+%some settings% vim: ai sw=2 lbr nu encoding=utf8 et
+
+\version "2.12"
+\include "stimmen.ly"
+
+  \score {
+]]
+
+post=[[
+    \midi {
+      \context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 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/quartett/avc/stimmen.ly b/hr/quartett/avc/stimmen.ly
new file mode 100644
index 0000000..b0ee87e
--- /dev/null
+++ b/hr/quartett/avc/stimmen.ly
@@ -0,0 +1,243 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  % \include "dynArt.ly"
+
+  global = {
+    \key d \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  frauenPausen = \relative c' {
+    \compressFullBarRests
+    R1*2 
+    s1*8 
+    \break
+    s1*8 
+    R1*3 
+    \break
+    s1*16 
+    \break
+    s1*6 
+    R1*3 
+  }
+
+  sopranMelodie = \relative c'' {
+    <<
+      % { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+        s1*2 
+	a2 d4( fis,4) 
+        a4( gis4) g2 
+        g4( b4) a4( g4) 
+        g4( fis4) fis2 
+        e2. e4 
+        fis4 fis4 g4 g4 
+        g2( fis4) fis4 
+        e1 
+        e2. a4 
+        a4( gis4) gis2 
+        e4( gis2) b4 
+        b4( a4) a4 a4 
+        d1( ~ 
+        d4 cis4) b4 a4 
+        a2( gis4) gis4 
+        a1 
+        s1*3
+        a2. a4 
+        a4( bes4) bes2 
+        bes4( d4) c4( bes4) 
+        bes4( a4) a2 
+        g2. g4 
+        g4( bes4) a4 g4 
+        g2( f8 e8) f4 
+        e2 r2 
+        fis2. fis4 
+        fis4( e4) d4( g4) 
+        g2. g4 
+        g4( fis4) e4 a4 
+        a1( ~ 
+        a4 g4) a4 b4 
+        fis2( e4.) fis8 
+        g2 g2 
+        d'1( ~ 
+        d2 dis2 
+        e4 b4 cis4 d4 
+        cis4 b8 a8) d4 g,4 
+        fis2( e4.) e8 
+        d1 
+        s1*3
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      % { \meta }
+      %\altArt
+      %the actual tune
+      {
+        s1*2 
+	fis2 fis2 
+        e2 e2 
+        e4( g4) fis4( e4) 
+        e4( d4) d2 
+        cis2. cis4 
+        d4 d4 e4 e4 
+        e2( d4) d4 
+        cis1 
+        e2. e4 
+        e2 e2 
+        e2. gis4 
+        gis4( a4) a2 
+        r2 gis2 
+        a2 fis4 fis4 
+        e2. e4 
+        e1 
+        s1*3 
+        e2. e4 
+        e2 e2 
+        e2. e4 
+        e4( f4) f2 
+        d2. d4 
+        e4( f4) e4 e4 
+        e2( d8 cis8) d4 
+        cis2 r2 
+        d2. d4 
+        d4( cis4) b4( e4) 
+        e2. e4 
+        e4( d4) cis4 fis4 
+        fis1( ~ 
+        fis4 g4) fis4 e4 
+        d2( cis4.) cis8 
+        d2 r2 
+        r2 fis2 
+        g2( fis2 
+        e1 ~ 
+        e4 d8 cis8) d4 d4 
+        d2( cis4.) cis8 
+        d1 
+        s1*3 
+      }
+    >>
+  }
+
+  maennerPausen = \relative c' {
+    \compressFullBarRests
+    R1*2 
+    s1*16 
+    R1*3 
+    s1*22 
+    R1*3 
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      % { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+        s1*2 
+        a2 a2 
+        b2 b2 
+        a2 a2 
+        a2 a2 
+        a2. a4 
+        a4 a4 a4 a4 
+        a2. a4 
+        a1 
+        cis2. cis4 
+        cis4( d4) d2 
+        b2. d4 
+        d4( cis4) cis2 
+        r2 d2 
+        e2 d4 cis4 
+        b2. b4 
+        cis1 
+        s1*3 
+        cis2. cis4 
+        cis2 cis4( c4) 
+        c4( bes4 a4) g4 
+        g4( a4) a2 
+        b2. b4 
+        cis4( d4) e4 cis4 
+        cis2( d4) b4 
+        e,2 r2 
+        r1 
+        b'2. b4 
+        b4( a4) g4( cis4) 
+        cis2. cis4 
+        cis4( b4) a4 d4 
+        d2 d4 d4 
+        a2. a4 
+        g2 r2 
+        r2 c2 
+        d2( c2 
+        b4 d4 cis4 b4 
+        a2) a4 g4 
+        a2( g4.) g8 
+        fis1 
+        s1*3 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      % { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+        s1*2 
+        d2 d2 
+        d2 d2 
+        cis2 cis2 
+        d2 d2 
+        a2. a4 
+        d4 d4 cis4 cis4 
+        d2. d4 
+        a1 
+        a'2. a4 
+        a4( b4) b2 
+        gis2 e2 
+        eis4( fis4) fis2 
+        r2 b,2 
+        cis2 d4 d4 
+        e2. e4 
+        a,1 
+        s1*3 
+        a'2. a4 
+        a4( g4) g2 
+        c,2. c4 
+        c4( f4) f2 
+        f2. f4 
+        e4( d4) cis4 a4 
+        bes2( a4) gis4 
+        a2 r2 
+        r1 
+        g'2. g4 
+        g4( fis4) e4( a4) 
+        a2. a4 
+        a4( g4) fis4 b4 
+        b2 a4 gis4 
+        a2 a,2 
+        b2 r2 
+        r2 a'2 
+        bes2( a2 
+        gis1 
+        g2) fis4 b,4 
+        a2. a4 
+        d1 
+        s1*3 
+      }
+    >>
+  }
+
diff --git a/hr/quartett/avc/texte.ly b/hr/quartett/avc/texte.ly
new file mode 100644
index 0000000..3ab9e34
--- /dev/null
+++ b/hr/quartett/avc/texte.ly
@@ -0,0 +1,36 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  text = \lyricmode {
+    A -- ve, a -- ve ve -- rum cor -- pus
+    na -- tum de Ma -- ri -- a vir -- gi -- ne,
+    ve -- re, pas -- sum im -- mo -- la -- tum
+    in cru -- ce pro ho -- mi -- ne.
+    Cu -- jus la -- tus
+    per -- fo -- ra -- tum
+    un -- da flu -- xit et san -- gui -- ne,
+    e -- sto no -- bis præ -- gu -- sta -- tum
+    in mor -- tis ex -- a -- mi -- ne,
+    in mor -- tis ex -- a -- mi -- ne.
+  }
+
+% Die Textaufteilungen
+
+  sopranText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+  }
+
+  altText = \lyrics {
+    %<+hier den Text für den Alt eintragen+>
+    \text
+  }
+
+  tenorText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+