5 files changed, 352 insertions, 0 deletions
diff --git a/hr/stch/fertig/himmelsbogen/dynArt.ly b/hr/stch/fertig/himmelsbogen/dynArt.ly
new file mode 100644
index 0000000..32a829e
--- /dev/null
+++ b/hr/stch/fertig/himmelsbogen/dynArt.ly
@@ -0,0 +1,38 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+    \tempo 4 = 80
+    s1\mf 
+    s1*3 
+    \break
+    s1*4 
+    \break
+    s1*4 
+    \break
+    s1*5 
+    %s2.\fermata s4 
+    s2. s4 
+  }
+
+% articulation
+
+    sopranArt = {
+      s1*4 
+      s1*4 
+      s1*4 
+      s1*4 
+      s4 s4^\markup { \italic "rit." } s2 
+      s1 
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/stch/fertig/himmelsbogen/himmelsbogen.ly b/hr/stch/fertig/himmelsbogen/himmelsbogen.ly
new file mode 100644
index 0000000..33f936d
--- /dev/null
+++ b/hr/stch/fertig/himmelsbogen/himmelsbogen.ly
@@ -0,0 +1,77 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Steigt der Mond am Himmelsbogen"
+    composer = "aus Wales"
+    arranger = "Karl-Josef Müller"
+    translator = "Helmut König"
+    %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 Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          { \meta }
+          \new Voice = "soprane" { \voiceOne \sopranMelodie }
+          \new Voice = "alti" { \voiceTwo \altMelodie }
+          %\addlyrics { \sopranText }
+        >>
+
+  alt = <<
+          \new Voice = "alti" { \altMelodie }
+          %\addlyrics { \altText }
+        >>
+
+  ten = <<
+          \new Voice = "tenoere" { \tenorMelodie }
+          %\addlyrics { \tenorText }
+        >>
+
+  bas = <<
+          { \meta }
+          \new Voice = "tenoere" { \voiceOne \tenorMelodie }
+          \new Voice = "baesse" { \voiceTwo \bassMelodie }
+          %\addlyrics { \stzI }
+          %\addlyrics { \stzII }
+        >>
+
+  \score {
+    \new ChoirStaff \with { printPartCombineTexts = ##f } <<
+      \new Staff = sopran { \global \sop }
+      \new Lyrics \lyricsto soprane \stzI
+      \new Lyrics \lyricsto soprane \stzII
+      %\new Staff = alt { \global \alt }
+      %\new Staff = tenor { \global \ten }
+      \new Staff = bass { \global \bas }
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/stch/fertig/himmelsbogen/midi.lua b/hr/stch/fertig/himmelsbogen/midi.lua
new file mode 100644
index 0000000..8d7d5be
--- /dev/null
+++ b/hr/stch/fertig/himmelsbogen/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..[[ <<
+      %\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/himmelsbogen/stimmen.ly b/hr/stch/fertig/himmelsbogen/stimmen.ly
new file mode 100644
index 0000000..a4d4eaa
--- /dev/null
+++ b/hr/stch/fertig/himmelsbogen/stimmen.ly
@@ -0,0 +1,137 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key a \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    \autoBeamOff
+    %\set Staff.melismaBusyProperties
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c' {
+    <<
+      % { \meta }
+      \sopranArt
+      %the actual tune
+      {
+	a'4. gis8 fis4 a4 
+        b4. a8 gis4 e4 
+        fis2 gis4. gis8 
+        a2 r2 
+        a4. gis8 fis4 a4 
+        b4. a8 gis4 e4 
+        fis2 gis4. gis8 
+        a2. r4 
+        d4 cis4 d4 e4 
+        fis4 e4 d4 cis4 
+        d4 cis4 b4 a4 
+        cis4 b4 a4 gis4 
+        a4. gis8 fis4 a4 
+        b4. a8 gis4 e4 
+        fis2 gis4. gis8 
+        a2. r4 
+        fis2 gis4. gis8 
+        a2.\fermata r4 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      % { \meta }
+      %\altArt
+      %the actual tune
+      {
+	e4. e8 d4 e4 
+        dis4 fis4 e4 e4 
+        d2 d4. d8 
+        cis4( e4 fis8[ e8] d4) 
+        cis8[ e8] eis4 fis4 e4 
+        dis8[ e8] fis4 e4 e4 
+        fis8([ e8] dis4) e4. d8 
+        cis4( d4 e8[ fis8] g4) 
+        fis4 g4 a4 b4 
+        ais4 fis4 fis4 fis4 
+        fis4 g4 fis4 fis4 
+        e4 fis4 e4 d4 
+        cis8[ e8] eis4 fis4 e4 
+        d8[ e8] fis4 e4 e4 
+        d2 d4. d8 
+        cis2. r4 
+        d2 d8[ fis8 d8] d8 
+        cis2. r4 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      % { \meta }
+      %\tenorArt
+      %the actual tune
+      %\clef "treble_8"
+      {
+	cis4. b8 a4 a4 
+        fis4 b4 b4 gis4 
+        a2 b4. b8 
+        a2.( gis4) 
+        a8[ cis8] b4 a4 a4 
+        fis4 b4 b4 gis4 
+        b2 b8[ d8 cis8] b8 
+        a4( b4 cis8[ d8] e4) 
+        d4 a4 d4 d4 
+        e4 cis4 b4 ais4 
+        b4 ais4 b4 b4 
+        a4 d4 cis4 b4 
+        a8[ cis8] b4 a4 a4 
+        fis4 b4 b4 gis4 
+        a2 b4. b8 
+        a2. r4 
+        a4( b4) b8[ d8 cis8] b8 
+        a2.\fermata r4 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      % { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+        \autoBeamOff
+        \repeat volta 2 {
+          a4 cis4 d4 cis4 
+          b4 dis4 e4 e4 
+          d4( cis4) b4 e4 
+          a,4( cis4 d4 e4) 
+          a,4 cis4 d4 cis4 
+          b8[ cis8] dis4 e4 e4 
+          dis8([ cis8] b4) e4 e4 
+          a,2.( cis4) 
+          d4 e4 fis4 g4 
+          fis4 ais,4 b4 cis4 
+          b4 cis4 d4 dis4 
+          e2 e2 
+          a,4 cis4 d4 cis4 
+          b8[ cis8] dis4 e4 e4 
+        } \alternative {
+          {
+            d4( cis4) b4 e4 a,2. r4 
+          }
+          {
+            d8( cis8 b4) e4 e4 
+            <e a,>2. r4 
+          }
+        }
+        \bar "|." 
+      }
+    >>
+  }
+
diff --git a/hr/stch/fertig/himmelsbogen/texte.ly b/hr/stch/fertig/himmelsbogen/texte.ly
new file mode 100644
index 0000000..039c71e
--- /dev/null
+++ b/hr/stch/fertig/himmelsbogen/texte.ly
@@ -0,0 +1,49 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  wann = \lyricmode {
+    in dunk -- ler Nacht,
+  }
+  Wann = \lyricmode {
+    in dunk -- ler Nacht.
+  }
+  stzI = \lyrics {
+    \set stanza = "1. "
+    Steigt der Mond am Him -- mels -- bo -- gen \wann
+    kom -- men Ster -- ne her -- ge -- zo -- gen \Wann
+    Und der Tag ver -- klingt nun lei -- se,
+    singt noch sei -- ne letz -- te Wei -- se,
+    %singt noch sei -- ne Wei -- se,
+    geht dann auf die gro -- ße Rei -- se \Wann
+  }
+  stzII = \lyrics {
+    \set stanza = "2. "
+    Und die Ster -- ne in der Run -- de \wann
+    leuch -- ten uns die spä -- te Stun -- de \Wann
+    Al -- le Zu -- kunft ist ver -- bor -- gen,
+    doch das Herz mit sei -- nen Sor -- gen
+    %doch das Herz mit Sor -- gen
+    war -- tet wie -- der auf den Mor -- gen
+    _ _ _ _
+    \Wann
+  }
+
+% Die Textaufteilungen
+
+  sopranText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+  }
+
+  altText = \lyrics {
+    %<+hier den Text für den Alt eintragen+>
+  }
+
+  tenorText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+