Hauke eingefügt

11 files changed, 233 insertions, 0 deletions

diff --git a/hr/stch/fertig/blessing/alt/blessing.ps b/hr/stch/fertig/blessing/alt/blessing.ps
new file mode 100644
index 0000000..25cc9e3
--- /dev/null
+++ b/hr/stch/fertig/blessing/alt/blessing.ps
diff --git a/hr/stch/fertig/blessing/blessing.ly b/hr/stch/fertig/blessing/blessing.ly
new file mode 100644
index 0000000..58fa1aa
--- /dev/null
+++ b/hr/stch/fertig/blessing/blessing.ly
@@ -0,0 +1,63 @@
+% vim: nu
+
+\version "2.12.1"
+\include "stimmen.ly"
+\include "texte.ly"
+     
+  \header {
+    title = "An Irish Blessing"
+    subtitle = "(Traditional)"
+    composer = "James E. Moore"
+  }
+#(set-global-staff-size 17)
+
+  \paper {
+    ragged-last-bottom = ##f
+    system-count = 4
+    line-width = 180\mm
+    between-system-space = 1\mm
+    after-title-space = 0\mm
+    foot-separation = 5\mm
+    top-separation = 0\mm
+    top-margin = 0\mm
+    bottom-margin = 10\mm
+  }
+
+  \midi {
+  }
+
+  \layout {
+    indent = #0
+    \context {
+      % a little smaller so lyrics can be closer to the staff
+      \Staff
+      \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 2)
+    }
+  }
+
+  \score {
+    \unfoldRepeats
+    %\simultaneous
+    \new ChoirStaff <<
+      \new Staff = Frauen <<
+	\new Voice = "meta"
+	{ s1*8 \repeat volta 2 { s1*2 s1*2 } \alternative {{s1} {s1} {}} \bar "|." }
+	\new Voice = "soprane" { \voiceOne \global \sopranMelodie }
+	%\lyricsto soprane \sopranText
+      %>>
+      %\new Staff = Alt <<
+	\new Voice = "alti" { \voiceTwo \global \altMelodie }
+	\lyricsto alti \altText
+      >>
+      \new Staff = Tenor <<
+	\new Voice = "tenoere" { \global \tenorMelodie }
+	\lyricsto tenoere \tenorText
+      >>
+      \new Staff = Bass <<
+	\new Voice = "baesse" { \global \bassMelodie }
+	\lyricsto baesse \bassText
+      >>
+    >>
+    \midi {
+    }
+  }
diff --git a/hr/stch/fertig/blessing/blessing.midi b/hr/stch/fertig/blessing/blessing.midi
new file mode 100644
index 0000000..a691611
--- /dev/null
+++ b/hr/stch/fertig/blessing/blessing.midi
diff --git a/hr/stch/fertig/blessing/blessing.ps b/hr/stch/fertig/blessing/blessing.ps
new file mode 100644
index 0000000..cbb8831
--- /dev/null
+++ b/hr/stch/fertig/blessing/blessing.ps
diff --git a/hr/stch/fertig/blessing/midi.lua b/hr/stch/fertig/blessing/midi.lua
new file mode 100644
index 0000000..fefb60b
--- /dev/null
+++ b/hr/stch/fertig/blessing/midi.lua
@@ -0,0 +1,51 @@
+ -- 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 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..[[ { \global <<
+      %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+      \new Voice = "]]..map[stimme]..[[" { \]]..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/blessing/midis/a.midi b/hr/stch/fertig/blessing/midis/a.midi
new file mode 100644
index 0000000..9e3a7b2
--- /dev/null
+++ b/hr/stch/fertig/blessing/midis/a.midi
diff --git a/hr/stch/fertig/blessing/midis/b.midi b/hr/stch/fertig/blessing/midis/b.midi
new file mode 100644
index 0000000..bc30a05
--- /dev/null
+++ b/hr/stch/fertig/blessing/midis/b.midi
diff --git a/hr/stch/fertig/blessing/midis/s.midi b/hr/stch/fertig/blessing/midis/s.midi
new file mode 100644
index 0000000..687398a
--- /dev/null
+++ b/hr/stch/fertig/blessing/midis/s.midi
diff --git a/hr/stch/fertig/blessing/midis/t.midi b/hr/stch/fertig/blessing/midis/t.midi
new file mode 100644
index 0000000..5c4f1cf
--- /dev/null
+++ b/hr/stch/fertig/blessing/midis/t.midi
diff --git a/hr/stch/fertig/blessing/stimmen.ly b/hr/stch/fertig/blessing/stimmen.ly
new file mode 100644
index 0000000..df3dd36
--- /dev/null
+++ b/hr/stch/fertig/blessing/stimmen.ly
@@ -0,0 +1,81 @@
+% vim: nu
+
+global = {
+  \key bes \major
+  \time 4/4
+}
+
+%Die Stimmen mit ihren jeweiligen Textaufteilungen
+
+  sopranMelodie = \relative c' {
+    d8 f8 bes4 ees4. d8 c4 f,2 f8 f8
+    g4. g8 f8 f8 f8 ees8 f2. f8 f8 
+    g4. g8 f4. g8 a4( g8 ) a8 bes4. bes8
+    bes4. bes8 bes8 bes8 a8 bes8 c2. f,8 f8
+    \repeat volta 2 {
+      g8 g8 f8 f8 f4. f8 d'8 d8 c8 d8 bes4. bes8
+      ees2 ees8 d8 c8 bes8 f2. ees8 f8
+    } \alternative {
+      {
+	f2. f8 f8 
+      }
+      {
+	f1 
+      }
+    }
+  }
+
+  altMelodie = \relative c' {
+    d8 c8 d4 ees4. ees8 ees4 f4( ees4 ) c8 d8
+    f4( ees8 ) ees8 ees8 d8 c8 ees8 c4( d2 ) c8 d8
+    f4( ees8 ) ees8 c4( d8 ) d8 d4. d8 a'4( g8 ) f8
+    ees8( a8( g8 ) ) f8 ees8 ees8 f8 g8 ees4( g4( f4 ) ) f8 f8
+    \repeat volta 2 {
+      f8 ees8 c8 c8 c4( d8 ) d8 a'8 a8 a8 a8 a4( g8 ) f8
+      ees8 a8 bes8( c8 ) f,8 f8 g8 g8 ees2. ees8 c8
+    } \alternative {
+      {
+	c4( d2 ) f8 f8 
+      }
+      {
+	c4( d2. ) 
+      }
+    }
+  }
+
+  tenorMelodie = \relative c' {
+    f8 d8 a'4 g4. g8 a4 a4( g4 ) g8 a8
+    bes4. bes8 g8 a8 bes8 a8 f2. bes8 bes8
+    bes4. bes8 a4( bes8 ) bes8 c4. c8 d4. d8
+    g,8( c8 bes8 ) a8 g8 c8 bes8 c8 bes2( a4 ) f8 f8
+    \repeat volta 2 {
+      bes8 bes8 a8 a8 a4( bes8 ) bes8 c8 d8 ees8 d8 d4. d8
+      bes8 c8 bes8( a8 ) a8 bes8 bes8 c8 bes4( g4( a4 ) ) a8 a8
+    } \alternative {
+      {
+	f2. f8 f8 
+      }
+      {
+	f1 
+      }
+    }
+  }
+
+  bassMelodie = \relative c {
+    \clef bass
+    bes8 bes8 bes4 bes4. bes8 bes4 bes2 bes8 bes8
+    ees4. ees8 f8 f8 f8 f8 bes,2. d8 d8
+    ees4. ees8 d4. d8 fis4( e8 ) fis8 g4. g8
+    c,4. c8 c8 c8 d8 e8 f2. f8 f8
+    \repeat volta 2 {
+      ees8 ees8 ees8 ees8 d4. d8 fis8 fis8 fis8 fis8 g4. g8
+      c,2 d8 d8 ees8 ees8 f2. f8 f8
+    } \alternative {
+      {
+	bes,2. f'8 f8 
+      }
+      {
+	bes,1 
+      }
+    }
+  }
diff --git a/hr/stch/fertig/blessing/texte.ly b/hr/stch/fertig/blessing/texte.ly
new file mode 100644
index 0000000..2f3eb92
--- /dev/null
+++ b/hr/stch/fertig/blessing/texte.ly
@@ -0,0 +1,38 @@
+%some settings% vim: ai sw=2 lbr nu 
+
+% Abkürzungen
+
+% Die Textaufteilungen
+
+  sopranText = \lyrics {
+    May the road rise to meet you. May the wind be al -- ways at your back.
+    May the sun shine warm up -- on__ your face, the rains fall soft
+    up -- on your fields,
+    and un -- til we meet a -- gain, un -- til we meet a -- gain,
+    may God hold you in the palm of His hand, and un --  hand.
+  }
+
+  altText = \lyrics {
+    May the road rise to meet you. May the wind be al -- ways at your back.
+    May the sun shine warm up -- on your face, the rains fall soft
+    up -- on your fields,
+    and un -- til we meet a -- gain, un -- til we meet a -- gain,
+    may God, may God hold you in the palm of His hand, and un --  hand.
+  }
+
+  tenorText = \lyrics {
+    May the road rise to meet you. May the wind be al -- ways at your back.
+    May the sun shine warm up -- on your face, the rains fall soft
+    up -- on your fields,
+    and un -- til we meet a -- gain, un -- til we meet a -- gain,
+    may God, may God hold you in the palm of His hand, and un --  hand.
+  }
+
+  bassText = \lyrics {
+    May the road rise to meet you. May the wind be al -- ways at your back.
+    May the sun shine warm up -- on your face, the rains fall soft
+    up -- on your fields,
+    and un -- til we meet a -- gain, un -- til we meet a -- gain,
+    may God hold you in the palm of His hand, and un --  hand.
+  }
+