5 files changed, 321 insertions, 0 deletions
diff --git a/hr/issi/faithful/dynArt.ly b/hr/issi/faithful/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/issi/faithful/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/issi/faithful/faithful.ly b/hr/issi/faithful/faithful.ly
new file mode 100644
index 0000000..dcb25db
--- /dev/null
+++ b/hr/issi/faithful/faithful.ly
@@ -0,0 +1,68 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "O come, all ye faithful"
+    composer = "unknown"
+    arranger = "David Willicocks"
+    %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 <<
+          \frauenPausen
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \global \voiceOne \sopranMelodie }
+          %\addlyrics { \sopranText }
+          \new Voice = "alti" { \global \voiceTwo \altMelodie }
+          \addlyrics { \comeText }
+          \addlyrics { \kommtText }
+          \addlyrics { \adesteText }
+          \addlyrics { \doodapText }
+        >>
+
+  ten = \new Staff = tenor <<
+          \maennerPausen
+          \new Voice = "tenoere" { \global \voiceOne \tenorMelodie }
+          %\addlyrics { \tenorText }
+          \new Voice = "baesse" { \global \voiceTwo \bassMelodie }
+          %\addlyrics { \bassText }
+        >>
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \sop
+      %\alt
+      \ten
+      %\bas
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/issi/faithful/midi.lua b/hr/issi/faithful/midi.lua
new file mode 100644
index 0000000..58e69da
--- /dev/null
+++ b/hr/issi/faithful/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/issi/faithful/stimmen.ly b/hr/issi/faithful/stimmen.ly
new file mode 100644
index 0000000..11e9c33
--- /dev/null
+++ b/hr/issi/faithful/stimmen.ly
@@ -0,0 +1,121 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key g \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+    \partial 4 
+  }
+
+% Die Stimmen
+
+  frauenPausen = {
+    s4 
+    s1*7 
+    s2. r4 
+  }
+
+  maennerPausen = {
+    s4 
+    s1*7 
+    s2. r4 
+    s1*3 
+    s2. r4 
+    r1 
+    %r2 r4 s4
+  }
+
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	g4 
+        g2 d4 g4 a2 d,2 
+        d'4 d4 d4 e4 d2 d4 b4 
+        b4( cis4) d4 a4 a2 d4 d,4 
+        a'2( g4.) fis8 fis2. s4 
+        d'2 c4 b4 c2 b2 
+        d4 d4 e4 e4 a,2 a4 r4 
+        r1 
+        r2 r4 d4 d1 ~ d2. d8( e8) 
+        fis4 e4 d4 c4 c4( b2) g4 
+        d'2( c4.) b8 b1 
+        \bar "||"
+      }
+    >>
+  }
+
+  altMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	g4 
+        g2 d4 g4 a2 d,2 
+        b'4 a4 b4 c4 b2 a4 g4 
+        g2 fis4 e4 fis4( g4) a4 b4 
+        fis2( e4.) d8 d2. s4 
+        d'2 c4 b4 c2 b2 
+        a4 b4 g4 a4 fis2 d4 g4 
+        g4 fis4 g4 a4 g2 d4 
+        b'4 b4 a4 b4 c4 b2 a4 
+        b4 c4 b4 a4 g4 fis2 g4( c4) 
+        b2( a4.) g8 g1 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	g4 
+        g2 d4 g4 a2 d,2 
+        g4 a4 g4 g4 g2 fis4 g4 
+        g2 a4 a4 a4( g4) fis4 e4 
+        d2( cis4.) d8 d2. s4 
+        d'2 c4 b4 c2 b2 
+        a4 g4 b4 c4 a2 fis4 s4 
+        s1 
+        r2 r4 g4 
+        g4 fis4 g4 a4 g2 fis4 g4 
+        a4 g4 fis4 e4 d4( dis4) e8( fis8 g4) 
+        g4( e4 fis4.) g8 g1 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c' {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      %\clef bass
+      {
+	g4 
+        g2 d4 g4 a2 d,2 
+	g4 fis4 g4 c,4 d2 d4 e4 
+        e2 d4 cis4 d2 d4 g,4 
+        a2 ~ a4. d8 d2. s4 
+        d'2 c4 b4 c2 b2 
+        fis4 g4 e4 c4 d2 d4 s4 
+        s1 
+        r1 
+        r1 
+        r2 r4 g4 
+        a4 g4 fis4 e4 d4( dis4) e2 
+        d2 ~ d4. g8 g1 
+      }
+    >>
+  }
+
diff --git a/hr/issi/faithful/texte.ly b/hr/issi/faithful/texte.ly
new file mode 100644
index 0000000..bae3a2d
--- /dev/null
+++ b/hr/issi/faithful/texte.ly
@@ -0,0 +1,61 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+% Die Textaufteilungen
+
+  comeText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+    O come, all ye faith -- ful,
+    Joy -- ful and tri -- um -- phant,
+    O come ye, O come ye to Beth -- le -- hem;
+    Come and be -- hold him
+    Born the King of An -- gels;
+    O come, let us a -- dore him,
+    O come, let us a -- dore him,
+    O come, let us a -- dore him,
+    Christ the Lord!
+  }
+
+  kommtText = \lyrics {
+    %<+hier den Text für den Alt eintragen+>
+    Kommt, sin -- get dem Her -- ren,
+    o ihr En -- gels -- chö -- re;
+    froh -- lok -- ket ihr Se -- li -- gen,
+    Eh~re sei Gott.
+    Eh -- re sei Gott im Him -- mel und auf Er -- den.
+    O las -- set uns an -- be -- ten
+    O las -- set uns an -- be -- ten
+    O las -- set uns an -- be -- ten
+    den Kö -- nig, den Herrn.
+  }
+
+  adesteText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+    Ad -- es -- te fi -- de -- les
+    lae -- ti tri -- um -- phan -- tes;
+    ve -- ni -- te, ve -- ni -- te in Beth -- le  -- hem.
+    Na -- tum vi -- de -- te
+    Re -- gem an -- ge -- lo -- rum.
+    Ve -- ni -- te ad -- o -- re -- mus
+    Ve -- ni -- te ad -- o -- re -- mus
+    Ve -- ni -- te ad -- o -- re -- mus
+    Do -- mi -- num.
+  }
+
+  doodapText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+    _
+    Doo -- dap
+    doop doo -- dap
+    doo -- dap doop doop doo -- dap
+    doop doo -- dap doop doo -- dap
+    doop doo -- oo dap;
+    doo -- dap doop doo -- dap
+    doo -- dap doo -- dap doo -- dap.
+    O come let us a -- dore him,
+    O come, let us a -- dore him,
+    O come, let us a -- dore him,
+    Christ the Lord!
+  }
+