Hauke eingefügt

5 files changed, 300 insertions, 0 deletions

diff --git a/hr/michi/frisch/dynArt.ly b/hr/michi/frisch/dynArt.ly
new file mode 100644
index 0000000..c34e7b9
--- /dev/null
+++ b/hr/michi/frisch/dynArt.ly
@@ -0,0 +1,42 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    %\override Staff.TimeSignature #'style = #'()
+    \dynamicUp
+    \key c \major
+    \time 4/4
+    \partial 4
+    \repeat volta 2 {
+      s4
+      s1*4
+      s1*4
+      s1*4
+      s1*3
+      s2.
+    }
+    \pageBreak
+    \repeat volta 2 {
+      s4
+      s1*4
+      s1*4
+      s1*4
+      s1*3
+      s2.
+    }
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/michi/frisch/frisch.ly b/hr/michi/frisch/frisch.ly
new file mode 100644
index 0000000..4da250b
--- /dev/null
+++ b/hr/michi/frisch/frisch.ly
@@ -0,0 +1,70 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+\pointAndClickOff
+
+  \header {
+    title = "Frisch gesungen"
+    composer = "Friedrich Silcher"
+    %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)
+
+  tenI = <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "tenoereI" { \global \voiceOne \tenorMelodieI }
+        >>
+
+  tenII = <<
+          \new Voice = "tenoereII" { \global \voiceTwo \tenorMelodieII }
+        >>
+
+  basI = <<
+          \new Voice = "baesseI" { \global \voiceOne \bassMelodieI }
+        >>
+
+  basII = <<
+          \new Voice = "baesseII" { \global \voiceTwo \bassMelodieII }
+        >>
+
+  \score {
+    \new ChoirStaff \with { printPartCombineTexts = ##f } <<
+      \new Staff = tenoere { << \tenI \\ \tenII >> }
+      \new Lyrics = tuttiA \with { alignAboveContext = "baesse" }
+      \new Lyrics = tuttiB \with { alignAboveContext = "baesse" }
+      \new Staff = baesse { << \basI \\ \basII >> }
+      \context Lyrics = tuttiA \lyricsto tenoereII \textA
+      \context Lyrics = tuttiB \lyricsto tenoereII \textB
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/michi/frisch/midi.lua b/hr/michi/frisch/midi.lua
new file mode 100644
index 0000000..8aef7d6
--- /dev/null
+++ b/hr/michi/frisch/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/frisch/stimmen.ly b/hr/michi/frisch/stimmen.ly
new file mode 100644
index 0000000..7b31aaa
--- /dev/null
+++ b/hr/michi/frisch/stimmen.ly
@@ -0,0 +1,57 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \autoBeamOff
+  }
+
+% Die Stimmen
+
+  tenorMelodieI = \relative c' {
+    <<
+      { \meta }
+      %the actual tune
+      {
+        \clef "treble_8"
+	g4 e'4 e4 f4 e8 e8 d4.( e8) d4 e8[ d8] c4 c8 c8 d8[ c8] b8 c8 d2 r4 d4 d4 d4 e4 e8 e8 g2 f4 e8[ d8] c4 c8 c8 b8[ c8] d8[ e8] c2 r4 c4 c4 c4 f4 e8 e8 d4.( e8) d4 e4 f4 f8 e8 d4 d8.[ e16] d2 r4 d4 g2 fis4 r4 f2 e4 r8 e8 g8[ f8] e8 d8 c4 b4 c2 r4 
+        g4 e'4 e4 f4 e8 e8 d4.( e8) d4 e8[ d8] c4 c8 c8 d8[ c8] b8[ c8] d2 r4 d4 d4 d4 e4 e8 e8 g2 f4 e8[ d8] c4 c8 c8 b8[ c8] d8[ e8] c2 r4 c4 c4 c4 f4 e8 e8 d4.( e8) d4 e4 f4 f8 e8 d4 d8.[ e16] d2 r4 d4 g2 fis4 r4 f2 e4 r8 e8 g8[ f8] e8 d8 c4 b4 c2 r4 
+      }
+    >>
+  }
+
+  tenorMelodieII = \relative c' {
+    <<
+      { \meta }
+      %the actual tune
+      {
+	g4 c4 c4 c4 c8 c8 b2 b4 b4 a4 a8 a8 a4 a8 a8 b2 r4 b4 b4 b4 cis4 cis8 cis8 e2 d4 a4 g4 g8 g8 g4 g4 g2 r4 c4 c4 c4 c4 c8 c8 c2 c4 c4 c4 c8 c8 c4 c4 b2 r4 b4 c2 c4 r4 b2 bes4 r8 b8 a4 a8 a8 g4 g4 g2 r4 
+        g4 c4 c4 c4 c8 c8 b2 b4 b4 a4 a8 a8 a4 a4 b2 r4 b4 b4 b4 cis4 cis8 cis8 e2 d4 a4 g4 g8 g8 g4 g4 g2 r4 c4 c4 c4 c4 c8 c8 c2 c4 c4 c4 c8 c8 c4 c4 b2 r4 b4 c2 c4 r4 b2 bes4 r8 b8 a4 a8 a8 g4 g4 g2 r4 
+      }
+    >>
+  }
+  
+  bassMelodieI = \relative c' {
+    <<
+      { \meta }
+      %the actual tune
+      \clef bass
+      {
+	g4 g4 g4 a4 g8 g8 f4.( g8) f4 f4 e4 e8 e8 fis4 fis8 fis8 g2 r4 g4 g4 g4 g4 a8 a8 a2 a4 f4 e4 e8 e8 d8[ e8] f8[ g8] e2 r4 c'4 c4 c4 c4 c8 c8 a2 a4 c4 c4 c8 c8 a4 fis4 g2 r4 g4 g2 a4 r4 g2 g4 r8 g8 f4 f8 f8 e4 d8[ f8] e2 r4 
+        g4 g4 g4 a4 g8 g8 f4.( g8) f4 f4 e4 e8 e8 fis4 fis4 g2 r4 g4 g4 g4 g4 a8 a8 a2 a4 f4 e4 e8 e8 d8[ e8] f8[ g8] e2 r4 c'4 c4 c4 c4 c8 c8 a2 a4 c4 c4 c8 c8 a4 fis4 g2 r4 g4 g2 a4 r4 g2 g4 r8 g8 f4 f8 f8 e4 d8[ f8] e2 r4 
+      }
+    >>
+  }
+
+  bassMelodieII = \relative c' {
+    <<
+      { \meta }
+      %the actual tune
+      {
+	g4 c,4 c4 c4 c8 c8 g2 g4 g4 a4 a8 a8 d4 d8 d8 g,2 r4 g'4 f4 f4 e4 e8 e8 d2 d4 f,4 g4 g8 g8 g4 g4 c2 r4 c'4 c4 c4 a4 g8 g8 fis2 fis4 g4 a4 a8 g8 fis4 d4 g2 r4 f4 e2 d4 r4 d2 cis4 r8 cis8 d4 f8 f8 g4 g,4 c2 r4 
+        g'4 c,4 c4 c4 c8 c8 g2 g4 g4 a4 a8 a8 d4 d4 g,2 r4 g'4 f4 f4 e4 e8 e8 d2 d4 f,4 g4 g8 g8 g4 g4 c2 r4 c'4 c4 c4 a4 g8 g8 fis2 fis4 g4 a4 a8 g8 fis4 d4 g2 r4 f4 e2 d4 r4 d2 cis4 r8 cis8 d4 f8 f8 g4 g,4 c2 r4 
+      }
+    >>
+  }
+
diff --git a/hr/michi/frisch/texte.ly b/hr/michi/frisch/texte.ly
new file mode 100644
index 0000000..78f3157
--- /dev/null
+++ b/hr/michi/frisch/texte.ly
@@ -0,0 +1,78 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  stzI = \lyricmode {
+    \set stanza = "1."
+    Hab oft im Krei -- se der Lie -- ben
+    in duf -- ti -- gem Gra -- se ge -- ruht
+    und mir ein Lied -- lein ge -- sun -- gen,
+    und al -- les war hübsch und gut,
+    und mir ein Lied -- lein ge -- sun -- gen,
+    und al -- les war hübsch und gut,
+    und al -- les, al -- les,
+    und al -- les war hübsch und gut.
+  }
+  
+  stzIII = \lyricmode {
+    \set stanza = "3."
+    Und man -- ches, was ich er -- fah -- ren,
+    ver -- kocht ich in stil -- ler Wut,
+    und kam ich wie -- der zu sin -- gen,
+    war al -- les auch wie -- der gut,
+    und kam ich wie -- der zu sin -- gen,
+    war al -- les auch wie -- der gut,
+    war al -- les, al -- les,
+    war al -- les auch wie -- der gut.
+  }
+  
+  stzII = \lyricmode {
+    \set stanza = "2."
+    Hab ein -- sam auch mich ge -- här -- met
+    in ban -- gem, _ dü -- ste -- rem Mut
+    und ha -- be wie -- der ge -- sun -- gen,
+    und al -- les war wie -- der gut,
+    und ha -- be wie -- der ge -- sun -- gen,
+    und al -- les war wie -- der gut,
+    und al -- les, al -- les,
+    und al -- les war wie -- der gut.
+  }
+  
+  stzIV = \lyricmode {
+    \set stanza = "4."
+    Sollst uns nicht lan -- ge _ kla -- gen,
+    was al -- les dir we -- he tut.
+    Nur frisch, nur frisch ge -- _ sun -- gen,
+    und al -- les wird wie -- der gut,
+    nur frisch, nur frisch ge -- _ sun -- gen,
+    und al -- les wird wie -- der gut,
+    und al -- les, al -- les,
+    und al -- les wird wie -- der gut.
+  }
+
+% Die Textaufteilungen %  -- _
+
+  textA = \lyricmode {
+    \stzI \stzIII
+  }
+
+  textB = \lyricmode {
+    \stzII \stzIV
+  }
+
+  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+>
+  }
+