Hauke eingefügt

5 files changed, 426 insertions, 0 deletions

diff --git a/hr/stch/fertig/capricciata/capricciata.ly b/hr/stch/fertig/capricciata/capricciata.ly
new file mode 100644
index 0000000..edc4677
--- /dev/null
+++ b/hr/stch/fertig/capricciata/capricciata.ly
@@ -0,0 +1,74 @@
+%some settings% vim: ai sw=2 lbr nu encoding=utf8 et
+
+\version "2.12"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Capricciata"
+    composer = "Adriano Banchieri, 1567-1634"
+    %opus = "<+Werk+>"
+    %tagline = ""
+  }
+
+  \paper {
+    line-width = \paper-width - 30
+    top-margin = 10
+    bottom-margin = 10
+  }
+
+  \layout {
+    indent = #0
+    \context {
+      \Staff
+      \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3.5)
+    }
+  }
+
+  #(set-global-staff-size 15)
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \new Staff = sopranA <<
+	%\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+	\new Voice = "sopraneA" { \global \sopranMelodieA }
+	\addlyrics { \sopranText }
+      >>
+      \new Staff = altA <<
+	\new Voice = "altiA" { \global \altMelodieA }
+	\addlyrics { \altText }
+      >>
+      \new Staff = bassA <<
+	\new Voice = "baesseA" { \global \bassMelodieA }
+	\addlyrics { \bassText }
+      >>
+    >>
+%    \new ChoirStaff \with {} <<
+%      \new Staff = sopranB <<
+%	%\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+%	\new Voice = "sopraneB" { \global \sopranMelodieB }
+%	%\addlyrics { \sopranText }
+%      >>
+%      \new Staff = altB <<
+%	\new Voice = "altiB" { \global \altMelodieB }
+%	%\addlyrics { \altText }
+%      >>
+%      \new Staff = tenorB <<
+%	\new Voice = "tenoereB" { \global \tenorMelodieB }
+%	%\addlyrics { \tenorText }
+%      >>
+%      \new Staff = bassB <<
+%	\new Voice = "baesseB" { \global \bassMelodieB }
+%	%\addlyrics { \bassText }
+%      >>
+%    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/stch/fertig/capricciata/dynArt.ly b/hr/stch/fertig/capricciata/dynArt.ly
new file mode 100644
index 0000000..756726f
--- /dev/null
+++ b/hr/stch/fertig/capricciata/dynArt.ly
@@ -0,0 +1,21 @@
+%some settings% vim: ai sw=2 lbr nu encoding=utf8 et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/stch/fertig/capricciata/midi.lua b/hr/stch/fertig/capricciata/midi.lua
new file mode 100644
index 0000000..f8b2520
--- /dev/null
+++ b/hr/stch/fertig/capricciata/midi.lua
@@ -0,0 +1,50 @@
+ -- some settings -- vim: ai sw=2 lbr nu encoding=utf8 et
+
+pre=[[
+%some settings% vim: ai sw=2 lbr nu encoding=utf8 et
+
+\version "2.12"
+\include "stimmen.ly"
+
+  \score {
+]]
+
+post=[[
+    \midi {
+      \context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 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/fertig/capricciata/stimmen.ly b/hr/stch/fertig/capricciata/stimmen.ly
new file mode 100644
index 0000000..7a9ba74
--- /dev/null
+++ b/hr/stch/fertig/capricciata/stimmen.ly
@@ -0,0 +1,228 @@
+%some settings% vim: ai sw=2 lbr nu encoding=utf8 et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key c \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 2/2
+    \autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranMelodieA = \relative c'' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+        \repeat volta 2 {
+          c4 c8 c8 b4 g4 
+          a2 g2 
+          f4 f8 f8 e4 c4 
+          d2 c2 
+          r4 g'4 c4. c8 
+          a4. a8 d4. d8 
+        }
+        \alternative {
+          {
+            b2 a4 c4( ~
+            \time 3/2
+            c4 b8 a8 b2) c2 
+          }
+          {
+            \time 3/2
+            b2 a4 c2( b4) 
+          }
+        }
+        \time 2/2
+        c4 g4 g8( f8 g8 a8 
+        \repeat volta 2 {
+          g4) g4 r2 
+          r4 e4 e8( d8 e8 f8 
+          e4) e4 r4 e4 
+          e8( d8 e8 f8 g4) g4 
+          g4( fis8 e8 fis2) 
+          g1 
+          r2 c,4 d8 e8 
+          f4 e4 d4 c4 
+          r2 g'4 a8 b8 
+          c4 d4 c4 b4 
+          r2 e4 d8 c8 
+          b4 a4 b4 c4 
+        }
+        \alternative {
+          {
+            d4 e4 d2 
+            e4 g,4 g8( f8 g8 a8 
+          }
+          {
+            %<<s4)
+            g4) e4 d2 
+            c1 
+          }
+        }
+        \bar "||"
+      }
+    >>
+  }
+
+  altMelodieA = \relative c'' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+        \repeat volta 2 {
+          r1 
+          c4 c8 c8 b4 g4 
+          a2 g2 
+          g4 g8 g8 e4 c4 
+          d2 c2 
+          r4 c4 f4. f8 
+        }
+        \alternative {
+          {
+            d4 g4 f8 d8 e8 c8 
+            \time 3/2
+            e4( d8 c8 d2) c2 
+          }
+          {
+            \time 3/2
+            d4. g8 f8 d8 e8 c8 d2 
+          }
+        }
+        \time 2/2
+        c4 e4 e8( d8 e8 f8 
+        \repeat volta 2 {
+          e4) e4 r2 
+          r4 g4 g8( f8 g8 a8 
+          g4) g4 r4 g4 
+          c8( b8 c8 d8 c4) b4 
+          b4( a8 g8 a2) 
+          b1 
+          g4 a8 b8 c4 b4 
+          a4 g4 r2 
+          g4 a8 b8 c4 d4 
+          c4 b4 r2 
+          e4 d8 c8 b4 a4 
+          b4 c4 d4 e4 
+        }
+        \alternative {
+          {
+            d4( c2 b4) 
+            \slurDown
+            c4 e,4 e8( d8 e8 f8) 
+          }
+          {
+            d'4( c2 b4) 
+            c1 
+          }
+        }
+      }
+    >>
+  }
+  
+  bassMelodieA = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+        \repeat volta 2 {
+          r1 
+          r1 
+          r2 c'4 c8 c8 
+          b4 g4 a2 
+          g2 r4 c,4 
+          f4. f8 d4. d8 
+        }
+        \alternative {
+          {
+            g4. e8 f4 e4 
+            \time 3/2
+            g1 c,2 
+          }
+          {
+            \time 3/2
+            g'4. e8 f4 e4 g2 
+          }
+        }
+        c,1 
+        \repeat volta 2 {
+          r4 c'4 c8( b8 c8 d8 
+          c4) c4 r2 
+          r4 c4 c8( b8 c8 d8 
+          c2) g2 
+          d'1 
+          g,2 g4 a8 b8 
+          c4 b4 a4 g4 
+          r2 d4 e8 f8 
+          g4 f4 e4 d4 
+          a'4 g8 f8 e4 d4 
+          e4 f4 g4 a4 
+          g1 ~ 
+        }
+        \alternative {
+          {
+            g1 
+            c,1 
+          }
+          {
+            g'1 \repeatTie
+            c,1 
+          }
+        }
+      }
+    >>
+  }
+
+  sopranMelodieB = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	r1 
+      }
+    >>
+  }
+
+  altMelodieB = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	r1 
+      }
+    >>
+  }
+  
+  tenorMelodieB = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	r1 
+      }
+    >>
+  }
+
+  bassMelodieB = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	r1 
+      }
+    >>
+  }
+
diff --git a/hr/stch/fertig/capricciata/texte.ly b/hr/stch/fertig/capricciata/texte.ly
new file mode 100644
index 0000000..1cc23be
--- /dev/null
+++ b/hr/stch/fertig/capricciata/texte.ly
@@ -0,0 +1,53 @@
+%some settings% vim: ai sw=2 lbr nu encoding=utf8 et
+
+% Abkürzungen
+
+  nobili = \lyricmode {
+    u -- dret' hor ho -- ra quat -- tro bel -- li_hu -- mo -- ri.
+  }
+
+  frauen = \lyricmode {
+    bel -- li_hu -- mo -- ri:
+    Un ca -- ne, un cuc -- co, un chiù per spas -- so,
+  }
+
+  maenner = \lyricmode {
+    quat -- tro bel -- li_hu -- mo -- ri:
+    Un gat -- to, un chiù per spas -- so,
+  }
+
+  far = \lyricmode {
+    far con -- trap -- pun -- to_a men -- te,
+    far con -- trap -- pun -- to_a men -- te,
+    far con -- trap -- pun -- to_a men -- te so -- praun bas -- so.
+  }
+
+% Die Textaufteilungen
+
+  sopranText = \lyrics {
+    No -- bi -- li spet -- ta -- to -- ri,
+    no -- bi -- li spet -- ta -- to -- ri,
+    \nobili
+    \frauen
+    \far
+    Un ca____________________so -- praun bas -- so.
+  }
+
+  altText = \lyrics {
+    No -- bi -- li spet -- ta -- to -- ri,
+    no -- bi -- li spet -- ta -- to -- ri,
+    \nobili
+    ho -- ra quat -- tro
+    \frauen
+    \far
+    Un ca -- bas -- so.
+  }
+
+  bassText = \lyrics {
+    No -- bi -- li spet -- ta -- to -- ri,
+    \nobili
+    \maenner
+    \far
+     _ -- so.
+  }
+