Hauke eingefügt

5 files changed, 340 insertions, 0 deletions

diff --git a/hr/michi/gaudeamus/dynArt.ly b/hr/michi/gaudeamus/dynArt.ly
new file mode 100644
index 0000000..47be107
--- /dev/null
+++ b/hr/michi/gaudeamus/dynArt.ly
@@ -0,0 +1,57 @@
+%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 3/4
+    \set Timing.beamExceptions = #'(
+      (end .
+        (
+          ((1 . 8) . (2 2 2))
+          ((1 . 16) . (4 4 4))
+        )
+      )  
+    )
+    %\set Timing.baseMoment = #(ly:make-moment 1/4)
+    \set Staff.beatStructure = #'(1 1 1)
+    s2.*13
+    \time 2/4
+    \set Timing.beamExceptions = #'(
+      (end .
+        (
+          ((1 . 8) . (2 2))
+          ((1 . 16) . (4 4))
+        )
+      )  
+    )
+    \set Staff.beatStructure = #'(1 1)
+    s2*2
+    \time 3/4
+    \set Timing.beamExceptions = #'(
+      (end .
+        (
+          ((1 . 8) . (2 2 2))
+          ((1 . 16) . (4 4 4))
+        )
+      )  
+    )
+    \set Staff.beatStructure = #'(1 1 1)
+    s2.*3
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/michi/gaudeamus/gaudeamus.ly b/hr/michi/gaudeamus/gaudeamus.ly
new file mode 100644
index 0000000..20e76be
--- /dev/null
+++ b/hr/michi/gaudeamus/gaudeamus.ly
@@ -0,0 +1,84 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+\pointAndClickOff
+
+  \header {
+    title = "Gaudeamus igitur"
+    %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)
+
+  \score {
+    \new Staff <<
+      \new Voice = "solo" {
+        \keepWithTag #'slur { \sopranMelodie \bar "||" }
+      }
+      \addlyrics { \soloText }
+    >>
+  }
+  sop = <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \global \keepWithTag #'tutti \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 \bar "|." }
+      \new Lyrics \lyricsto soprane \keepWithTag #'oben \textA
+      \new Lyrics \lyricsto soprane \keepWithTag #'oben \textB
+      \new Staff = alt { \alt }
+      \new Staff = tenor { \ten }
+      \new Lyrics \lyricsto tenoere \keepWithTag #'unten \textA
+      \new Lyrics \lyricsto tenoere \keepWithTag #'unten \textB
+      \new Staff = bass { \bas }
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/michi/gaudeamus/midi.lua b/hr/michi/gaudeamus/midi.lua
new file mode 100644
index 0000000..8aef7d6
--- /dev/null
+++ b/hr/michi/gaudeamus/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/gaudeamus/stimmen.ly b/hr/michi/gaudeamus/stimmen.ly
new file mode 100644
index 0000000..0265c20
--- /dev/null
+++ b/hr/michi/gaudeamus/stimmen.ly
@@ -0,0 +1,87 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	c8. g16 g4 c4 a8. a16 a2 b8 c8 d4 b4 
+        \tag #'slur { c8( e8) c2 } 
+        \tag #'tutti { c8 e8 c2 } 
+	c8. g16 g4 c4 a8. a16 a2 b8 c8 d4 b4 
+        \tag #'slur { c8( e8) c2 } 
+        \tag #'tutti { c8 e8 c2 } 
+        b8 c8 d4 d4 e8. c16 
+        \tag #'slur { d4 d4 } 
+        \tag #'tutti { d2 } 
+        b8. c16 d4 d4 e8. c16 
+        \tag #'slur { d4 d4 } 
+        \tag #'tutti { d2 } 
+        c8 b8 a8( f'8) e8( d8) e4( d4) c2 
+        c8. b16 a8( f'8) e8( d8) g2( b,4) c2. 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	\repeat unfold 2 {
+          e8. e16 f4 g4 g8. g16 f4( e4) 
+        } \alternative {
+          {
+            d8 c8 b4 g'4 g4 g4( f4) 
+          }
+          {
+            d8 e8 f4 g4 g4 g2 
+          }
+        }
+        g8 g8 g4 g4 g8. a16 b4( g4) g8. g16 g4 g4 a8. a16 a4( gis4) e8 e8 e8( a8) a4 g8( a8 f8 g8) e2 g8. g16 g8( a8) a8( d8) c8( b8 a8 g8 f4) e2. 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      {
+        \clef "treble_8"
+	c8. c16 c4 c4 e8. e16 d4( c4) b8 a8 g4 d'4 c4 c2 
+        c8. c16 c4 c4 e8. e16 d4( c4) g'8 g8 a8( g8) f4 e4 e2 
+        d8 e8 f4 f4 c8. e16 d4( b4) d8. c16 b4 b4 c8. c16 b2 c8 c8 c4 c4 c4( ~ c8 b8) b4( a4) 
+        e'8. d16 c8( a8) f'4 e8( g8 f8 e8 d4) c2. 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	c8. c16 d4 e4 f8. f16 f2 f8 f8 f4 f4 e4 e4( d4) c8. c16 d4 e4 f8. f16 f2 f8 e8 d4 g4 c,4 c2 
+        g'8 g8 g4 g4 g8. g16 g2 
+        f8. f16 f4 f4 f8. f16 f4( e4) 
+        a8 g8 f8( d8) e8( f8) e8( f8 g4) a2 
+        e8. e16 f4 f4 g2 g,4 c2. 
+      }
+    >>
+  }
+
diff --git a/hr/michi/gaudeamus/texte.ly b/hr/michi/gaudeamus/texte.ly
new file mode 100644
index 0000000..b7af06f
--- /dev/null
+++ b/hr/michi/gaudeamus/texte.ly
@@ -0,0 +1,59 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  soloText = \lyrics {
+    Gau -- de -- a -- mus i -- gi -- tur
+    iu -- ve -- nes dum su -- mus
+    Gau -- de -- a -- mus i -- gi -- tur
+    iu -- ve -- nes dum su -- mus
+    Post iu -- cun -- dam iu -- ven -- tu -- tem
+    Post mo -- le -- stam se -- nec -- tu -- tem
+    Nos ha -- be -- bit hu -- mus
+    nos ha -- be -- bit hu -- mus
+  }
+
+  textA = \lyrics {
+    Vi -- ta no -- stra bre -- vis est
+    \tag #'oben { bre -- vi fi -- ni -- e -- _ tur! }
+    \tag #'unten { bre -- vi fi -- ni -- e -- tur! }
+    Vi -- ta no -- stra bre -- vis est
+    \tag #'oben { bre -- vi fi -- ni -- e -- _ tur! }
+    \tag #'unten { bre -- vi fi -- ni -- e -- tur! }
+    Ve -- nit mors ve -- lo -- ci -- ter
+    ra -- pit nos a -- tro -- ci -- ter
+    ne -- mi -- ni par -- ce -- tur,
+    ne -- mi -- ni par -- ce -- tur.
+  }
+
+  textB = \lyrics {
+    Vi -- vat a -- ca -- de -- mi -- a
+    \tag #'oben { Vi -- vant pro -- fes -- so -- _ res! }
+    \tag #'unten { Vi -- vant pro -- fes -- so -- res! }
+    Vi -- vat a -- ca -- de -- mi -- a
+    \tag #'oben { Vi -- vant pro -- fes -- so -- _ res! }
+    \tag #'unten { Vi -- vant pro -- fes -- so -- res! }
+    Vi -- vat mem -- brum quod -- li -- bet
+    Vi -- vent mem -- bra quæ -- li -- bet
+    sem -- per sint in flo -- re,
+    sem -- per sint in flo -- re.
+  }
+
+% 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+>
+  }
+