Hauke eingefügt

5 files changed, 314 insertions, 0 deletions

diff --git a/hr/michi/thompson/dynArt.ly b/hr/michi/thompson/dynArt.ly
new file mode 100644
index 0000000..94d0d80
--- /dev/null
+++ b/hr/michi/thompson/dynArt.ly
@@ -0,0 +1,43 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    %\override Staff.TimeSignature #'style = #'()
+    \dynamicUp
+    \key d \major
+    \time 4/4
+    s1*2
+    \time 2/8
+    s4
+    \time 4/4
+    s1*9
+    s1*11
+    \time 2/8
+    s4
+    \time 4/4
+    s1*12
+    \time 2/8
+    s4
+    \time 4/4
+    s1*12
+    \time 5/4
+    s4*5
+    \time 4/4
+    s1*37
+    \bar "|."
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/michi/thompson/midi.lua b/hr/michi/thompson/midi.lua
new file mode 100644
index 0000000..8aef7d6
--- /dev/null
+++ b/hr/michi/thompson/midi.lua
@@ -0,0 +1,53 @@
+ -- 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 100 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/michi/thompson/stimmen.ly b/hr/michi/thompson/stimmen.ly
new file mode 100644
index 0000000..ddb9fad
--- /dev/null
+++ b/hr/michi/thompson/stimmen.ly
@@ -0,0 +1,101 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	a4 a4 a8( g8) a4 a8 g8 a8 a8 a8 g8 a8 a8 g8 a8 b2 a4 g8 a8 b2 a4 b8 cis8 d2 cis4 a8 a8 a4( gis4) a4 d8 e8 fis2 e4 e,8 e8 e'2 d4 d,8 d8 d'2 cis2 b8( a8 b8 cis8 d8 cis8) b8( a8) b1 a2 r2 r1 
+        r4 r8 a8 a8 a8 a2 r8 a8 a8 a8 a2 r8 b8 b8 b8 b2 r8 b8 b8 b8 b4( e,4) 
+        r8 gis8( fis8) e8 fis8( dis8) e8( fis8) r8 fis8( e8) dis8 e8( cis8) dis8( e8) r8 e8 dis4 ~ dis8 dis8 cis4 ~ cis8 r8 b4.( cis8) d4 cis8( b8 cis8 d8 e8 d8 cis8 b8 cis2) cis2 
+        cis'4 cis4 cis8( b8) cis4 cis8 b8 cis8 cis8 cis8 b8 cis8 cis8 b8 cis8 e2 cis4 cis8 cis8 e2 cis8 fis,8( gis8) a8 b4 b4 r8 gis8( a8) b8 cis4 cis4 r8 a8( b8) cis8 d8( b8) cis8( d8) e8( cis8) d8( e8) fis2( ~ fis8 a8 g8 fis8 e8 d8) e4 r8 g8( fis8) e8 d8( fis8 e8 d8 cis8 e8 d8 cis8 b8 ais8) b4 b8( d8) cis8( b8) ais8( gis8 ais8 b8 cis8 b8) ais8( gis8) ais8( b8 cis8 d8 e8 d8) cis8( b8) ais8( gis8 b8 ais8 cis8 b8 ais8 gis8 ais2 ~ ais2.) b2 
+        b8( a8) b4 d4 b4 b8( a8) b4 e4 b4 b8( a8) b4 fis'4 b,4 b8( a8) b4 d2 a4 a8 a8 d4 a4 a4 a4 c2 a4 a8 a8 c2 b2 
+        cis2 cis8( b8 cis4) dis4 dis4 dis8( cis8) dis4 e4 e4 e8( d8) e4 e8( d8) e4 e8( d8) e4 g2 e4 e8 e8 g2 e4 r4 
+        r2 r8 a,4 a8 d4 d4 r8 a8( b8) cis8 d8( cis8 b8 a8) b8 cis8( d8) e8 fis8( e8 d8 cis8) d8 d8( e8) fis8 g8( fis8) e8( d8) g8( fis8) e8( d8) g8( fis8) e8( d8) g8( fis8) e8 g8( fis8) e8 g8 fis8 e8 g8 fis8 e8 a8( g8 fis8 e8) d4 
+        r8 a16 a16 a'8( g8 fis8 e8) d4 r8 d,16 d16 d'4 d4 d,8( e8) fis8( g8) a2 a2 r8 d,8( e8 fis8 g8 fis8) e8( d8) e2 e2 ~ e4 r4 r4 
+        e8 e8 a1 e2 r4 e8 e8 a1 e2 r4 e8 e8 a2( b2 a2 g2) a1 r4 <fis d>2. q1 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	fis4 fis4 fis8( e8) fis4 fis8 e8 fis8 fis8 fis8 e8 fis8 fis8 e8 fis8 g2 fis4 e8 fis8 g2 fis4 fis8 fis8 fis4( gis4) a8 a8( b8) cis8 d2 cis8( b8) a8 g8 fis8( cis'8 b8 a8 gis8 b8 a8 gis8 a8 b8 a8 gis8 fis8 a8 gis8 fis8 gis8 a8 gis8 fis8) e8( gis8 fis8 e8) fis8( e8 fis8 gis8 a8 gis8) fis8( e8) fis2 e2 
+        e4 e4 e8( d8) e4 e8 d8 e8 e8 e8 d8 e8 e8 d8 e8 fis2 e8 e8( d8) e8 fis2 e8 e8( fis8) gis8 a2 gis8 e8( fis8) gis8 a2 gis4 a8 b8 cis2 b4 
+        b,8 b8 b'2 a4 a,8 a8 a'4.( b8 gis4. a8 fis8 e8) fis4 fis8( a8) gis8( fis8) eis8( dis8 eis8 fis8 gis8 fis8 eis8 dis8 eis1) fis2. ~ fis8 r8 
+        fis8 e8 fis8 fis8 fis8 e8 fis8 fis8 e8 fis8 gis2 fis8 fis8( e8) fis8 gis2 fis4 r4 
+        r8 a8( gis8) fis8 gis4 gis4 r8 b8( a8) gis8 fis8( gis8 fis8 e8) d4 e8 fis8 gis8( b8 a8 g8 fis8 c'8 b8 a8 b4) b4 
+        r8 b8( a8) g8 a4 a4 a4 g4 g4 fis4 fis4( e8 d8 e4) g4 fis8( e8 fis8 g8 a8 g8) fis8( e8) fis8( g8 a8 b8 cis8 b8) a8( g8) fis8( e8 g8 fis8 a8 g8 fis8 e8 fis2) fis2. 
+        g4 d4 d4 d4 d8 cis8 d8 d8 d8 cis8 d8 d8 e4 e4 e8( d8) e4 d8 cis8 d8 d8 d8 cis8 d8 d8 d4 d4 d8( cis8) d4 d8 cis8 d8 d8 d8 cis8 d8 d8 e4 e4 d8( cis8) d4 e8( fis8) e4 dis8( cis8) dis4 
+        eis4 eis4 eis8( dis8) eis4 fis4 fis4 fis8( e8) fis8( gis8) a4 a4 a4 a4 a4. a8 a8 a8 a8 a8 a2 a8 a8( g8) a8 b2 a8 a,4 a8 a'4 a4 r2 
+        r2 r8 a4 a8 a4 a4 r8 a4 a8 d4 d4 r8 a8( b8) cis8 d8( cis8) b8( a8) d8( cis8) b8( a8) d8( cis8) b8( a8) d8( cis8) b8 d8( cis8) b8 d8 cis8 b8 d8 cis8 b8 a4 a2 r8 
+        a16 a16 d4 a4 r8 d,16 d16 d'4( ~ d8 c8) b8( a8) a8( g8) fis8( e8) d2 cis2 
+        r8 a8( b8 cis8 d8 cis8) b8( a8) b2 b2 ~ b4 r4 r4 
+        d8 d8 d1 b2 r4 b8 b8 d1 d2 r4 d8 d8 d1 ~ d1 d8 r8 a8 a8 a4 a4 ~ a1 ~ a1 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      {
+        \clef "treble_8"
+	d4 d4 d4 d4 d4 d4 d4 d4 d8 d8 d8 d8 d8 d8 d8 d8 d8 d8 d8 d8 d8 d8 d8 d8 d8 cis8 b2 a4 e'8 e8 d2 e4 a,8 a8 a8( e'8 d8 cis8 b8 d8 cis8 b8 cis8 d8 cis8 b8 a8 cis8 b8 a8 b8 cis8 b8 a8 gis8 b8 a8 gis8) fis8 r8 a2 a4 a2 gis2 
+        cis4 cis4 cis8( b8) cis4 cis8 b8 cis8 cis8 cis8 b8 cis8 cis8 b8 cis8 d2 cis8 cis8( b8) cis8 d2 cis4 cis8 e8 e4( dis4) e4 b8 e8 e4( dis4) e2 
+        r8 e8( dis8) cis8 dis8( b8) cis8( dis8) r8 dis8( cis8) b8 cis8( a8) b8( cis8) r8 cis8 b4 ~ b8 b8 a4 ~ a8 r8 b2 b8( a8) gis8( fis8 gis8 a8 b8 a8 gis8 fis8 gis2) gis2 
+        a4 a4 a8( gis8) a4 a8 gis8 a8 a8 a8 gis8 a8 a8 gis8 a8 b2 a8 a8( gis8) a8 b2 a8 a8( b8) cis8 d4 d4 r8 b8( cis8) d8 e4 a,4 r4 
+        a8 a8 fis4 b4 b8( d8) cis8( b8) a8( e'8 d8 c8 d8 fis8 e8 d8 cis8 b8) cis4 r8 e8( d8) cis8 cis4( b4) b4( a4) 
+        b2. e8( d8) cis8( b8 cis8 d8 e8 d8) cis8( b8) cis8( d8 e8 fis8 g8 fis8) e8( d8) cis8( b8 d8 cis8 e8 d8 cis8 b8 cis2) cis2. 
+        d4 g,4 g8( fis8) g4 fis8 e8 fis8 fis8 fis8 e8 fis8 fis8 gis4 gis4 gis8( fis8) gis4 fis8 e8 fis8 fis8 fis8 e8 fis8 fis8 fis4 fis4 fis8( e8) fis4 fis8 e8 fis8 fis8 fis8 e8 fis8 fis8 g4 g4 fis8( e8) fis4 g8( a8) g4 fis8( e8) fis4 
+        b4 b4 b8( cis8) b4 a4 a4 a8( gis8) a8( b8) cis4 cis4 cis8( b8) cis4 cis8( b8) cis4 cis8 b8 cis8 cis8 d2 cis8 cis8( b8) cis8 d2 cis8 a8( b8) cis8 d8( cis8 b8 a8) b8( cis8) d8 e8 fis8( e8 d8 cis8) d8( cis8 d8 e8) fis8( e8) d8( cis8) d8( e8) fis8( g8) a8( g8) fis8( e8) fis4 d8 r8 
+        d4 d4 d4 d4 d4 d4 d4 d4 d4 d4 d4 d4 
+        r8 a16 a16 a'4( ~ a8 g8 fis8 e8) d8 a16 a16 a'4( ~ a8 g8 fis8 e8 d8 g8 fis8 e8) d4 d,8 e16( fis16) e1 d2. r8 
+        d16 d16 d'4 d2. ~ d4 r4 r4 
+        g,8 g8 fis1 d2 r4 d8 d8 fis1 g2 r4 g8 g8 fis2( g2 fis2 e2) fis1 r4 <fis d>2. q1 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c' {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	a4 a4 a8( b8) a4 a8 b8 a8 a8 a8 b8 a8 a8 b8 a8 g2 d4 d8 d8 g2 d2 
+        r2 r4 cis8 cis8 b2 a4 b8 cis8 d2 e2 e2 b2 b2 cis2 
+        d8( cis8 d8 e8 fis8 e8) d8( cis8) d2 e2 
+        a4 a4 a4 a4 a8 a8 a8 a8 a8 a8 a8 a8 a8 a8 d,2 a'4 a8 a8 d,2 a'4 
+        a8 gis8 fis2 e4 a8 gis8 fis2 e8 e8( fis8) gis8 a1 gis1 
+        fis2( e2 d4) d8( cis8) d4 b4 cis2. gis4 cis2 cis2 
+        fis4 fis4 fis4 fis4 fis4 fis4 fis4 fis4 ~ fis4 
+        r8 cis8 cis8 cis8 fis2 r8 cis8 cis8 cis8 fis2 r8 fis8( e8) d8 e4 e4 
+        a8( gis8 fis8 e8 d8 e8) d8( cis8) b2 a2 d2 g2 g2 fis2 
+        b,4 e4 a,4 d4 g2. e4 fis2. cis4 fis2. cis4 fis1( ~ fis8 e8 g8 fis8 a8 g8 fis8 e8 d8 cis8 b4) b2. 
+        b4 b4 b4 b4 b4 b4 b4 b4 b4 b4 b4 b4 a4 a4 a4 a4 a4 a4 a4 a4 a4 a4 a4 a4 a4 a4 a'4 a4 
+        gis4 gis4 gis8( a8) gis4 fis4 fis4 fis8( gis8) fis4 e4 e4 e8( fis8) e4 e8( fis8) e4 e8( fis8) e4 
+        r8 e8 e8 e8 a2 r8 e8 e8 e8 a8 a4 g8 fis8( e8 d8 cis8) d8( e8) fis8 g8 a8( g8 fis8 e8) fis8 e8( fis8) g8 a8( g8 fis8 e8) fis8 g8( a8) b8 cis8( b8 a8 g8) a8 fis8( g8) a8 b8( a8) g8( fis8) b8( a8) g8( fis8) b8( a8) g8( fis8) b8( a8) g8 b8( a8) g8 b8 a8 g8 b8 a8 g8 fis8 a8 d8 cis8 b4 a8( g8) fis8 a8 d8 cis8 b4 a8( g8) fis8( e8) d8( c8) b4 b4 a2 a2 
+        r8 fis8( g8 a8 b8 a8) g8( fis8) g2 g2 ~ g4 r4 r4 
+        b8 b8 a1 g2 r4 g8 g8 a1 b2 r4 b8 b8 a2( g2 a2 b2) d1 r4 <a d,>2. q1 
+      }
+    >>
+  }
+
diff --git a/hr/michi/thompson/texte.ly b/hr/michi/thompson/texte.ly
new file mode 100644
index 0000000..aef92d6
--- /dev/null
+++ b/hr/michi/thompson/texte.ly
@@ -0,0 +1,45 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  al = \lyricmode {
+    al -- le -- lu -- ia,
+  }
+
+% 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+>
+    Al -- le -- lu -- ia,
+    \al \al \al \al \al \al
+    \al \al \al
+    \al \al \al
+    \al \al \al \al
+    \al \al \al \al
+    \al \al \al
+    \al \al \al \al \al \al \al
+    \al \al
+    \al \al \al \al
+    \al \al \al
+    \al \al \al
+    \al \al \al \al
+    \al \al \al \al \al
+    \al \al
+    \al \al \al
+    \al \al
+    \al \al \al \al
+    \al A -- men.
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+
diff --git a/hr/michi/thompson/thompson.ly b/hr/michi/thompson/thompson.ly
new file mode 100644
index 0000000..d9018c9
--- /dev/null
+++ b/hr/michi/thompson/thompson.ly
@@ -0,0 +1,72 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+\pointAndClickOff
+
+  \header {
+    title = "Alleluia"
+    composer = "Randall Thompson"
+    %opus = "<+Werk+>"
+    tagline = \markup {
+      \bold "studentenchor"
+    }
+  }
+
+  \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 16)
+
+  sop = <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \global \sopranMelodie }
+          %\addlyrics { \sopranText }
+        >>
+
+  alt = <<
+          \new Voice = "alti" { \global \altMelodie }
+          %\addlyrics { \altText }
+        >>
+
+  ten = <<
+          \new Voice = "tenoere" { \global \tenorMelodie }
+          \addlyrics { \tenorText }
+        >>
+
+  bas = <<
+          \new Voice = "baesse" { \global \bassMelodie }
+          %\addlyrics { \bassText }
+        >>
+
+  \score {
+    \new ChoirStaff \with { printPartCombineTexts = ##f } <<
+      \new Staff = sopran { \sop }
+      \new Staff = alt { \alt }
+      \new Staff = tenor { \ten }
+      \new Staff = bass { \bas }
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+