Hauke eingefügt

6 files changed, 510 insertions, 0 deletions

diff --git a/hr/stch/lux/dynArt.ly b/hr/stch/lux/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/stch/lux/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/lux/lux.ly b/hr/stch/lux/lux.ly
new file mode 100644
index 0000000..384a598
--- /dev/null
+++ b/hr/stch/lux/lux.ly
@@ -0,0 +1,69 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Lux Aurumque"
+    composer = "Eric Whitacre"
+    %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 <<
+          %\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 <<
+          \new Voice = "tenoere" { \global \tenorMelodie }
+          %\addlyrics { \tenorText }
+        >>
+
+  bas = \new Staff = bass <<
+          \new Voice = "baesse" { \global \bassMelodie }
+          %\addlyrics { \bassText }
+        >>
+
+  \score {
+    \new ChoirStaff \with {} <<
+      %\sop
+      %\alt
+      %\ten
+      \bas
+      \new Lyrics \bassText
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/stch/lux/midi.lua b/hr/stch/lux/midi.lua
new file mode 100644
index 0000000..58e69da
--- /dev/null
+++ b/hr/stch/lux/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/stch/lux/stimmen.ly b/hr/stch/lux/stimmen.ly
new file mode 100644
index 0000000..516385f
--- /dev/null
+++ b/hr/stch/lux/stimmen.ly
@@ -0,0 +1,143 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key e \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	r1 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	r1*23 
+        r2 r4 
+        <<
+          {
+            a4 b4 a2 
+          }
+          {
+            e4 fis4 e2 
+          }
+        >>
+      }
+    >>
+  } \addQuote keks \altMelodie
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	r1 
+      }
+    >>
+  }
+
+  bassA = \relative c' {
+    <<
+      %the actual tune
+      \clef bass
+      {
+	cis1 ~ cis2. r4 
+	cis1 ~ cis2. r4 
+	cis1 ~ cis2. r4 
+	cis1 ~ cis2. r4 
+        r2 cis4 cis4 b2. r4 
+        r2 a4 a4 b2. r4 
+        r4 e,4 e2 dis2. dis4( cis4) cis4 cis2 
+        a2 b2 cis2. r4 
+        r2 a'2 a1 
+        r2 r4 a4 a1 
+        cis,2 dis2 e2 fis2 r1 
+        r2 r4 a4 b4[( fis4 a4 cis,4 dis4 b4] cis2) 
+        cis2 dis2 a1 
+        \bar "||"
+        cis1 cis2. r4 
+        cis1 cis2. r4 
+        cis1 cis2. r4 
+        cis4 r4 cis4 r4 cis4 r4 r2 
+        \key fis \major
+        cis1 ais2 r2 
+        cis1 ais2 r2 
+        cis1 ais2 r2 
+        ais4 r4 ais4 r4 r1 
+        gis1 gis1 ~ gis1 
+        \bar "|."
+      }
+    >>
+  }
+  bassB = \relative c' {
+    <<
+      %the actual tune
+      \clef bass
+      {
+        s1*23 
+        s2 s4 
+        \cueDuring keks #UP { s4 s2. }
+      }
+      {
+        cis1( gis2.) r4 
+        cis1( gis2.) r4 
+        cis1( gis2.) r4 
+        cis1( gis2.) r4 
+        r2 a4 a4 fis2. r4 
+        r2 e4 e4 fis2. r4 
+        r4 cis4 b2 bes2. bes4( gis4) gis4 gis2 
+        a2 b2 fis2. r4 
+        r2 a'2 fis1 
+        r2 r4 a4 fis1 
+        fis,2 gis2 a2 b2 r1 
+        %r2 r4 a4 b4( fis4 a4 cis,4 dis4 b4 cis2) 
+        r2 r4 a'4 b4( fis4 a4 cis,4 dis4 b4 cis4 fis,4) 
+        a2 b2 fis1 
+        %
+        cis'1 gis2. r4 
+        cis1 gis2. r4 
+        cis1 gis2. r4 
+        gis4 r4 gis4 r4 gis4 r4 r2 
+        %
+	gis1 dis2 r2 
+	gis1 dis2 r2 
+	gis1 dis2 r2 
+        dis4 r4 dis4 r4 r1 
+        cis1 cis1 ~ cis1 
+      }
+    >>
+  }
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      \override NoteColumn #'ignore-collision = ##t
+      \set Staff.aDueText = #""
+      \partcombine 
+      \bassA
+      %\\
+      \bassB
+    >>
+  }
+
diff --git a/hr/stch/lux/stimmen_.ly b/hr/stch/lux/stimmen_.ly
new file mode 100644
index 0000000..f267f85
--- /dev/null
+++ b/hr/stch/lux/stimmen_.ly
@@ -0,0 +1,192 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key e \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	r1 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	r1*23 
+        r2 r4 
+        <<
+          {
+            a4 b4 a2 
+          }
+          {
+            e4 fis4 e2 
+          }
+        >>
+      }
+    >>
+  } \addQuote keks \altMelodie
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	r1 
+      }
+    >>
+  }
+
+  bassAa = \relative c' {
+	cis1 ~ cis2. r4 
+	cis1 ~ cis2. r4 
+	cis1 ~ cis2. r4 
+	cis1 ~ cis2. r4 
+  }
+  bassAb = \relative c' {
+        r2 cis4 cis4 b2. r4 
+        r2 a4 a4 b2. r4 
+        r4 e,4 e2 dis2. dis4( cis4) cis4 cis2 
+  }
+  bassAbc = \relative c {
+        r2 a'2 a1 
+        r2 r4 a4 a1 
+        cis,2 dis2 e2 fis2 r1 
+  }
+  bassAc = \relative c' {
+        r2 r4 a4 b4[( fis4 a4 cis,4 dis4 b4] cis2) 
+  }
+  bassAd = \relative c {
+        cis2 dis2 a1 
+        \bar "||"
+  }
+  bassAe = \relative c {
+        cis1 cis2. r4 
+        cis1 cis2. r4 
+        cis1 cis2. r4 
+        cis4 r4 cis4 r4 cis4 r4 r2 
+  }
+  bassAf = \relative c {
+        \key fis \major
+        cis1 ais2 r2 
+        cis1 ais2 r2 
+        cis1 ais2 r2 
+        ais4 r4 ais4 r4 r1 
+        gis1 gis1 ~ gis1 
+        \bar "|."
+  }
+  bassA = \relative c' {
+    <<
+      %the actual tune
+      \clef bass
+      {
+        \bassAa
+        \bassAb
+        \bassAc
+        \bassAd
+        \bassAe
+        \bassAf
+      }
+    >>
+  }
+  bassBa = \relative c' {
+        cis1( gis2.) r4 
+        cis1( gis2.) r4 
+        cis1( gis2.) r4 
+        cis1( gis2.) r4 
+  }
+  bassBb = \relative c' {
+        r2 a4 a4 fis2. r4 
+        r2 e4 e4 fis2. r4 
+        r4 cis4 b2 bes2. bes4( gis4) gis4 gis2 
+  }
+  bassBbc = \relative c {
+        r2 a'2 fis1 
+        r2 r4 a4 fis1 
+        fis,2 gis2 a2 b2 r1 
+  }
+  bassBc = \relative c' {
+        %r2 r4 a4 b4( fis4 a4 cis,4 dis4 b4 cis2) 
+        r2 r4 a4 b4( fis4 a4 cis,4 dis4 b4 cis4 fis,4) 
+  }
+  bassBd = \relative c {
+        a2 b2 fis1 
+        %
+  }
+  bassBe = \relative c {
+        cis1 gis2. r4 
+        cis1 gis2. r4 
+        cis1 gis2. r4 
+        gis4 r4 gis4 r4 gis4 r4 r2 
+        %
+  }
+  bassBf = \relative c {
+	gis1 dis2 r2 
+	gis1 dis2 r2 
+	gis1 dis2 r2 
+        dis4 r4 dis4 r4 r1 
+        cis1 cis1 ~ cis1 
+  }
+  bassB = \relative c' {
+    <<
+      %the actual tune
+      \clef bass
+      {
+        \bassBa
+        \bassBb
+        \bassBc
+        \bassBd
+        \bassBe
+        \bassBf
+      }
+    >>
+  }
+  bassMelodie = \relative c {
+      \clef bass
+      \override NoteColumn #'ignore-collision = ##t
+      \set Staff.aDueText = #""
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      {
+        s1*23 
+        s2 s4 
+        \cueDuring keks #UP { s4 s2. }
+      }
+      %\partcombine 
+      {
+        << \bassAa \\ \bassBa>>
+        << \bassAb \bassBb>>
+        \oneVoice a2 b2 
+        << { cis2. r4 } { fis,2. r4 } >>
+        << \bassAbc \\ \bassBbc>>
+        << \bassAc \bassBc>>
+        << \bassAd \bassBd>>
+        << \bassAe \bassBe>>
+        << \bassAf \bassBf>>
+      }
+      %\new Voice = "h" \bassA
+      %\\
+      %\new Voice = "t" \bassB
+    >>
+  }
+
diff --git a/hr/stch/lux/texte.ly b/hr/stch/lux/texte.ly
new file mode 100644
index 0000000..37afcac
--- /dev/null
+++ b/hr/stch/lux/texte.ly
@@ -0,0 +1,35 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+% 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+>
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+    Lux,1*2 Lux,1*2 Lux,1*2 Lux,1*2 
+    \skip2 ca4 -- li4 -- da,2. \skip4
+    \skip2 ca4 -- li4 -- da2. \skip4
+    \skip4 gra4 -- vis2 -- que,2.
+    gra2 -- vis4 -- que,2
+    gra2 -- vis2 -- que,2. \skip4
+    \skip2 pu2 -- ra,1 \skip2. pu4 -- ra1 ve2 -- lut2 au2 -- rum,2
+    \skip1 \skip2. 
+    et4 ca1. nunt2
+    an2 -- ge2 -- li,1
+    ca1 -- nunt,1 ca1 -- nunt,1 ca1 -- nunt1 mol2 -- li2 -- ter2 \skip2
+    na1 -- tum,1 na1 -- tum,1 na1 -- tum,1
+    mo2 -- do2 \skip1 na1 -- tum.1*2
+  }
+