Hauke eingefügt

5 files changed, 485 insertions, 0 deletions

diff --git a/hr/stch/fertig/tore/dynArt.ly b/hr/stch/fertig/tore/dynArt.ly
new file mode 100644
index 0000000..8c6536f
--- /dev/null
+++ b/hr/stch/fertig/tore/dynArt.ly
@@ -0,0 +1,24 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+    s2.*29 
+    \break
+    s2.*1 
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/stch/fertig/tore/midi.lua b/hr/stch/fertig/tore/midi.lua
new file mode 100644
index 0000000..58e69da
--- /dev/null
+++ b/hr/stch/fertig/tore/midi.lua
@@ -0,0 +1,50 @@
+ -- some settings -- vim: ai sw=2 lbr nu 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/stch/fertig/tore/stimmen.ly b/hr/stch/fertig/tore/stimmen.ly
new file mode 100644
index 0000000..f4d6613
--- /dev/null
+++ b/hr/stch/fertig/tore/stimmen.ly
@@ -0,0 +1,191 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key g \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 3/4
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranIMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	d4. d8 d4 d4. d8 d4 
+        r4 d4 d4 c2 c4 
+        b4. c8 d4 b4 a2 g4 g4 a4 
+        b4 b4 c4 d2. a4 a4 b4 c4 c4 d4 e4. d8 c4 b2 a4 
+        e'4. e8 e4 e4. e8 e4 
+        r4 e4 e4 c4. d8 e4 e4 f2 e2 r4 
+        R2.*3 
+        r4 a,4 b4 c4 c4 d4 e2. b4 b4 cis4 dis2 dis4 e4 e4. dis8 e2. 
+        e4 b4 b4 b4 cis4 d4 cis4 cis4 r4 
+        R2.*3 
+        d4 d4 d4 b2 r4 r4 e4 e4 c2 c4 
+        a4 a4 a4 d4 d4 d4 b2 b4 
+        r4 e4 e4 c4. d8 e4 d2 r4 
+	e4. e8 e4 e4. e8 e4 
+        r4 e4 e4 d2 d4 
+        c4. d8 e4 c4 b2 a2 r4 
+        R2.*10 
+        b4 c4 d4 b4 c4 d4 b4 c4 d4 e2 e4 
+        e2 e4 e2 e4 
+        e2 d4 e4. f8 g4 e4 d2 c4 
+        e4 e4 d2 d4 g,4 a4 b4 c4 d4 e4 d4. c8 b4 e4 d2 d2. 
+        \bar "|."
+      }
+    >>
+  }
+  sopranIIMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	b4. b8 b4 b4. b8 b4 
+        r4 b4 b4 a2 a4 g4. a8 b4 g4 g4 fis4 g2 r4 
+        R2. 
+        r4 d4 e4 fis4 fis4 g4 a2. e2 fis4 gis2 a4 
+        c4. c8 c4 c4. c8 c4 
+        r4 c4 c4 a4. b8 c4 c4 c4 b4 c2 r4 
+        R2.*5 
+        r4 e,4 fis4 g4 g4 a4 b2 b4 b4 b2 b2. 
+        gis4 gis4 gis4 gis4 a4 b4 a4 a4 r4 
+        R2.*3 
+        b4 b4 b4 g2 r4 r4 g4 g4 a2 a4 
+        fis4 fis4 fis4 b4 b4 b4 g2 g4 
+        r4 c4 c4 a4. b8 c4 b2 r4 
+        c4. c8 c4 c4. c8 c4 
+        r4 c4 c4 b2 b4 a4. b8 c4 a4 a4 gis4 a2 r4 
+        R2.*10 
+        g4 a4 b4 g4 a4 b4 g4 a4 b4 c2 c4 
+        c2 c4 c2 c4 c2 b4 c4. d8 e4 c4 c4 b4 c4 
+        c4 c4 b2 b4 e,4 fis4 g4 a4 b4 c4 
+        b4. a8 g4 c4 a2 b2. 
+      }
+    >>
+  }
+
+  altMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	g4. g8 g4 g4. g8 g4 
+        r4 g4 g4 e2 e4 g2. g4 d2 d2 r4 
+        R2.*6 
+        g4. g8 g4 g4. g8 g4 r4 g4 g4 a4. a8 g4 g4 f2 g4 
+        c,4 d4 e4 e4 f4 g2. d4 d4 e4 f2. e2. 
+        r4 e4 e4 e4 e4 e4 fis2 fis4 g4 fis2 e2. 
+        R2.*2 
+        a4 e4 e4 e4 fis4 g4 fis2 g4 g4 g4. fis8 g2 r4 
+        d4 d4 d4 e2. r4 e4 e4 d2 d4 
+        fis4 fis4 fis4 g2. r4 e4 e4 f4. f8 g4 g2 r4 
+	g4. g8 g4 g4. g8 g4 
+        r4 g4 g4 g2 g4 e2. e4 e2 e2 r4 
+        R2.*4 
+        e4 f4 g4 e4 f4 g4 e4 f4 g4 g2 g4 
+        e4. f8 g4 g4 g4. fis8 g2 r4 
+        % R2.*2 
+        g2 g4 g2 g4 
+        e4 f4 g4 e4 f4 g4 e4 f4 g4 g2 g4 
+        g2. g4 g2 g4 g4 g4 g2 g4 
+        g2 g4 c,2 c4 g'2. g4 g4. fis8 g2. 
+      }
+    >>
+  }
+  
+  tenorIMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	d4. d8 d4 d4. d8 d4 
+        r4 d4 b4 c2 c4 d2. e4 a,2 b2 r4 
+        r4 g4 a4 b4 b4 c4 d2. a4 a4 b4 c4 c4 d4 e2 a,4 
+        e'4. c8 c4 c4. c8 c4 
+        r4 c4 c4 c4. c8 c4 c4 d2 e2 r4 
+        R2.*5 
+        r4 c4 c4 b4 b4 b4 b2 b4 b4 b2 b2. 
+        e4 e4 e4 e2 e4 
+        cis4 cis4 cis4 cis4 d4 e4 a,2 d4 e4 d2 b2 r4 
+        b4 b4 b4 g2. 
+        r4 c4 c4 d2 d4 d4 d4 d4 e2. 
+        r4 c4 c4 c4. c8 c4 d2 r4 
+        c4. c8 c4 c4. c8 c4 r4 c4 c4 d2 d4 a2. a4 b2 cis2 r4 
+        R2. 
+        b4 c4 d4 b4 c4 d4 b4 c4 d4 e2 e4 e2 e4 e2 e4 
+        e2 d4 c4. d8 e4 d4 d2 d2 r4 
+        R2.*2 
+        e2 e4 e2 e4 e2 e4 e2 b4 
+        e4. d8 c4 c4 d2 e4 c4 c4 d2 d4 
+        c2 d4 e2 c4 d2. e4 a,4 d4 d2. 
+      }
+    >>
+  }
+  tenorIIMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	b4. b8 b4 b4. b8 b4 r4 g4 g4 c2 c4 g2. g4 d'4 d,4 g2 r4 
+        R2.*6 
+        g4. g8 g4 g4. g8 g4 r4 g4 g4 f4. f8 g4 g4 d'2 g,2 r4 
+        R2. 
+        r4 g4 a4 b4 b4 c4 d2. a2. 
+        r4 g4 g4 g4 g4 g4 fis2 fis4 e4 fis2 gis2. 
+        R2.*2 
+        e4 a4 a4 a4 d4 cis4 d2 g,4 c4 a2 g2 r4 
+        g4 g4 g4 e2. r4 a4 a4 d2 a4 b4 b4 b4 e,2. 
+        r4 g4 g4 a4. a8 g4 g2 r4 
+        g4. g8 g4 g4. g8 g4 
+        r4 g4 g4 g2 g4 c4. b8 a4 e4 e2 a2 r4 
+        R2. 
+        g4 a4 b4 g4 a4 b4 g4 a4 b4 c2 c4 c2 c4 c2 c4 
+        c2 b4 c4. c8 c4 b4 a2 g2 r4 
+        R2.*2 
+        c2 c4 c2 c4 c2 c4 c2 g4 
+        c2. g4 g2 c4 g4 g4 g2 g4 g2 g4 c2 a4 
+        d2. g,4 d'4 a4 g2. 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c' {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	g4. g8 g4 g4. g8 g4 
+        r4 g4 g4 a2 a,4 b2. c4 d2 g,2 r4 
+        R2.*6 
+        c4. c8 c4 c4. c8 c4 r4 c4 c4 f4. f8 e4 e4 d2 c2 r4 
+        r4 c4 d4 e4 e4 f4 g2. d2. 
+        r4 a4 b4 c4 c4 d4 e2. b2. e4 b2 e2. 
+        R2.*2 
+        a,4 a4 a4 a4 a4 a4 d2 b4 c4 d2 g2 r4 
+        R2.*3 
+        d4 d4 d4 b2. r4 e4 e4 c2 c4 f4. f8 e4 g2 r4 
+        c,4. c8 c4 c4. c8 c4 r4 c4 c4 g'2 g,4 a2. a4 e'2 a,2 r4 
+        d4 e4 fis4 g2 g4 g2 g4 g2 g4 
+        c,4 d4 e4 c4 d4 e4 c4 d4 e4 e4 f4 g4 c,2. g'4 d2 g2 r4 
+        R2.*2 
+        c,4 d4 e4 c4 d4 e4 c4 d4 e4 e4 f4 g4 c,2. c4 g'2 c,4 
+        c4 c4 g'2 g,4 c2 b4 a2 a4 b2. c4 d2 g2. 
+      }
+    >>
+  }
+
diff --git a/hr/stch/fertig/tore/texte.ly b/hr/stch/fertig/tore/texte.ly
new file mode 100644
index 0000000..20af431
--- /dev/null
+++ b/hr/stch/fertig/tore/texte.ly
@@ -0,0 +1,144 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  machetA = \lyricmode {
+    Ma -- chet die To -- re weit
+    und die Tü -- ren in _ _ der Welt hoch,
+  }
+
+  machetB = \lyricmode {
+    Ma -- chet die To -- re weit
+    und die Tü -- ren in der Welt hoch,
+  }
+
+  herrA = \lyricmode {
+    Es ist der Herr,
+    stark und mäch -- tig,
+    es ist der Herr,
+    stark und mäch -- tig, stark und mäch -- tig im Streit.
+  }
+
+  herrB = \lyricmode {
+    Es ist der Herr,
+    stark und mäch -- tig,
+    es ist der Herr,
+    stark und mäch -- tig im Streit.
+  }
+
+  ehrenA = \lyricmode {
+    daß der Kö -- nig der Eh -- ren,
+    daß der Kö -- nig der Eh -- ren ein -- zie -- he.
+  }
+
+  ehrenB = \lyricmode {
+    daß der Kö -- nig der Eh -- ren,
+    daß der Kö -- nig der Eh -- ren ein -- zie -- he.
+  }
+
+  hosiannaA = \lyricmode {
+    Ho -- _ si -- an -- _ na
+    ho -- _ si -- an -- na
+    ho -- si -- an -- na
+    dem _ Soh -- _ _  ne Da -- vids,
+    ho -- si -- an -- na, ho -- _ si -- an -- _ na
+    in _ _ der Hö -- he.
+  }
+
+  hosiannaB = \lyricmode {
+    Ho -- _ si -- an -- _ na
+    ho -- _ si -- an -- na
+    in _ _ der Hö -- _ he.
+    Ho -- si -- an -- na, ho -- _ si -- an -- _ na
+    ho -- _ si -- an -- na in der Hö -- he,
+    ho -- si -- an -- na, ho -- si -- an -- na
+    in der Hö -- _ he.
+  }
+
+  hosiannaC = \lyricmode {
+    Ho -- _ si -- an -- _ na
+    ho -- _ si -- an -- na
+    ho -- si -- an -- na,
+    ho -- si -- an -- na in der Hö -- he.
+    Ho -- si -- an -- na,
+    ho -- si -- an -- na in _ _ der Hö -- he.
+    Ho -- si -- an -- na, ho -- si -- an -- na
+    in der Hö -- _ he,
+  }
+
+  hosiannaD = \lyricmode {
+    Ho -- _ si -- an -- na
+    ho -- si -- an -- na
+    ho -- _ si -- an -- _ na
+    ho -- _ si -- an -- _ na
+    in der Hö -- he.
+    Ho -- _ si -- an -- _ na
+    ho -- _ si -- an -- _ na
+    in der Hö -- he.
+    Ho -- si -- an -- na,
+    ho -- si -- an -- na in der Hö -- he.
+  }
+
+% Die Textaufteilungen
+
+  sopranText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+    \machetA
+    \ehrenA
+    \machetB
+    daß der Kö -- nig der Eh -- ren,
+    daß der Kö -- nig ein -- zie  -- _ he.
+    Wer ist der -- sel -- bi -- ge Kö -- nig?
+    \herrA
+    \machetA
+    \hosiannaA
+  }
+
+  altText = \lyricmode {
+    %<+hier den Text für den Alt eintragen+>
+    \machetB
+    \machetB
+    daß der Kö -- nig der Eh -- ren,
+    daß der Kö -- nig,
+    daß der Kö -- nig der Eh -- ren ein -- zie -- he.
+    Wer ist der -- sel -- bi -- ge Kö -- nig der Eh -- _ ren?
+    \herrB
+    \machetB
+    \hosiannaB
+  }
+
+  tenorText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+    \machetB
+    daß der Kö -- nig der Eh -- ren,
+    daß der Kö -- ing ein -- zie -- he.
+    %\machetB
+    Ma -- chet die To -- re weit
+    und die Tü -- ren in der Welt 
+    \set associatedVoice = "tenoereB"
+    hoch,
+    %\ehrenB
+    daß der Kö -- nig der Eh -- ren,
+    daß der Kö -- nig der Eh -- ren ein -- zie --
+    \set associatedVoice = "tenoereA"
+    he.
+    Wer ist der -- sel -- be,
+    wer ist der -- sel -- bi -- ge Kö -- nig der Eh -- ren?
+    \herrB
+    \machetB
+    \hosiannaC
+  }
+
+  bassText = \lyricmode {
+    %<+hier den Text für den Baß eintragen+>
+    \machetB
+    \machetB
+    \ehrenB
+    Wer ist der -- sel -- bi -- ge Kö -- nig der Eh -- ren?
+    Es ist der Herr,
+    stark und mäch -- tig,
+    mäch -- tig im Streit.
+    \machetB
+    \hosiannaD
+  }
+
diff --git a/hr/stch/fertig/tore/tore.ly b/hr/stch/fertig/tore/tore.ly
new file mode 100644
index 0000000..50cf8fc
--- /dev/null
+++ b/hr/stch/fertig/tore/tore.ly
@@ -0,0 +1,76 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Machet die Tore weit"
+    composer = "Andreas Hammerschmidt (1612 - 1675)"
+    %opus = "<+Werk+>"
+    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 15)
+
+  sop = \new Staff = sopran <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "sopraneA" { \global \voiceOne \sopranIMelodie }
+          \new Voice = "sopraneB" { \global \voiceTwo \sopranIIMelodie }
+          %\addlyrics { \sopranText }
+        >>
+
+  alt = \new Staff = alt <<
+          \new Voice = "alti" { \global \altMelodie }
+          %\addlyrics { \altText }
+        >>
+
+  ten = \new Staff = tenor <<
+          \new Voice = "tenoereA" { \global \voiceOne \tenorIMelodie }
+          \new Voice = "tenoereB" { \global \voiceTwo \tenorIIMelodie }
+          %\addlyrics { \tenorText }
+        >>
+
+  bas = \new Staff = bass <<
+          \new Voice = "baesse" { \global \bassMelodie }
+          %\addlyrics { \bassText }
+        >>
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \sop
+      \new Lyrics \lyricsto "sopraneA" \sopranText
+      \new Lyrics = "alt"
+      \alt
+      \ten
+      \new Lyrics \lyricsto "tenoereA" \tenorText
+      \new Lyrics = "bass"
+      \bas
+      \context Lyrics = "alt" { \lyricsto "alti" \altText }
+      \context Lyrics = "bass" { \lyricsto "baesse" \bassText }
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+