Hauke eingefügt

5 files changed, 329 insertions, 0 deletions

diff --git a/hr/michi/bogoroditse/bogoroditse.ly b/hr/michi/bogoroditse/bogoroditse.ly
new file mode 100644
index 0000000..80faeae
--- /dev/null
+++ b/hr/michi/bogoroditse/bogoroditse.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 = "Bogoroditse Devo"
+    composer = "Sergei Rachmaninov"
+    %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 15)
+
+  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 {
+    }
+  }
+
diff --git a/hr/michi/bogoroditse/dynArt.ly b/hr/michi/bogoroditse/dynArt.ly
new file mode 100644
index 0000000..855181e
--- /dev/null
+++ b/hr/michi/bogoroditse/dynArt.ly
@@ -0,0 +1,36 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    %\override Staff.TimeSignature #'style = #'()
+    \dynamicUp
+    \key f \major
+    \time 4/4
+    \partial 2
+    s2
+    s1*8
+    \break
+    s1*9
+    \break
+    s1*1
+    \time 6/4
+    s1.*6
+    \time 4/4
+    s1*3
+    \bar "|."
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/michi/bogoroditse/midi.lua b/hr/michi/bogoroditse/midi.lua
new file mode 100644
index 0000000..8aef7d6
--- /dev/null
+++ b/hr/michi/bogoroditse/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/bogoroditse/stimmen.ly b/hr/michi/bogoroditse/stimmen.ly
new file mode 100644
index 0000000..116b8f5
--- /dev/null
+++ b/hr/michi/bogoroditse/stimmen.ly
@@ -0,0 +1,137 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  oben = \relative c'' {
+        c4 a4( c2 e4 d1) d2 d4( c8 bes8) c4( d2) c4 d8( e8 <f d>4) 
+        <<
+          {
+            \voiceOne
+            g1 f4( e4) f4( e4) d8( f8 e2) d4 
+          } 
+          \new Voice {
+            \voiceTwo
+            e1 d4 c4 d4 c4 d4 c2 bes4 
+          }
+        >>
+  }
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	a4 a4 a4.( g8) f4 a4 g4.( f8) g2 a8( g8 f8 a8 g8 f8) g4 a2 
+        a4 g8( a8) bes4( a4 g4) f8( a8) g2( ~ g8 e8) f8( g8) a8( g8 f8 a8 g8 f8 g4) a2 
+        a2 a2. g4 a1( ~ a2. g4 a8 g8 f8 a8 g8 f8 g4 a1) 
+        c2. a8( bes8) c4( d2) 
+        \oben
+        c1 c2 c1 c2 c4. r8 
+        a4( g4) f4( a4) g2( f2) g1 f1 
+      }
+    >>
+  }
+
+  unten = \relative c'' {
+        a8( bes8 c4.) c8 c8( bes8 a8 c8 bes8 a8) bes4 ~ bes4 bes8 bes8 bes8( a8 g8 bes8 a8 f8 
+  }
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	f4 f4 f4.( e8) d4 f4 e4.( d8) e2 
+        f8( e8 d8 f8 ~ f8 d8) e4 f2 
+        f4 f4 f2. d8( e8) f4( e4 d8 c8) d8( e8) f8( e8 d8 f8 ~ f8 d8 e4) f2 
+        f2 e4.( f8 e4) d4 c4.( d8 c4 bes4 c4 d2 e4 f8 e8 d8 f8 ~ f8 d8 e4) f4 
+        <<
+          {
+            a4 a4 a4 a8( g8 f8 a8 g8 f8 g4) a2 a8( g8 f8 a8) g8( f8 g4) a2 ~ a4 g8( a8) bes4 bes8 bes8 bes8( a8 g8 bes8) a8( g8) a4 a4 g8( a8) bes8( a8) g8( bes8) a8( g8) 
+          }
+          {
+            f4 f4 f4 f8( e8 d8 f8 e8 d8 e4) f2 f8( e8 d8 f8) e8( d8 e4) f2 ~ f4 e8( f8) g4 g8 g8 g8( f8 e8 g8) f8( e8) f4 f4 e8( f8) g8( f8) e8( g8) f8 
+          }
+        >>
+        \unten
+        g4 a4) a8 a8 a8( g8) f8( a8) g8( f8) g4 a2( ~ a8 g8 f8 a8 g8 f8 g4 a4.) r8 
+        f4( e4) d4( e4) d2( c2) bes1 a1 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      {
+        \clef "treble_8"
+	c4 c4 c2 a4 c4 c4.( a8) c2 c4( a8 c8 d8 a8) c4 c2 
+        c4 c4 d4( c4 bes4) a4 bes4( a4 g8 a8) bes4 a4.( c8 d8 a8 c4) c2 
+        c2 a2. g4 e4.( f8 e4 d4 e4. f8 g8 a8 bes4 c4 a8 c8 d8 a8 c4) c1 
+        c2. a8 bes8( c4 d2) 
+        \transpose g g, \oben
+        <<
+          {
+            \voiceOne
+            f4( e4) d4( c4) 
+          }
+          \new Voice {
+            \voiceTwo
+            c2 c8( bes8 a4) 
+          }
+        >>
+        \oneVoice
+        bes8( a8) bes4 c4 c8 c8 c8( bes8) a8( c8) bes8( a8) bes4 c4. r8 
+        <<
+          {
+            \voiceOne
+            c2 a2 
+          }
+          \new Voice {
+            \voiceTwo
+            a4( g4) a2 
+          }
+        >>
+        \oneVoice
+        g2( f4 e4) d2. c4 f1 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	f4 f4 f4.( c8) d4 a4 c4.( d8) c2 f8( c8 d8 a8 bes8 d8) c4 f2 
+        f4 e4 d2. c4 d4( c4 bes8 a8) g4 d'4.( a8 bes8 d8 c4) f2 
+        f4( d4) c4.( d8 c4) bes4 a2.( g4 a4 bes2 c4 f8 c8 d8 a8 bes8 d8 c4) f1 
+        r1 r1 r1 r1 r1 r1 r4 
+        \transpose a a, \unten
+        %a8( bes8 c4.) c8 c8( bes8 a8 c8 bes8 a8) bes4 ~ bes4 bes8 bes8 bes8( a8 g8 bes8 a8 f8 
+        g4) a4( g4) f4( e4) d4 c4 
+        <<
+          {
+            f4( e4 d4 e4) d4( c4) 
+          } \\
+          {
+            f,1 f2 
+          }
+        >>
+        f'4. r8 
+        f4( e4) d4( c4) bes2( a2) g2. c4 <c f,>1 
+      }
+    >>
+  }
+
diff --git a/hr/michi/bogoroditse/texte.ly b/hr/michi/bogoroditse/texte.ly
new file mode 100644
index 0000000..a46aa97
--- /dev/null
+++ b/hr/michi/bogoroditse/texte.ly
@@ -0,0 +1,31 @@
+%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+>
+    Bo -- go -- ro -- di -- tse De -- vo,
+    ra -- dui -- sya,
+    Bla -- go -- dat -- na -- ya Ma -- ri -- e,
+    Go -- spod sTo -- bo -- yu,
+    Bo -- go -- ro -- di -- tse De -- vo,
+    ra -- dui -- sya,
+    ra -- dui -- sia, ya -- ko Spa -- sa ro -- di -- la,
+    ya -- ko Spa -- sa ro -- di -- la
+    e -- si dush na -- _ shikh.
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+