Hauke eingefügt

6 files changed, 419 insertions, 0 deletions

diff --git a/hr/stch/praise/dynArt.ly b/hr/stch/praise/dynArt.ly
new file mode 100644
index 0000000..3f9af98
--- /dev/null
+++ b/hr/stch/praise/dynArt.ly
@@ -0,0 +1,57 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+    \tempo 4=100 
+    s8\ff s8 
+    s2*3 
+    s4 \breathe s4 
+    s2*3 
+    s4 \breathe s4 
+    \break 
+    %
+    s2*6 
+    s2\< 
+    s4\! s4 
+  % } bla = {
+    s2\< 
+    s4\ff s4 
+    s2*3 
+    \break 
+    %
+    s2*13 
+    s4\< s4 
+    s4 \breathe s4\! 
+    s2\fermata 
+    %
+    s4 s8\ff s8 
+    s2*7 
+    s4 \breathe s4 
+    s2*5 
+    %
+    s2 
+    s2\< 
+    s4\! s4 
+    s2\< 
+    s4\! s4\ff 
+    s2*5 
+    s4-> s4 
+    s2->\fermata 
+    \bar "|." 
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/stch/praise/midi.lua b/hr/stch/praise/midi.lua
new file mode 100644
index 0000000..8aef7d6
--- /dev/null
+++ b/hr/stch/praise/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/stch/praise/praise.ly b/hr/stch/praise/praise.ly
new file mode 100644
index 0000000..f5aaa1a
--- /dev/null
+++ b/hr/stch/praise/praise.ly
@@ -0,0 +1,75 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+\pointAndClickOff
+
+  \header {
+    title = "I will praise thee, o Lord"
+    subtitle = "(No. 3 of Three Motets)"
+    composer = "Knut Nystedt"
+    %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 17)
+
+  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 100 4)
+      }
+    }
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/stch/praise/praise.midi b/hr/stch/praise/praise.midi
new file mode 100644
index 0000000..3a16fb4
--- /dev/null
+++ b/hr/stch/praise/praise.midi
diff --git a/hr/stch/praise/stimmen.ly b/hr/stch/praise/stimmen.ly
new file mode 100644
index 0000000..adfd7be
--- /dev/null
+++ b/hr/stch/praise/stimmen.ly
@@ -0,0 +1,198 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key c \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 2/4
+    %\autoBeamOff
+    \partial 4
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	r1 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	r1 
+      }
+    >>
+  }
+
+  mnf = \markup{ \italic "meno" \dynamic "f" }
+  %meta = { s4\ff }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	b8 b8 
+        d4 \times 2/3 {d4 d8} 
+        d4 ~ \times 2/3 {d8 d8 d8} 
+        e2\espressivo( 
+        d4) b8 b8 
+        e4 \times 2/3 {e4 e8} 
+        e4 e8 e8 
+        e2\espressivo( 
+        dis4) r4 
+        %
+        r4 b8^\mnf b8 
+        c8( b8) a8( fis8) 
+        g4 a4 
+        b4. b8 
+        c2 
+        r4 a4 
+        d2 
+        r4 b4 
+        e2 
+        d4 d4 
+        e2 
+        dis8( e8 fis4) 
+        dis2 
+        %
+        r8 b,8\f b8 b8 
+        fis'4 g8 fis8 
+        b4 ais4 
+        d2 ~ 
+        d4 r4 
+        cis4 cis8 cis8 
+        b4 \breathe r4 
+        r8 b8 b8 b8 
+        cis4 d8 cis8 
+        e4 ees4 
+        fis4. r8 
+        g,8( a8) a8 b8 
+        b8( c8) c8 d8 
+        e4( d4 
+        c4) c4 
+        a2 
+        %
+        r4 b8 b8 
+        d2 
+        d4 ~ \times 2/3 {d8 d8 d8} 
+        e2( 
+        d4) b8 b8 
+        e2 
+        e4 e8 e8 
+        e2( 
+        dis4) r4 
+        r4 b8^\mnf b8 
+        c8( b8) a8( fis8) 
+        g4( a4) 
+        b2 
+        c2 
+        %
+        r4 a4 
+        d2 
+        r4 b4 
+        e2 
+        r4 d4 
+        e2 
+        r4 d4 
+        e2( ~ 
+        e4 c4 
+        <b e>4) r4 
+        <g e'>4 r4 
+        <b d>2 
+      }
+    >>
+  }
+
+  %meta = { s4\p }
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	b'8 b8 
+        g4 \times 2/3 {g4 g8} 
+        b4 ~ \times 2/3 {b8 b8 b8} 
+        e,2( 
+        b'4) b8 b8 
+        c4 \times 2/3 {b4 b8} 
+        a4 g8 g8 
+        e4( g4 
+        b4) r4 
+        r4 b8^\mnf b8 
+        c8( b8) a8( fis8) 
+        d4 c4 
+        d4. d8 
+        g2 
+        r4 a4 
+        b2 
+        r4 b4 
+        c2 
+        d4 d4 
+        d4( c4) 
+        b4( a4) 
+        b2 
+        %
+        r8 b,8\f b8 b8 
+        fis'4 g8 fis8 
+        b4 ais4 
+        d4( cis4 
+        b4) r4 
+        g4 g8 g8 
+        fis4( e4) \breathe 
+        d8( e8) e8 fis8 
+        fis8( g8) g8 a8 
+        b4( c4 
+        a4.) \breathe a8 
+        g8( a8 fis8 g8 
+        e4) d4 
+        c2( 
+        a4) a4 
+        d2 
+        %
+        r4 b'8 b8 
+        g2 
+        b4 ~ \times 2/3 {b8 b8 b8} 
+        e,2( 
+        b'4) b8 b8 
+        c4( b4) 
+        a4 g8 g8 
+        e4( g4 
+        b4) r4 
+        r4 b8^\mnf b8 
+        c8( b8) a8( fis8) 
+        d4( c4) 
+        d2 
+        g2 
+        %
+        r4 a4 
+        b2 
+        r4 b4 
+        c2 
+        r4 d4 
+        d2 
+        r4 d4 
+        d4( c4 
+        b4 a4 
+        e4) r4 
+        c4 r4 
+        g'2 
+      }
+    >>
+  }
+
diff --git a/hr/stch/praise/texte.ly b/hr/stch/praise/texte.ly
new file mode 100644
index 0000000..b476059
--- /dev/null
+++ b/hr/stch/praise/texte.ly
@@ -0,0 +1,36 @@
+%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+>
+    I will praise thee, O Lord, with my heart,
+    I will praise thee, O Lord, with my heart;
+    I will show forth all thy mar -- v’lous works,
+    show forth, show forth all thy mar -- v’lous works.
+    I will be glad and re -- joice in thee,
+    glad and re -- joice,
+    I will be glad and re -- joice in thee,
+    I will be glad and re -- joice in thee:
+    I will sing praise to thy name,
+    I will sing praise to thy name,
+    I will sing praise to thy name,
+    O thou most High,
+    O thou most High,
+    High, High!
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+