Hauke eingefügt

10 files changed, 464 insertions, 0 deletions

diff --git a/hr/stch/fertig/head/a.midi b/hr/stch/fertig/head/a.midi
new file mode 100644
index 0000000..318384f
--- /dev/null
+++ b/hr/stch/fertig/head/a.midi
diff --git a/hr/stch/fertig/head/a5/head.ly b/hr/stch/fertig/head/a5/head.ly
new file mode 100644
index 0000000..9f26b89
--- /dev/null
+++ b/hr/stch/fertig/head/a5/head.ly
@@ -0,0 +1,86 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.18"
+\include "../dynArt.ly"
+\include "../stimmen.ly"
+\include "../texte.ly"
+
+\pointAndClickOff
+
+  \header {
+    title = "God be in my head"
+    composer = "John Rutter"
+    %opus = "<+Werk+>"
+    tagline = ""
+  }
+
+  \paper {
+    #(set-paper-size "a5")
+    line-width = \paper-width - 20
+    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 12)
+
+  sop = <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \voiceOne \sopranMelodie }
+          \new Voice = "alti" { \voiceTwo \altMelodie }
+          %\addlyrics { \text }
+        >>
+
+  alt = <<
+          \new Voice = "alti" { \altMelodie }
+        >>
+
+  ten = <<
+          \new Voice = "tenoere" { \tenorMelodie }
+        >>
+
+  bas = <<
+          \new Voice = "tenoere" { \voiceOne \tenorMelodie }
+          \new Voice = "baesse" { \voiceTwo \bassMelodie }
+        >>
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \new Lyrics = so \with { \override VerticalAxisGroup.staff-affinity = #DOWN }
+      \new Staff = sopran { \global \sop }
+      \new Lyrics = al {
+      }
+      \new Lyrics { \lyricsto soprane \text }
+      %\new Staff = alt { \global \alt }
+      %\new Staff = tenor { \global \ten }
+      \new Lyrics = te \with { \override VerticalAxisGroup.staff-affinity = #DOWN }
+      \new Staff = bass { \global \bas }
+      \new Lyrics = ba {
+      }
+      \context Lyrics = so 
+        \lyricsto "soprane" \sopranText
+      \context Lyrics = al 
+        \lyricsto "alti" \altText
+      \context Lyrics = te 
+        \lyricsto "tenoere" \tenorText
+      \context Lyrics = ba 
+        \lyricsto "baesse" \bassText
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/stch/fertig/head/b.midi b/hr/stch/fertig/head/b.midi
new file mode 100644
index 0000000..07d1b78
--- /dev/null
+++ b/hr/stch/fertig/head/b.midi
diff --git a/hr/stch/fertig/head/dynArt.ly b/hr/stch/fertig/head/dynArt.ly
new file mode 100644
index 0000000..3d62a3f
--- /dev/null
+++ b/hr/stch/fertig/head/dynArt.ly
@@ -0,0 +1,48 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+    \tempo "Tranquillo - poco rubato" 4 = 100
+    s8\p s4.^\markup{ \italic "legato sempre" } s2 
+    \repeat unfold 4 s1 
+    \break
+    s2\cresc s2 
+    s2 s2\mp 
+    s1 
+    s1 
+    s2 s2\> 
+    \break
+    s2\p s2 
+    s1 
+    s1\< 
+    s1\mf 
+    s2 s2\> 
+    \break
+    s1\p 
+    s1 
+    s1 
+    s1 
+    \break
+    s1\pp^\markup{ \bold "Poco meno mosso" } 
+    s1 
+    s1\< 
+    s1\> 
+    s8\pp s4.\> s2^\markup{ \bold "rit." } 
+    s1\ppp
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/stch/fertig/head/head.ly b/hr/stch/fertig/head/head.ly
new file mode 100644
index 0000000..7811440
--- /dev/null
+++ b/hr/stch/fertig/head/head.ly
@@ -0,0 +1,80 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "dynArt.ly"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "God be in my head"
+    composer = "John Rutter"
+    %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 "|." }
+          \new Voice = "soprane" { \voiceOne \sopranMelodie }
+          \new Voice = "alti" { \voiceTwo \altMelodie }
+          \addlyrics { \sopranText }
+        >>
+
+  alt = <<
+          \new Voice = "alti" { \altMelodie }
+        >>
+
+  ten = <<
+          \new Voice = "tenoere" { \tenorMelodie }
+        >>
+
+  bas = <<
+          \new Voice = "tenoere" { \voiceOne \tenorMelodie }
+          \new Voice = "baesse" { \voiceTwo \bassMelodie }
+        >>
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \new Staff = sopran { \global \sop }
+      \new Lyrics \with { alignAboveContext = sopran } {
+        \lyricsto "soprane" \sopranText
+      }
+      \new Lyrics \with { alignBelowContext = sopran } {
+        \lyricsto "soprane" \altText
+      }
+      %\new Staff = alt { \global \alt }
+      %\new Staff = tenor { \global \ten }
+      \new Staff = bass { \global \bas }
+      \new Lyrics \with { alignAboveContext = bass } {
+        \lyricsto "soprane" \tenorText
+      }
+      \new Lyrics \with { alignBelowContext = bass } {
+        \lyricsto "soprane" \bassText
+      }
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/stch/fertig/head/midi.lua b/hr/stch/fertig/head/midi.lua
new file mode 100644
index 0000000..a87bcc0
--- /dev/null
+++ b/hr/stch/fertig/head/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/head/s.midi b/hr/stch/fertig/head/s.midi
new file mode 100644
index 0000000..fc5400c
--- /dev/null
+++ b/hr/stch/fertig/head/s.midi
diff --git a/hr/stch/fertig/head/stimmen.ly b/hr/stch/fertig/head/stimmen.ly
new file mode 100644
index 0000000..a69ef82
--- /dev/null
+++ b/hr/stch/fertig/head/stimmen.ly
@@ -0,0 +1,157 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+
+  global = {
+    \key e \major
+    \override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+        \key e \major
+	e2 b'2 
+        cis4 a4 b2 
+        e,2 fis4 gis4 
+        a4( gis4 fis4) e4 
+        fis2 e2 
+        e2 b'2 
+        e4 cis4 b2 
+        b2 cis4 dis4 
+        e4( dis4 cis4 b4 
+        cis2) b2 
+        b2 a4( b4) 
+        gis4 cis4 fis,2 
+        gis2 ais4 b4 
+        cis4( b4 ais4 gis4 
+        ais2) gis2 
+        fis2 b2 
+        e,4 fis8( gis8) a2 
+        fis2 fis4 e4 
+        dis4( e4) fis2\fermata 
+        fis2 fis2 
+        gis4 b4 e,2\fermata 
+        e2 fis4( gis4) 
+        a4( gis4 fis4) e4 
+        fis1 
+        gis1\fermata 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      % { \meta }
+      %\altArt
+      %the actual tune
+      {
+	e2 e4( dis4) 
+        cis4 a'4 gis4( fis4) 
+        e2 e4 e4 
+        e4( dis4 cis4) e4 
+        e4( dis4) b2 
+        b2 b2 
+        cis4 e4 dis2 
+        e4( dis4) cis4 fis4 
+        gis2( e4 dis4 
+        fis4. e8) e4( cis4) 
+        dis2 e4( dis4) 
+        dis4 cis4 cis4( b4) 
+        e2 gis4 gis4 
+        gis1( ~ 
+        gis4 fis2) fis8( e8) 
+        cis2 b2 
+        b4 b4 e4( b4) 
+        e4( dis4) cis4 cis4 
+        cis4( bis4) cis2 
+        d4( cis4) b4( a4) 
+        e'4 e4 e2 
+        e4( dis4) cis4( b4) 
+        cis2. e4 
+        e2( dis2) 
+        e1 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	e4( fis4) gis4( b4) 
+        a4 e'4 dis4( cis4) 
+        b2 cis4 b4 
+        a4( b4 cis4) gis4 
+        b4.( a8) a4( fis4) 
+        gis4( a4) fis2 
+        gis4 ais4 b4( ais4) 
+        gis2 ais4 b4 
+        e2( gis,4 b4 ~ 
+        b4 ais4) fis2 
+        b2 cis4( a4) 
+        b4 gis4 ais4( gis4) 
+        b2 e4 dis4 
+        e2.( cis4 
+        ais4 dis8 cis8) b2 
+        ais4( gis4) fis4( a4) 
+        gis4 gis4 gis4( fis4) 
+        gis4( b4) a4 gis4 
+        a4( gis4) cis2 
+        a2 fis2 
+        b4 gis4 b4( a4\fermata) 
+        gis2 e2 
+        a2. gis4 
+        b4( a4 fis4 b4) 
+        gis1 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      % { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	e2 e2 
+        e4 cis'4 b4( a4 
+        gis4) gis,4 a4 b4 
+        cis4( b4 a4) cis4 
+        b2 e2 
+        e2. dis4 
+        cis4 cis4 gis'4( fis4) 
+        e2 e4 dis4 
+        cis2( e4 gis4 
+        fis2) b,2 
+        b'4( a4) gis4( fis4) 
+        fis4 e4 dis2 ~ 
+        dis4 cis4 cis'4 b4 
+        ais4( b4 cis4 e,4 
+        dis2) e2 
+        e2 dis2 
+        dis4 d4 cis4( dis4) 
+        e2 e4 e4 
+        fis4( gis4) a2\fermata 
+        d,2 d2 
+        d4 d4 cis2 
+        b2 a4( gis4) 
+        fis2( a4) cis4 
+        b1 
+        <b e,>1 
+        \bar "|." 
+      }
+    >>
+  }
+
diff --git a/hr/stch/fertig/head/t.midi b/hr/stch/fertig/head/t.midi
new file mode 100644
index 0000000..99e7a8b
--- /dev/null
+++ b/hr/stch/fertig/head/t.midi
diff --git a/hr/stch/fertig/head/texte.ly b/hr/stch/fertig/head/texte.ly
new file mode 100644
index 0000000..85bd69f
--- /dev/null
+++ b/hr/stch/fertig/head/texte.ly
@@ -0,0 +1,42 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  text = \lyricmode {
+    God be in my head and in my un -- der -- stand -- ing.
+    God be in mine eyes and in my look -- ing.
+    God be in my mouth and in my speak -- ing.
+    God be in mine heart and in my think -- ing.
+    God be at my end and in my de -- part -- ing.
+  }
+
+  ober = \lyricmode {
+    \repeat unfold 25 { _ }
+    _ _ _ _ speak -- ing,
+  }
+
+% Die Textaufteilungen
+
+  sopranText = \lyricmode {
+    %<+hier den Text für den Sopran eintragen+>
+    \ober
+  }
+
+  altText = \lyricmode {
+    %<+hier den Text für den Alt eintragen+>
+    \ober
+  }
+
+  tenorText = \lyricmode {
+    %<+hier den Text für den Tenor eintragen+>
+    \ober
+  }
+
+  bassText = \lyricmode {
+    %<+hier den Text für den Baß eintragen+>
+    _ _ _ _ head and
+    _ _ _ _ _ _ God be
+    \repeat unfold 12 { _ }
+    mouth and
+  }
+