Hauke eingefügt

5 files changed, 362 insertions, 0 deletions

diff --git a/hr/stch/fertig/spirit/dynArt.ly b/hr/stch/fertig/spirit/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/stch/fertig/spirit/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/spirit/midi.lua b/hr/stch/fertig/spirit/midi.lua
new file mode 100644
index 0000000..8d7d5be
--- /dev/null
+++ b/hr/stch/fertig/spirit/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/spirit/spirit.ly b/hr/stch/fertig/spirit/spirit.ly
new file mode 100644
index 0000000..6b60223
--- /dev/null
+++ b/hr/stch/fertig/spirit/spirit.ly
@@ -0,0 +1,79 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Ev’ry time I feel the spirit"
+    %composer = "<+Komponist+>"
+    arranger = "William L. Dawson"
+    %opus = "<+Werk+>"
+    tagline = ""
+  }
+
+  \paper {
+    line-width = \paper-width - 30
+    top-margin = 10
+    bottom-margin = 10
+    ragged-last-bottom = #'f
+  }
+
+  \layout {
+    indent = #0
+    \context {
+      \Staff
+      \RemoveEmptyStaves
+      \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3.5)
+      \override VerticalAxisGroup #'remove-first = ##t
+    }
+  }
+
+  %#(set-global-staff-size 17)
+
+  sol = <<
+    \new Voice = "soloVoice" { \solo }
+    %\addlyrics { \soloBla }
+  >>
+  sop = <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \sopranMelodie }
+          %\addlyrics { \sopranText }
+        >>
+
+  alt = <<
+          \new Voice = "alti" { \altMelodie }
+          %\addlyrics { \altText }
+        >>
+
+  ten = <<
+          \new Voice = "tenoere" { \tenorMelodie }
+          %\addlyrics { \tenorText }
+        >>
+
+  bas = <<
+          \new Voice = "baesse" { \bassMelodie }
+          \addlyrics { \bassText }
+        >>
+
+  \score {
+    <<
+      \new Staff = solo { \global \sol } 
+      \new Lyrics = soloText \lyricsto soloVoice \soloBla
+      \new ChoirStaff \with {} <<
+        %\new Staff = sopran { \global \sop }
+        %\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/spirit/stimmen.ly b/hr/stch/fertig/spirit/stimmen.ly
new file mode 100644
index 0000000..b47fc7d
--- /dev/null
+++ b/hr/stch/fertig/spirit/stimmen.ly
@@ -0,0 +1,141 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key ees \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+    \partial 4.
+  }
+
+% Die Stimmen
+
+  solo = \relative c {
+    \clef "bass" 
+    r4. 
+    \repeat unfold 7 { r1 } 
+    \break
+    r2 r8 bes8 c8 ees8 
+    g4 g4. c,8. ees8. 
+    g2 ~ g8 bes,8 c8 ees8 
+    bes'4 g4. f4 g8 
+    ees2 ~ ees8 bes8 c8 ees8 
+    g4 g4. bes,8 c8 ees8 
+    g2 ~ g8 bes,8 c8 ees8 
+    bes'4 g4. g8 f8 g8 
+    ees2 ~ ees8 r4. 
+    \break
+    \repeat unfold 7 { r1 } 
+    \break
+    r2 r8 c8. ees8. 
+    g4 g4 ~ g8 bes,8 c16 c16 ees8 
+    g2 ~ g8 bes,8 c8 ees8 
+    bes'4 g4. g8 f8 g8 
+    ees2 ~ ees8 bes8 c8 ees8 
+    g4 g4. bes,8 c8 ees8 
+    g2 ~ g8 bes,8 c8 ees8 
+    bes'4 g4. f8. g8. 
+    ees2 ~ ees8 r4. 
+    \break
+  }
+
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	r1 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	r1 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	r1 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	ees4 ees8 
+        % \repeat volta 2 {
+        % }
+        aes4 aes4. aes4 aes8 
+        ees4 ees4. ees4 ees8 
+        bes8 bes8 c4. bes4 bes8 
+        ees2 ~ ees8 ees8 f8 g8 
+        aes4 aes4. aes4 aes8 
+        ees4 ees4. ees4 ees8 
+        bes8 bes8 c4. bes4 bes8 
+        ees2 ~ ees8 r8 r4 
+        ees,2. r4 
+        ees2. r4 
+        ees1 ~ 
+        ees2 ~ ees8 r4. 
+        ees2. r4 
+        ees2. r4 
+        ees1 ~ 
+        ees2 ~ ees8 ees'4 ees8 
+        aes4 aes4. aes4 aes8 
+        g4 g4. ees4 bes8 
+        b8 b8 c4. bes4 bes8 
+        bes'4( aes4 g8) ees8 f8 g8 
+        aes4 aes4. a4 a8 
+        bes8( aes8) g4. ees4 ees8 
+        ees8 ees8 aes,4. bes4 bes8 
+        ees2 ~ ees8 r4. 
+        ees,2. r4 
+        ees2. r4 
+        ees1 ~ 
+        ees2 ~ ees8 r4. 
+        ees2. r4 
+        ees2. r4 
+        ees1 ~ 
+        ees2 ~ ees8 r4. 
+        aes'4 g4 f2 
+        g4 f4 ees4 d4 
+        c4 g4 aes4 bes4 
+        c4 d4 ees2 
+        aes4 g4 f2 
+        bes4 aes4 g4. r8 
+        ees8 d8 c8 bes8 aes4 bes4 
+        bes8 c8 bes8 aes8 g8 r4. 
+        aes'8 bes8 aes8 g8 f8 f8 f8 f8 
+        g8 aes8 g8 f8 ees4( g,4) 
+        bes4 b8( d8) c4 f,4 
+        bes8 a8 bes8 c8 d8 ees8 f8( g8) 
+        aes8 bes8 c8 bes8 aes8 g8 f8 aes8 
+        g8 aes8 bes8 aes8 g8 f8 ees8 g8 
+        bes8 b8 c4\fermata r8 bes4 bes8 
+        ees,2 ~ ees8\fermata 
+        \bar "|." 
+      }
+    >>
+  }
+
diff --git a/hr/stch/fertig/spirit/texte.ly b/hr/stch/fertig/spirit/texte.ly
new file mode 100644
index 0000000..6f383e6
--- /dev/null
+++ b/hr/stch/fertig/spirit/texte.ly
@@ -0,0 +1,70 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+% Die Textaufteilungen
+
+  soloBla = \lyrics {
+    Up -- on the moun -- tain
+    my Lord spoke,
+    Out of His mouth came
+    fire and smoke;
+    Looked all a -- round me,
+    It looked so fine,
+    till I asked my Lord
+    if all was mine.
+    %
+    Jor -- dan ri -- ver
+    is chil -- ly and cold,
+    It chills the bo -- dy,
+    but not the soul;
+    There ain’t but one train
+    up -- on this track,
+    it runs to heav -- en
+    an’ right back.
+  }
+
+  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+>
+    Ev -- ’ry time I feel the spir -- it,
+    Mov -- ing in my heart,
+    I will pray;
+    Yes, Ev -- ’ry time I feel the spir -- it,
+    Mov -- ing in my heart,
+    I will pray,
+    Hum _ _ _ _ _
+    Ev -- ’ry time I feel the spir -- it,
+    Mov -- ing in my heart,
+    I will pray;
+    Yes, Ev -- ’ry time I feel the spir -- it,
+    Mov -- ing in my heart,
+    I will pray.
+    Hum _ _ _ _ _
+    I will pray,
+    ev -- ’ry time I feel the spi -- rit, I will pray,
+    I will pray,
+    I will pray,
+    Ev -- ’ry time I feel the spi -- rit, I will pray,
+    Ev -- ’ry time I feel the spi -- rit,
+    Mov -- ing in my heart,
+    Oh, the spir -- it
+    mov -- ing in my heart,
+    Oh, yes
+    Ev -- ’ry time I feel the spi -- rit,
+    Mov -- ing in my heart,
+    oh, mov -- ing in my heart,
+    I will pray.
+  }
+