Hauke eingefügt

5 files changed, 314 insertions, 0 deletions

diff --git a/hr/michi/road/dynArt.ly b/hr/michi/road/dynArt.ly
new file mode 100644
index 0000000..1c04264
--- /dev/null
+++ b/hr/michi/road/dynArt.ly
@@ -0,0 +1,46 @@
+%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 3/4
+    \repeat volta 2 {
+      \partial 4
+      s4
+      s2.
+      \time 4/4
+      s1
+      \time 3/4
+      s2.*17
+      s2
+    }
+    \break
+    s4
+    s2.
+    \time 4/4
+    s1
+    \time 3/4
+    s2.*19
+    \time 4/4
+    s1
+    \time 3/4
+    s2.*2
+    \bar "|."
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/michi/road/midi.lua b/hr/michi/road/midi.lua
new file mode 100644
index 0000000..8aef7d6
--- /dev/null
+++ b/hr/michi/road/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/road/road.ly b/hr/michi/road/road.ly
new file mode 100644
index 0000000..780602c
--- /dev/null
+++ b/hr/michi/road/road.ly
@@ -0,0 +1,81 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+\pointAndClickOff
+
+  \header {
+    title = "The Road Home"
+    %composer = "<+Komponist+>"
+    %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 { \tenorTextI }
+          \addlyrics { \tenorTextII }
+        >>
+
+  bas = <<
+          \new Voice = "baesse" { \global \bassMelodie }
+          %\addlyrics { \bassText }
+        >>
+
+  \score {
+    <<
+      \new Staff = sopSolo { \new Voice = "solo" { \global \sopSolo } }
+      \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 {
+      \context {
+        \Staff
+        \RemoveEmptyStaves
+        \override VerticalAxisGroup #'remove-first = ##t
+      }
+    }
+  }
+
diff --git a/hr/michi/road/stimmen.ly b/hr/michi/road/stimmen.ly
new file mode 100644
index 0000000..3e674df
--- /dev/null
+++ b/hr/michi/road/stimmen.ly
@@ -0,0 +1,81 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopSolo = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+      s4
+      s2.
+      s1
+      s2.*17
+      s2
+    r4
+    r2.
+    r1
+        r2.
+	r4 r4 c8( d8) f2 a8 a8 c2 a8 a8 c4 c4 d4 a2 c4 c4 c4 c8( bes8) a2 c8 c8 f2 d4 c2 a8 c8 f2 f4 f4 f4 e4 g4( f4) e8 f8 d2 c4 f2 a,8 a8 c2 c8 c8 f4( a,4) g4 f2. ~ f2. r1 R2. R2. 
+      }
+    >>
+  }
+
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+        c4( d4 c4 a4 g4 f2 g4 a4 f4 d4 f2) c8 d8 f2 f8 d8 g2 f8 g8 a2 g8( f8) d2 c8 d8 f2 f8 d8 g2 f8( g8) a2 <f d>4 g2 f8 a8 c2 c8 a8 d4 c4 a8( g8) f2 g8( f8) d2 c8 d8 f2 f8 d8 g2 f8 g8 <a f>2 << g4 \\ { f8( e8) } >> f2 
+        c'4( d4 c4 a4 g4 f2 g4 a4 f4 d4 f2) c8( d8) f2 f8 d8 g2 f8 g8 a2 g8 f8 d2 c8 d8 f4 f4 f8( d8) g2 f8 g8 a2 <f d>4 g2 f8 a8 c2 c8( a8) d4 c4 a8( g8) f2 g8 f8 d2 c8( d8) f2 f8 d8 g2 f8 g8 <a f>2 << g4 \\ { f8( e8) } >> f2 c'4( d4 c4 a4 g4 f2) g4( a4 f4 d4 f2.) 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	f4( ~ f2. ~ f4 e2 d4 ~ d2 bes4 a2) c8 d8 a2 bes8 bes8 c2 c8 c8 d2 d4 c2 c8 d8 bes2 c8 c8 c2 c8 c8 d2 c4 f4( e4) f8 a8 f2 f8 f8 f4 f4 e4 e4( d4) d8 d8 c4( bes4) g8 g8 bes2 bes8 bes8 c2 c8 c8 d2 c4 c2 
+        f4( ~ f2. ~ f4 e2 d4 ~ d2 bes4 a2) c8( d8) a2 bes8 bes8 c2 c8 c8 d2 d8 d8 c2 c8 d8 bes4 bes4 c4 c2 c8 c8 d2 c4 f4( e4) f8 a8 f2 f4 f4 f4 e4 e4( d4) d8 d8 c4( bes4) g4 bes2 bes8 bes8 c2 c8 c8 d2 c4 c2 f4( ~ f2 e4 d4 c2) d4( ~ d4 bes2 c2.) 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      {
+        \clef "treble_8"
+	c4( d4 c2 ~ c2. a4 ~ a4 f2 c2) c8 d8 c2 d8 f8 f2 f8 f8 f2 g4 a2 c,8 d8 g2 bes8 bes8 a2 a8 a8 bes2 bes4 c2 f,8 a8 c2 c8 c8 d4 c4 cis4 a2 a8 a8 f2 f8 f8 d2 d8 f8 f2 g8 g8 bes2 bes4 a2 
+        c4( d4 c2 ~ c2. a4 ~ a4 f2 c2) c8( d8) c2 f8 f8 f2 d8 f8 f2 g8 g8 a2 c,8 d8 g4 g4 bes4 a2 a8 a8 bes2 bes4 c2 f,8 a8 c2 c4 d4 c4 cis4 a2 a8 a8 f2 f4 d2 f8 f8 f2 g8 g8 <bes g>2 bes4 a2 c4( d4 c2 bes4 a2) a4( g4 d4 f4 a2.) 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c' {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+        a4( bes4 a4 g4 f4 e2 d4 c4 bes4 g4 f2) c'8 d8 f,2 g8 g8 a2 a8 a8 bes2 bes4 c2 c8 d8 d2 d8 d8 e2 e8 e8 f2 f4 <bes g>2 f8 a8 a2 a8 a8 bes4 a4 e4 d2 c8 c8 bes2 a8 a8 g2 g8 g8 a2 bes8 bes8 <g' c,>2 q4 <c, f,>2 
+        a'4 bes4 a4 g4 f4( e2 d4 c4 bes4 g4 f2) c'8( d8) f,2 g8 g8 a2 a8 a8 bes2 bes8 bes8 c2 c8 d8 d4 d4 d4 e2 e8 e8 f2 f4 <bes g>2 f8 a8 a2 a4 bes4 a4 e4 d2 c8 c8 bes2 a4 g2 g8 g8 a2 bes8 bes8 c2 <g' c,>4 <c, f,>2 a'4( bes4 a4 g4 f4 e2) << { d4( bes4 g4 c4 ~ c2.) } \\ { s4 s4 s4 c,4 f2. } >> 
+      }
+    >>
+  }
+
diff --git a/hr/michi/road/texte.ly b/hr/michi/road/texte.ly
new file mode 100644
index 0000000..565e028
--- /dev/null
+++ b/hr/michi/road/texte.ly
@@ -0,0 +1,53 @@
+%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+>
+  }
+
+  tenorTextI = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+    Oo__
+    \set stanza = "1."
+    Tell me where is the road I can call my own,
+    That I left, that I lost,
+    So _ long a -- go?
+    All these years I have wan -- dered,
+    O when will I know
+    There’s a way, there’s a road that will lead me home?
+    Oo__
+    Rise up, fol -- low me,
+    Come a -- way is the call,
+    With the love in your heart
+    As the on -- ly song;
+    There is no such beau -- ty as where you be -- long,
+    Rise up, fol -- low me,
+    I will lead you home.
+    Oo__
+    Oo__
+  }
+
+  tenorTextII = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+    _
+    \set stanza = "2."
+    Af -- ter wind, af -- ter rain,
+    When the dark is done,
+    As I wake from a dream
+    In the gold of day,
+    Through the air there’s a call -- ing
+    From far a -- _ way,
+    There’s a voice I can hear that will lead me home.
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+