Hauke eingefügt

5 files changed, 317 insertions, 0 deletions

diff --git a/hr/stch/fertig/koenige/dynArt.ly b/hr/stch/fertig/koenige/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/stch/fertig/koenige/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/koenige/koenige.ly b/hr/stch/fertig/koenige/koenige.ly
new file mode 100644
index 0000000..5b9bd09
--- /dev/null
+++ b/hr/stch/fertig/koenige/koenige.ly
@@ -0,0 +1,66 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Die Könige"
+    composer = "Peter Cornelius, 1824 - 1874"
+    %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 17)
+
+  sop = \new Staff = sopran <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \global \voiceOne \sopranMelodie }
+          %\addlyrics { \sopranText }
+          \new Voice = "alti" { \global \voiceTwo \altMelodie }
+          %\addlyrics { \altText }
+        >>
+
+  ten = \new Staff = tenor <<
+          \new Voice = "tenoere" { \global \voiceOne \tenorMelodie }
+          %\addlyrics { \tenorText }
+          \new Voice = "baesse" { \global \voiceTwo \bassMelodie }
+          %\addlyrics { \bassText }
+        >>
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \new Staff = solo \new Voice { \global \soloMelodie }
+      \sop
+      \new Lyrics = first { }
+      \new Lyrics \lyricsto "soprane" \altText
+      %\alt
+      \ten
+      %\bas
+      \context Lyrics = first { \lyricsto "soprane" \sopranText }
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/stch/fertig/koenige/midi.lua b/hr/stch/fertig/koenige/midi.lua
new file mode 100644
index 0000000..58e69da
--- /dev/null
+++ b/hr/stch/fertig/koenige/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/koenige/stimmen.ly b/hr/stch/fertig/koenige/stimmen.ly
new file mode 100644
index 0000000..321001f
--- /dev/null
+++ b/hr/stch/fertig/koenige/stimmen.ly
@@ -0,0 +1,142 @@
+%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
+    \partial 4.
+  }
+
+% Die Stimmen
+
+  soloMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	d8 b'8 fis8 
+        \repeat volta 2 {
+          a8 g8 b,8 c8 e8. d16 
+          \bar "||"
+          \time 4/4
+          d4 r8 d8 g8 a8 b8 a16 g16 
+          g8 c8 g4 r8 g8 b8 c8 
+          d8 b16 a16 g8 fis16 g16 e8 b'4 a8 
+          g8 a8 b8 ais16 b16 d8 cis16 b16 a4 
+          r8 a8 gis8 a8 c8 a8 b8 a16 g16 
+          c8 g8 b8 a16 g16 e8( fis8 g8) d8 
+        } \alternative {
+          {
+            \time 2/4
+            e8 fis16 e16 d4 
+            \bar "||"
+            \time 3/4
+            r4 r8 d8 b'8 fis8 
+          }
+          {
+            \time 4/4
+            e8 fis16 e16 d4 ~ d8 r8 r4 
+          }
+        }
+        r4 r8 d8 b'8. c16 b4 g8 fis8 e8 g8 fis2 
+        r8 d8 c'8. a16 e'8 d8 b8 g8 
+        r8 g8 g8 e8 b'2 
+        r8^\markup{ \italic "etwas bewegter" } c8 b8 g8 e8 fis16 e16 dis8 e8 
+        fis8 c'8 b8 a16 g16 e8 fis16 e16 dis8 e8 
+        fis8 fis8 c'8 b8 a8 g16 e16 d8^\markup{ \italic "rit." } d'16 c16 
+        b4^\markup{ \italic "im Zeitmaß" } b8 a16 g16 d'8 b8 g8 fis8 e8 fis16 g16 d4 r2 
+        e4 d8. d16 b'2\fermata 
+        \bar "|."
+      }
+    >>
+  }
+
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	r8 r4 
+        r4 r4 g4 d'4 b4 g4 d'4 e4 e4 d2 
+        r4 d4 e4 fis4 g4 fis4 e4 e4 d2 
+        r4 b4 e4 d4 c4 b4 a2 g2 r4 
+        a2 g2 
+        d'2 b2 r1 
+        d2 b2 r1 
+        c4 b4 a4 b4 c4 b4 a4 b4 c4 c8( b8) a2 g2 
+        g8( g'4) fis8 ~ fis8 e4 d4 c4 b8 a2 g2\fermata 
+      }
+    >>
+  }
+  
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	r8 r4 
+        r4 r4 e4 g4 fis4 e4 g4 g4 g4 g2 
+        r4 g4 g4 b4 b4 b4 b4 a8( g8) fis2 
+        r4 g4 g4 g4 g8( fis8) g4 g4( fis4) d2 r4 
+        g4( fis4) e2 
+        fis2 g2 r1 
+        fis2 g2 r1 
+        dis4 e4 e4 fis8( e8) 
+        dis4 e4 e4 fis8( e8) 
+        dis4 e4 e4( d4) d4( g4) 
+        g4 g4 g4 g4 fis4 g4 g4( fis4) d2 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	r8 r4 
+        r4 r4 c4 b4 d4 b4 g8( d'8) c4 c4 b2 
+        r4 d4 b4 dis4 e4 b4 d4 cis4 d2 
+        r4 d4 c4 b4 a8( d8) d4 e4( d8 c8) b2 r4 
+        e4( d8 c8) b2 
+        a4( d4) d2 b4( cis4) d2 
+        c4( a8 d8) d2 b4( cis4) dis2 
+        a4 g4 c4 b4 a4 g4 c4 b4 
+        a4 g4 g4. fis8 g8( b8 cis4) 
+        d4 d4 c4 b4 d4 d4 e4( d8 c8) b2 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	r8 r4 
+        r4 r4 c'4 g4 d4 e4 b4 c4 c4 g'2 
+        r4 b4 g4 fis4 e4 d4 g4 a4 d,2 
+        r4 g4 c,4 g'4 a8( d,8) g8( b,8) 
+        c4( d4) g2 r4 
+        c,4( d4) g2 
+        d2 g2 g4( e4) b2 
+        a4( d4) g2 g4( e4) b2 
+        fis'4 g4 a4 a8( g8) 
+        fis4 g4 a4 a8( g8) 
+        fis4 g4 c,4( d4) g4( e4) 
+        b4 b'4 c4 g4 a4 b4 c8( c,8 d4) g2\fermata 
+      }
+    >>
+  }
+
diff --git a/hr/stch/fertig/koenige/texte.ly b/hr/stch/fertig/koenige/texte.ly
new file mode 100644
index 0000000..0f56b38
--- /dev/null
+++ b/hr/stch/fertig/koenige/texte.ly
@@ -0,0 +1,38 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+% Die Textaufteilungen
+
+  sopranText = \lyricmode {
+    %<+hier den Text für den Sopran eintragen+>
+    Wie schön leuch -- tet der Mor -- gen -- stern
+    voll Gnad und Wahr -- heit von dem Herrn,
+    die sü -- ße Wur -- zel Jes -- se.
+    ses -- %sen.
+    \set associatedVoice = tenoere
+    sen.
+    Lieb -- lich, lieb -- lich,
+    freund -- lich, freund -- lich,
+    \set associatedVoice = alti
+    schön und herr -- lich,
+    groß und ehr -- lich,
+    reich an Ga -- ben,
+    hoch und sehr präch -- tig er -- ha -- ben.
+  }
+
+  altText = \lyricmode {
+    %<+hier den Text für den Alt eintragen+>
+    Du Sohn Da -- vids aus Ja -- kobs Stamm
+    mein Hei -- land und mein Bräu -- ti -- gam,
+    hast mit mein Herz be
+  }
+
+  tenorText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+