Hauke eingefügt

5 files changed, 301 insertions, 0 deletions

diff --git a/hr/three/lilydocs/dornwald/dornwald.ly b/hr/three/lilydocs/dornwald/dornwald.ly
new file mode 100644
index 0000000..fdf7188
--- /dev/null
+++ b/hr/three/lilydocs/dornwald/dornwald.ly
@@ -0,0 +1,59 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Maria durch ein Dornwald ging"
+    composer = "Traditional, 17. Jh."
+    arranger = "Lorenz Maierhofer"
+    %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 18)
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \new Staff = sopran <<
+	%\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+        \new Voice = "fp" { \global \frauenPausen }
+	\new Voice = "soprane" { \global \voiceOne \sopranMelodie }
+	\new Voice = "alti" { \global \voiceTwo \altMelodie }
+	%\addlyrics { \altText }
+      >>
+      \new Lyrics = trd \with {alignAboveContext = sopran}
+	\new Lyrics { \lyricsto soprane { \sopranText } }
+	\new Lyrics { \lyricsto alti { \altText } }
+        \context Lyrics = trd { \lyricsto "third" \lyricmode { A -- men. } }
+      \new Staff = tenor <<
+	\new Voice = "tenoere" { \global \tenorMelodie }
+	\addlyrics { \tenorText }
+      >>
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/three/lilydocs/dornwald/dynArt.ly b/hr/three/lilydocs/dornwald/dynArt.ly
new file mode 100644
index 0000000..772c8f1
--- /dev/null
+++ b/hr/three/lilydocs/dornwald/dynArt.ly
@@ -0,0 +1,37 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+    s4 
+    s1 
+    s2 
+    \tieDashed
+    s2 
+    \tieSolid
+    s1 
+    s1 
+    s1 
+    s2. 
+    \slurDashed
+    \tieDashed
+    s4 
+    s1 
+    \slurSolid
+    \tieSolid
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/three/lilydocs/dornwald/midi.lua b/hr/three/lilydocs/dornwald/midi.lua
new file mode 100644
index 0000000..58e69da
--- /dev/null
+++ b/hr/three/lilydocs/dornwald/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/three/lilydocs/dornwald/stimmen.ly b/hr/three/lilydocs/dornwald/stimmen.ly
new file mode 100644
index 0000000..b1a2eee
--- /dev/null
+++ b/hr/three/lilydocs/dornwald/stimmen.ly
@@ -0,0 +1,109 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key bes \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+    \partial 4
+  }
+
+% Die Stimmen
+
+      frauenPausen = {
+        s4 
+        \repeat unfold 3 { s1 } 
+        s2 r4 s4 
+        \repeat unfold 5 { s1 } 
+        s2. 
+        % 11
+        r4 
+        \repeat unfold 3 { s1 } 
+        s2 r4 s4 
+      }
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	d4^\markup{ \bold "Innig  " } <<g4. {s8 \tempo4=80 s4}>> a8 bes4 d4 bes4 a8( g8) a4 ~ a4 
+        bes4 bes8 bes8 c2 d2 s4 bes8( c8) 
+        d4. c8 d4 ees8( d8) c4. bes8 c4 d8( c8) 
+        bes4. a8 bes4 \set melismaBusyProperties = #'() c8( bes8) \unset melismaBusyProperties a4. g8 a4 a4 
+        g4. a8 bes4 d4 bes4( a4) g4\fermata \bar "||"  
+        % 11
+        s4 
+        d'1 ~ d2 d2 
+        bes4 bes8 bes8 c2 d2 s4 bes8( c8) 
+        d4. c8 d4 ees8 d8 c4. bes8 c4 d8 c8 
+        bes4 bes8 a8 bes4 c8( bes8) a4 a8 g8 a4 a4 
+        <<
+          { g4. a8 bes4 d4 bes4( a4) g4\fermata }
+          \new Voice="third" { \voiceThree \override NoteColumn #'force-hshift = #-1.7 d'1 d2. } 
+        >> \bar "|." 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	d4 
+        g4. d8 g4 g4 d8( cis8) d8( e8) \set melismaBusyProperties = #'() fis4 ~ fis4 \unset melismaBusyProperties 
+        g4 g8 g8 g2 fis2 s4 g8( a8) 
+        bes8( a8 g8) a8 bes4 bes8( f8) f4. g8 a4 \set melismaBusyProperties = #'() fis8( d8) \unset melismaBusyProperties 
+        d4. d8 g4 g8 ~ g8 fis4. e8 fis8( e8) fis4 
+        g4. d8 g4 bes4 g4( fis4) g4 
+        % 11
+        s4 
+        g1 ~ g2 g4( fis4) 
+        g4 g8 g8 g2 fis2 s4 g8( a8) 
+        bes8( a8 g8) a8 bes4 bes8 f8 f4. g8 a4 fis8 d8 
+        d4 d8 d8 g4 g8 ~ g8 fis4 fis8 e8 fis8( e8) fis4 
+        g4. d8 g4 bes4 g4( fis4) g4 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	d4 g4. fis8 g4 bes8( a8) g4 fis8( g8) d4 ~ d4 
+        g8( f8) ees8 d8 c8( ees8 g4) <a d,>2 r2  
+        r4 r8 d,8 g8 f8 g8 bes8 a4. g8 f4 d8( fis8) 
+        g4. f8 ees4 ees8( c8) d4. d8 d4 d4 
+        r2 g4 g8( f8) ees8( c8 d4) <g g,>4\fermata 
+        % 11
+        d4 g4 g8 a8 bes4 d4 bes4 a8 g8 a4 a4 
+        g8( f8) ees8 d8 c8( ees8 g4) <a d,>2 r2  
+        r4 r8 d,8 g8 f8 g8 bes8 a4. g8 f4 d8 fis8 
+        g4 f8 f8 ees4 ees8( c8) d4 d8 d8 d4 d4 
+        r2 g4 g8( f8) ees8( c8 d4) <g g,>4\fermata 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	r1 
+        % 11
+      }
+    >>
+  }
+
diff --git a/hr/three/lilydocs/dornwald/texte.ly b/hr/three/lilydocs/dornwald/texte.ly
new file mode 100644
index 0000000..d232cfe
--- /dev/null
+++ b/hr/three/lilydocs/dornwald/texte.ly
@@ -0,0 +1,46 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+% Die Textaufteilungen
+
+  sopranText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+    Ma -- ri -- a durch ein Dorn -- wald ging.
+    Ky -- rie e -- lei -- son.
+    Ma -- ri -- a durch ein Dorn -- wald ging,
+    der hat in sieb‘n Jahr kein Laub ge -- tra -- gen.
+    Je -- sus und Ma -- ri -- a.
+    A -- men.
+    Ky -- rie e -- lei -- son.
+    Als sie das Kind durch den Wald ge -- tra -- gen,
+    da ha -- ben die Dor -- nen Ro -- sen ge -- tra -- gen.
+    Je -- sus und Ma -- ri -- a.
+  }
+
+  altText = \lyrics {
+    %<+hier den Text für den Alt eintragen+>
+    Was trug Ma -- ri -- a un -- term Her -- zen?
+    Ky -- rie e -- lei -- son.
+    Ein klei -- nes Kind -- lein oh -- ne Schmer -- zen, das
+    trug Ma -- ri -- a un -- term Her -- zen.
+    Je -- sus und Ma -- ri -- a.
+  }
+
+  tenorText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+    _ _ _ _ _ _ _ _ 
+    _ _ _ _ _ 
+    %Ma -- ri -- a durch ein Dorn -- wald ging,
+    %der hat in sieb‘n Jahr kein Laub ge -- tra -- gen.
+    _ _ _ _ _ _ _ _ 
+    _ _ _ _ _ _ _ _
+    _ _ _ _ _ 
+    Da ha -- ben die Dor -- nen Ro -- sen ge -- tra -- gen.
+    Ky -- rie e -- lei -- son.
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+