Hauke eingefügt

7 files changed, 282 insertions, 0 deletions

diff --git a/hr/issi/idj/dynArt.ly b/hr/issi/idj/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/issi/idj/dynArt.ly
@@ -0,0 +1,21 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/issi/idj/idj.ly b/hr/issi/idj/idj.ly
new file mode 100644
index 0000000..d9a4ba8
--- /dev/null
+++ b/hr/issi/idj/idj.ly
@@ -0,0 +1,54 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.12"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "In dulci jubilo"
+    composer = "Jos. Klug"
+    %opus = "<+Werk+>"
+    tagline = ""
+  }
+
+  \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 ChoirStaff \with {} <<
+      \new Staff = frauen <<
+	%\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+	\new Voice = "soprane" { \global \voiceOne \sopranMelodie }
+	\new Voice = "alti" { \global \voiceTwo \altMelodie }
+      >>
+      \lyricsto "soprane" { \new Lyrics { \sopranText } }
+      \new Staff = tenor <<
+	\new Voice = "tenoere" { \global \voiceOne \tenorMelodie }
+	\new Voice = "baesse" { \global \voiceTwo \bassMelodie }
+	%\addlyrics { \bassText }
+      >>
+    >>
+    \midi {
+      \context{
+	\Score
+	tempoWholesPerMinute = #(ly:make-moment 72 4)
+      }
+    }
+    \layout {
+    }
+  }
+
diff --git a/hr/issi/idj/idj.midi b/hr/issi/idj/idj.midi
new file mode 100644
index 0000000..3f8ba16
--- /dev/null
+++ b/hr/issi/idj/idj.midi
diff --git a/hr/issi/idj/idj.ps b/hr/issi/idj/idj.ps
new file mode 100644
index 0000000..70253dc
--- /dev/null
+++ b/hr/issi/idj/idj.ps
diff --git a/hr/issi/idj/midi.lua b/hr/issi/idj/midi.lua
new file mode 100644
index 0000000..58e69da
--- /dev/null
+++ b/hr/issi/idj/midi.lua
@@ -0,0 +1,50 @@
+ -- some settings -- vim: ai sw=2 lbr nu 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/issi/idj/stimmen.ly b/hr/issi/idj/stimmen.ly
new file mode 100644
index 0000000..5b28667
--- /dev/null
+++ b/hr/issi/idj/stimmen.ly
@@ -0,0 +1,127 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key f \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 3/4
+    %\autoBeamOff
+    \partial 4
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	f4 
+        f2 f4 
+        a2 bes4 
+        c2( d4 
+        c2.\fermata) 
+        f,2 f4 
+        a2 bes4 
+        c2( d4 
+        c2.\fermata) 
+        c2 d4 
+        c2 bes4 
+        a4.( bes8 a8 g8) 
+        f2\fermata f4 
+        g2 g4 
+        a2 g4 
+        f2( g4 
+        a2.\fermata) 
+        c2 d4 
+        c2 bes4 
+        a4.( bes8 a8 g8) 
+        f2\fermata f4 
+        g2 g4 
+        a2 g4 
+        f2( g4 
+        a2.\fermata) 
+        d,2 d4 
+        e2 e4 
+        f8( e8 f8 g8 a8 bes8 
+        c2.\fermata) 
+        a2 a4 
+        g2 g4 
+        f2. ~ 
+        f2.\fermata 
+        \bar "|." 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	c4 
+        d2 d4 e2 e4 
+        f2. ~ f2. 
+        f4( e4) d4 c2 d4 
+        c4( e4 g4 e2.) 
+        f2 f4 e4( f4) g4 
+        cis,4( d4 e4) a,2 f'4 ~ 
+        f4 e8( d8) e4 f2 e4 
+        f4.( g8 f8 e8 f2.) 
+        f2 f4 g4( f4) g4 
+        g4( f4 e4) d2 f4 ~ 
+        f4 e8( d8) e4 f2( e4 ~ 
+        e4 a,4) d4 cis2. 
+        d2 d4 ~ d4 c8( d8) e4( ~ 
+        e4 d2) c2. 
+        c4( f8 e8) f4 f2 e4 
+        f8( ees8 d8 c8 d8 bes8 c2.) 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	a4 
+        a2 bes4 c2 bes4 a2( bes4 a2.) 
+        a2 bes4 a4( g4) f4 g4( c4 b4 g2.) 
+        a2 bes4 c4( d4) e4 a,4( b4 cis4) d2 
+        c4 d4( bes4) c4 c2.( ~ c4 a4) c4 c2. 
+        a2 bes4 g2 e'4 e4( d4 cis4) a2 
+        c4 d4( bes4) c4 c2 c4 a2( bes4 e,2.) 
+        r8 f8( g8 a8 bes8 a8 g4) a8( bes8 c8 bes8) 
+        a4.( g8) f4 g2. 
+        a4( bes4) c4 d4( bes4) c4 c4( bes8 a8 bes8 g8 a2.) 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	f4 
+        d4( c4) bes4 a4 bes8( a8 g8 a8) f8( f'8 ees8 d8 c8 bes8 f'2.\fermata) 
+        d4( c4) bes4 f'4( e4) d4 e4( c4 g4 c2.\fermata) 
+        f2 bes4 bes4( a4) g4 g4( f4 e4) d2\fermata 
+        a4 bes4( g4) c4 f,8( g8 a8 bes8 c8 bes8 a4 f4) c4 f2.\fermata 
+        f'4( e4) d4 e4( d4) c4 f8( g8 a4 a,4) d2\fermata 
+        a4 bes4( g4) c4 f,8( g8 a8 bes8 c8 a8 d4 c4) bes4 a2.\fermata 
+        bes4( a4) g4 c4( bes4) a4 d8( c8 d8 e8 f8 d8 e2.\fermata) 
+        f,4( g4) a4 bes4( g4) c4 a4( bes2 f2.\fermata) 
+      }
+    >>
+  }
+
diff --git a/hr/issi/idj/texte.ly b/hr/issi/idj/texte.ly
new file mode 100644
index 0000000..6177ec0
--- /dev/null
+++ b/hr/issi/idj/texte.ly
@@ -0,0 +1,30 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+% Die Textaufteilungen
+
+  sopranText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+    In dul -- ci ju -- bi -- lo
+    sin -- get und seid froh,
+    un -- sers Her -- zens Won -- ne
+    liegt in prae -- se -- pi -- o
+    leuch -- tet als die Son -- ne
+    ma -- tris in pre -- mi -- o
+    Al -- pha es et O,
+    Al -- pha es et O.
+  }
+
+  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+>
+  }
+