Hauke eingefügt

5 files changed, 664 insertions, 0 deletions

diff --git a/hr/issi/fix/dynArt.ly b/hr/issi/fix/dynArt.ly
new file mode 100644
index 0000000..07e4b53
--- /dev/null
+++ b/hr/issi/fix/dynArt.ly
@@ -0,0 +1,114 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+    s1*8 \break
+    s1*8 \break
+    s1*8 \break
+    s1*8 \break
+    s1*8 \break
+    s1*8 \break
+    s1*8 \break
+  }
+
+% articulation
+
+    choirArt = {
+      s1*2 
+      s1 
+      s1*3 
+      s1*2 
+      s1\p 
+      s1*7 
+      s1\p 
+      s1*7 
+      s1\mf 
+      s1*3 
+      s1\p 
+      s1 
+      s4\< s2 s4\! 
+      s4\> s2\! s4 
+      s1*16 
+      s1\p 
+      s1*5 
+      s1\pp 
+      s4-> s2. 
+    }
+
+    sopranArt = << \choirArt {
+      s1*2 
+      s1\p 
+      s1*3 
+      s1*2 
+      s1*8 
+      s1*8 
+      s1*2 
+      s2. s4-- 
+      s1*5 
+      s1*16 
+      s1*8 
+    } >>
+
+    altArt = << \choirArt {
+      s1*2 
+      s1\p 
+      s1*3 
+      s1*2 
+      s1*8 
+      s1*8 
+      s1*2 
+      s2. s4-- 
+      s1*5 
+      s1*16 
+      s1*8 
+    } >>
+
+    tenorArt = << \choirArt {
+      s1*2 
+      s1\p 
+      s1*3 
+      s1*2 
+      s1*8 
+      s1*8 
+      s1*2 
+      s2. s4-- 
+      s1*5 
+      s1*2 
+      s4\< s2 s4\! 
+      s4\> s2\! s4 
+      s1*6 
+      s2. s4-- 
+      s1 
+      s1\pp 
+      s1*3 
+      s1*8 
+    } >>
+
+    bassArt = << \choirArt {
+      s1 
+      s2 s2\p 
+      s1*3 
+      s2 s2-> 
+      s1*2 
+      s1*5 
+      s2 s2-> 
+      s1*2 
+      s1*8 
+      s1*5 
+      s2 s2-> 
+      s1*2 
+      s1*2 
+      s4\< s2 s4\! 
+      s4\> s2\! s4 
+      s1*6 
+      s2. s4-- 
+      s1 
+      s1\pp 
+      s2 s2-> 
+      s1*2 
+      s1*5 
+      s2 s2-> 
+      s1*2 
+    } >>
+
diff --git a/hr/issi/fix/fix.ly b/hr/issi/fix/fix.ly
new file mode 100644
index 0000000..51d9489
--- /dev/null
+++ b/hr/issi/fix/fix.ly
@@ -0,0 +1,76 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.12"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Fix me, Jesus"
+    %composer = "<+Komponist+>"
+    arranger = "Hall Johnson"
+    %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)
+
+  sop = \new Staff = sopran <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \global \sopranMelodie }
+          \addlyrics { \sopranText }
+        >>
+  alt = \new Staff = alt <<
+          \new Voice = "alti" { \global \altMelodie }
+          \addlyrics { \altText }
+        >>
+  ten = \new Staff = tenor \with { printPartCombineTexts = ##f } <<
+          \new Voice = "tenoere" { \global \tenorMelodie }
+          \new Lyrics \lyricsto "tenoere" { \tenorText }
+        >>
+  bas = \new Staff = bass \with { printPartCombineTexts = ##f } <<
+          \new Voice = "baesse" { \global \bassMelodie }
+          \addlyrics { \bassText }
+        >>
+  \score {
+    <<
+      \new Staff = sopranSolo { \global \sopSolo } \addlyrics \sopSoloText
+      \new Staff = baritonSolo { \global \barSolo } \addlyrics \barSoloText
+      \new ChoirStaff \with {} <<
+        \sop
+        \alt
+        \ten
+        \bas
+      >>
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+      \context {
+        \Staff \RemoveEmptyStaves
+      }
+      \context {
+        \Staff 
+          \override VerticalAxisGroup #'remove-first = ##t
+      }
+    }
+  }
+
diff --git a/hr/issi/fix/midi.lua b/hr/issi/fix/midi.lua
new file mode 100644
index 0000000..58e69da
--- /dev/null
+++ b/hr/issi/fix/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/fix/stimmen.ly b/hr/issi/fix/stimmen.ly
new file mode 100644
index 0000000..32e12a2
--- /dev/null
+++ b/hr/issi/fix/stimmen.ly
@@ -0,0 +1,313 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key f \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 2/2
+    %\autoBeamOff
+    \override BreathingSign #'text = \markup {
+      \musicglyph #"scripts.caesura.curved"
+    }
+  }
+
+% Die Stimmen
+
+  sopSolo = \relative c' {
+    <<
+      { \meta }
+      %\soloArt
+      %the actual tune
+      {
+        f2.(\p^\markup{ \bold "Slow, but strict" } a4) g4 f2 r4 
+        c'2.( f4) d4 c2 r4 
+        f,2.( a4) g4 f2 r4 
+        f4 f4 d4 f4 g4 f2 r4 
+        \repeat unfold 8 { r1 } 
+        %\repeat unfold 2 {
+          a4\mp a4 a4 f4 a4 a4 f2 ~ 
+          f1 r1 
+          a4 a4 a4 f4 a4 a4 f2 ~ 
+          f1 r1 
+        %}
+        r1 
+        r1 
+        s1*6 
+        %c'2.( f4) d4 c2 r4 
+        %f,2.( a4) g4 f2 r4 
+        %f4 f4 d4 f4 g4 f2 r4 
+        f'2(\p e2 d2 a2) 
+        f4\< f4 d4 f4\! g4\> f2\! r4 
+        f'2(\p e2 d2 a2) 
+        f4 f4 d4 f4 g4 f2 r4 
+        \repeat unfold 8 { r1 } 
+        f2.(\mp a4) g4 f2 r4 
+        c'2.( f4\fermata) d4 c2 r4 
+        f,2.( a4) g4 f2 r4 
+        f4\pp f4 d4 f4\breathe g4 f2 r4 
+      }
+    >>
+  }
+  barSolo = \relative c' {
+    <<
+      { \meta }
+      %\soloArt
+      %the actual tune
+      {
+        \clef "bass" 
+        \repeat unfold 32 { r1 } 
+        a4\p a4 a4 f4 a4 a4 f2 ~ 
+        f1 r1 
+        a4\p a4 a4 f4 a4 a4 f2 ~ 
+        f1 r1 
+        \repeat unfold 16 { r1 } 
+      }
+    >>
+  }
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      \sopranArt
+      %the actual tune
+      {
+	r1 
+        r1 
+        c2.( f4 d4 c2) r4 
+        f,2.( a4 g4 f2) r4 
+        f4( f4 d4 f4 g4 f2) r4 
+        \repeat unfold 2 {
+          f2.( a4) g4 f2 r4 
+          c'2.( f4) d4 c2 r4 
+          f,2.( a4) g4 f2 r4 
+          f4 f4 d4 f4 g4 f2 r4 
+        } \alternative {
+          \repeat unfold 2 {
+            <<
+              {
+                \voiceOne 
+                f'2( e2 d2 a2) 
+              }
+              \new Voice {
+                \voiceTwo 
+                a4( a4 a4 f4 a4 a4 f2) 
+              }
+            >>
+            \oneVoice 
+            f4 f4 d4 f4 g4 f2 r4 
+          }
+          {
+          }
+        }
+        \repeat unfold 4 { r1 } 
+        \repeat unfold 12 { r1 } 
+        f2.( a4 g4 f2) r4 
+        c'2.( f4\fermata d4 c2) r4 
+        f,2.( a4 g4 f2) r4 
+        f4 f4 d4 f4\breathe g4 f2 r4 
+        \bar "|." 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      \altArt
+      %the actual tune
+      {
+	r1 
+        r1 
+        f2.( a4 gis4 a2) r4 
+        d,2.( f4 e4 d2) r4 
+        d4( d4 d4 d4 e4 c2) r4 
+        \repeat unfold 2 {
+          c2.( e4) d4 c2 r4 
+          f2.( a4) gis4 a2 r4 
+          d,2.( f4) e4 d2 r4 
+          d4 d4 d4 d4 e4 c2 r4 
+        } \alternative {
+          \repeat unfold 2 {
+            c2( cis2 d2 ees2) 
+            d4 d4 d4 d4 e4 c2 r4 
+          }
+          {
+          }
+        }
+        \repeat unfold 4 { r1 } 
+        \repeat unfold 12 { r1 } 
+        c2.( e4 d4 c2) r4 
+        f2.( a4\fermata gis4 a2) r4 
+        d,2.( f4 e4 d2) r4 
+        d4 d4 d4 d4\breathe e4 c2 r4 
+      }
+    >>
+  }
+  
+  tenorAMelodie = \relative c' {
+    <<
+      { \meta }
+      \tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+        \global
+	r1 
+        r1 
+        c2.( f4 f4 f2) r4 
+        a,2.( c4 bes4 a2) r4 
+        bes4( a4 g4 a4 bes4 a2) r4 
+        \repeat unfold 2 {
+          a2.( c4) bes4 a2 r4 
+          c2.( f4) f4 f2 r4 
+          a,2.( c4) bes4 a2 r4 
+          bes4 a4 g4 a4 bes4 a2 r4 
+        } \alternative {
+          \repeat unfold 2 {
+            a2( bes2 b2 c2) 
+            bes4 a4 g4 a4 bes4 a2 r4 
+          }
+          {
+          }
+        }
+        c2( cis2 d2 ees2) 
+        bes4 a4 g4 a4 bes4 a2 r4 
+        c2( cis2 d2 ees2) 
+        bes4 a4 g4 a4 bes4 a2 r4 
+        a2.( c4) bes4 a2 r4 
+        c2.( f4) d4 s2 s4 
+        a2.( c4) bes4 a2 r4 
+        bes4 a4 g4 a4 bes4 a2 r4 
+        a2.( c4 bes4 a2) r4 
+        c2.( f4\fermata f4 f2) r4 
+        a,2.( c4 bes4 a2) r4 
+        bes4 a4 g4 a4\breathe bes4 a2 r4 
+      }
+    >>
+  }
+
+  tenorBMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+        \global
+	r1 
+        r1 
+        a2.( c4 b4 c2) r4 
+        f,2.( a4 g4 f2) r4 
+        f4( f4 d4 f4 g4 f2) r4 
+        \repeat unfold 2 {
+          f2.( a4) g4 f2 r4 
+          a2.( c4) b4 c2 r4 
+          f,2.( a4) g4 f2 r4 
+          f4 f4 d4 f4 g4 f2 r4 
+        } \alternative {
+          \repeat unfold 2 {
+            a4( a4 a4 f4 a4 a4 f2) 
+            f4 f4 d4 f4 g4 f2 r4 
+          }
+          {
+          }
+        }
+        a2( bes2 b2 c2) 
+        f,4 f4 d4 f4 g4 f2 r4 
+        a2( bes2 b2 c2) 
+        f,4 f4 d4 f4 g4 f2 r4 
+        f2.( a4) g4 f2 r4 
+        a2.( c4) b4 c2 r4 
+        f,2.( a4) g4 f2 r4 
+        f4 f4 d4 f4 g4 f2 r4 
+        f2.( a4 g4 f2) r4 
+        a2.( c4\fermata b4 c2) r4 
+        f,2.( a4 g4 f2) r4 
+        f4 f4 d4 f4\breathe g4 f2 r4 
+      }
+    >>
+  }
+
+  tenorMelodie = \relative c' {
+    << {
+      \tenorAMelodie
+    } {
+      \tenorBMelodie
+    } >>
+  }
+
+  bassAMelodie = \relative c {
+        \repeat unfold 2 { 
+          a'2.( f4 a2 f2)
+          d4 d4 d4 d4 e4 c2 r4 
+        }
+            c2.( e4) 
+            d4 c4 
+        d4 c4 
+            %\voiceOne
+            f2.( a4) 
+            gis4 a2 r4 
+            d,2.( f4) e4 d2 r4 
+            %\oneVoice
+            d4 d4 d4 d4 e4 c2 
+  }
+  bassBMelodie = \relative c {
+        \repeat unfold 2 { 
+          f1( ~ f2 f,2) 
+          bes4 bes4 b4 b4 c4 f,2 r4 
+        }
+            f1 
+            f4 f4 
+        d'4 c4 
+            %\voiceTwo
+            f1 
+            f4 f4 f4 e4 
+            d1 
+            cis4 d4 c2 
+            %\oneVoice
+            bes4 bes4 b4 b4 c4 f,2 
+  }
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      \bassArt
+      %the actual tune
+      {
+      \clef bass
+	r1 
+        r2 d4( c4 
+        f1 f4 f4 f4 e4) 
+        d1( cis4 d4 c2) 
+        bes4( bes4 b4 b4 c4 <c f,>2) r4 
+        \repeat unfold 2 {
+          f1 f4 f4 d4 c4 
+          f1 f4 f4 f4 e4 
+          d1 cis4 d4 c2 
+          bes4 bes4 b4 b4 c4 <c f,>2 r4 
+        } \alternative {
+          \repeat unfold 2 {
+            <<
+              \new Voice { \voiceOne f1 ~ f1 }
+              { \voiceTwo f1( ~ f2 f,2) }
+            >>
+            \oneVoice
+            bes4 bes4 b4 b4 c4 <c f,>2 r4 
+          }
+          {
+          }
+        }
+    << \new Voice {
+      \voiceOne \bassAMelodie
+    } {
+      \voiceTwo \bassBMelodie
+    } >>
+          r4 
+          f1( f4 f4 d4 c4) 
+          f1\fermata( f4 f4 f4 e4) 
+          d1( cis4 d4 c2) 
+          bes4 bes4 b4 b4\breathe c4 <c f,>2 r4 
+    }
+    >>
+  }
+
diff --git a/hr/issi/fix/texte.ly b/hr/issi/fix/texte.ly
new file mode 100644
index 0000000..cc39c43
--- /dev/null
+++ b/hr/issi/fix/texte.ly
@@ -0,0 +1,111 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  hmmOne = \lyricmode {
+    Hmm
+    Hmm
+    Hmm
+  }
+  hmmTwo = \lyricmode {
+    Hmm
+    Fix me, Je -- sus, fix me.
+  }
+  fixOne = \lyricmode {
+    Oh, fix me,
+    Oh, fix me,
+    Oh, fix me,
+    fix me, Je -- sus, fix me.
+  }
+  fixTwo = \lyricmode {
+    Oh, fix me,
+    Oh, fix me,
+    Oh, fix me.
+    Fix me, Je -- sus, fix me.
+  }
+
+% Die Textaufteilungen
+
+  sopSoloText = \lyrics {
+    \fixOne
+    Fix me for my long, white robe,
+    fix me for my sta -- ry crown.
+    %Oh, fix me,
+    %Oh, fix me.
+    %Fix me, Je -- sus, fix me.
+    \hmmTwo
+    \hmmTwo
+    \fixTwo
+  }
+
+  barSoloText = \lyrics {
+    Fix me for my dy -- in’ bed.
+    Fix me for my dy -- in’ bed.
+  }
+
+  sopranText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+    \hmmOne
+    Oh, fix me,
+    Oh, Fix me,
+    Oh, fix me,
+    fix me, Je -- sus, fix me.
+    \hmmTwo
+    \hmmTwo
+    \fixTwo
+    \hmmOne
+    Fix me, Je -- sus, fix me.
+  }
+
+  altText = \lyrics {
+    %<+hier den Text für den Alt eintragen+>
+    \hmmOne
+    \fixOne
+    \hmmTwo
+    \hmmTwo
+    \fixTwo
+    \hmmOne
+    Fix me, Je -- sus, fix me.
+  }
+
+  tenorText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+    \hmmOne
+    \fixOne
+    \hmmTwo
+    \hmmTwo
+    \fixTwo
+    \hmmTwo
+    \hmmTwo
+    \fixTwo
+    \hmmOne
+    Fix me, Je -- sus, fix me.
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+    Hmm
+    Hmm
+    Hmm
+    Oh, fix me, Je -- sus,
+    Oh, fix me, _ _ 
+    Oh, fix me, _
+    fix me, Je -- sus, fix me.
+    \hmmTwo
+    \hmmTwo
+    Oh, fix me, Je -- sus,
+    Oh, fix me, Je -- sus,
+    Oh, fix me, Lord.
+    Fix me, Je -- sus, fix me.
+    \hmmTwo
+    \hmmTwo
+    Oh, fix me, Je -- sus,
+    %\set associatedVoice = "snd"
+    Oh, fix me, Je -- sus,
+    Oh, fix me. Lord.
+    %\set associatedVoice = "baesse"
+    Fix me, Je -- sus, fix me.
+    \hmmOne
+    Fix me, Je -- sus, fix me.
+  }
+