Hauke eingefügt

6 files changed, 453 insertions, 0 deletions

diff --git a/hr/michi/segla/dynArt.ly b/hr/michi/segla/dynArt.ly
new file mode 100644
index 0000000..ebe9fc9
--- /dev/null
+++ b/hr/michi/segla/dynArt.ly
@@ -0,0 +1,35 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    %\override Staff.TimeSignature #'style = #'()
+    \dynamicUp
+    \key fis \minor
+    \time 3/4
+    s2.*6 
+    s2.*4 
+    \break
+    s2.*8 
+    \bar "||" 
+    \break
+    s2.*4 
+    s2.*4 
+    s2.*4 
+    s2.*4 
+    \bar "|."
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/michi/segla/midi.lua b/hr/michi/segla/midi.lua
new file mode 100644
index 0000000..8aef7d6
--- /dev/null
+++ b/hr/michi/segla/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/segla/segla.ly b/hr/michi/segla/segla.ly
new file mode 100644
index 0000000..df679f1
--- /dev/null
+++ b/hr/michi/segla/segla.ly
@@ -0,0 +1,73 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen_.ly"
+\include "texte.ly"
+
+\pointAndClickOff
+
+  \header {
+    title = "Vem kan segla"
+    %composer = "<+Komponist+>"
+    arranger = "Robert Sund"
+    %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 { \tenorText }
+        >>
+
+  bas = <<
+          \new Voice = "baesse" { \global \bassMelodie }
+          %\addlyrics { \bassText }
+        >>
+
+  \score {
+    \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 {
+    }
+  }
+
diff --git a/hr/michi/segla/stimmen.ly b/hr/michi/segla/stimmen.ly
new file mode 100644
index 0000000..086e0f4
--- /dev/null
+++ b/hr/michi/segla/stimmen.ly
@@ -0,0 +1,75 @@
+%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
+      {
+	R2. 
+	R2. 
+        fis2 gis4 a4. gis8 fis4 cis'2 cis4 cis2. d2 e4 fis4. e8 d4 cis2. cis2 r4 b2 cis4 d4. cis8 b4 a2 a4 fis2. gis4. a8 gis4 cis,2 eis4 fis2. fis2 r4 fis2 gis4 a4. gis8 fis4 cis'2 cis4 cis2. d2 e4 fis4. e8 d4 cis2. cis2 r4 b2 b4 d4. cis8 b4 a2 a4 fis2. gis4. a8 gis4 cis,2 eis4 fis2. fis2 r4 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	fis4 cis4 fis4 cis4 fis4 cis4 
+	fis4 cis4 fis4 cis4 fis4 cis4 
+        fis4 a4 fis4 a4 fis4 a4 
+        fis4 a4 fis4 a4 fis4 gis4 ~ gis4 e4 gis4 fis4 a4 fis4 ~ fis4 d4 fis4 eis4 gis4 eis4 fis4 cis4 fis4 dis4 fis4 dis4 d4 fis4 d4 eis4 cis4 eis4 cis4 e4 d4 cis2 r4 fis2.( eis2.) e2 eis4 fis4. gis8 a4 fis2 a4 a2. gis2 g4 fis4. gis8 a4 fis2. eis2 r4 gis2 fis4 e4. e8 d4 fis2 fis4 cis2 cis4 e4( dis4 d4) cis2 r4 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      {
+        \clef "treble_8"
+	R2. 
+	R2. 
+	cis2. 
+	cis2. 
+	cis2. 
+	cis2. 
+	a2. d2( b4) cis2.( a2) r4 
+        b2. 
+        b2. 
+        cis2. 
+        a2. 
+        b2. cis2( b4) a2( b4) a2 r4 a2 b4 cis4. b8 a4 a2 b4 cis2. cis2 fis4 d4. e8 f4 e2. d2 r4 d2 d4 b4. cis8 d4 cis2 cis4 cis2. bis4. cis8 bis4 b2 gis4 b2. a2 r4 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	R2. 
+	R2. 
+	fis2. e2. dis2. d2( cis4) b2. e2. a,2.( d2) r4 gis,2. cis2. fis2. b,2. gis2. cis2. fis2. fis2 r4 fis2.( cis2.) fis2 gis4 a4. gis8 fis4 b2 b,4 e2. a2 a,4 d4. e8 fis4 gis2. cis,2 r4 fis2 e4 d4. cis8 b4 gis2 gis4 cis2 cis4 fis2. fis2 r4 
+      }
+    >>
+  }
+
diff --git a/hr/michi/segla/stimmen_.ly b/hr/michi/segla/stimmen_.ly
new file mode 100644
index 0000000..6a88781
--- /dev/null
+++ b/hr/michi/segla/stimmen_.ly
@@ -0,0 +1,189 @@
+%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
+      {
+	R2. 
+	R2. 
+        fis2 gis4 
+        a4. gis8 fis4 
+        cis'2 cis4 
+        cis2. 
+        d2 e4 
+        fis4. e8 d4 
+        cis2. 
+        cis2 r4 
+        b2 cis4 
+        d4. cis8 b4 
+        a2 a4 
+        fis2. 
+        gis4. a8 gis4 
+        cis,2 eis4 
+        fis2. 
+        fis2 r4 
+        fis2 gis4 
+        a4. gis8 fis4 
+        cis'2 cis4 
+        cis2. 
+        d2 e4 
+        fis4. e8 d4 
+        cis2. 
+        cis2 r4 
+        b2 b4 
+        d4. cis8 b4 
+        a2 a4 
+        fis2. 
+        gis4. a8 gis4 
+        cis,2 eis4 
+        fis2. 
+        fis2 r4 
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	fis4 cis4 fis4 
+	cis4 fis4 cis4 
+	fis4 cis4 fis4 
+	cis4 fis4 cis4 
+        fis4 a4 fis4 
+        a4 fis4 a4 
+        fis4 a4 fis4 
+        a4 fis4 gis4 ~ 
+        gis4 e4 gis4 
+        fis4 a4 fis4 ~ 
+        fis4 d4 fis4 
+        eis4 gis4 eis4 
+        fis4 cis4 fis4 
+        dis4 fis4 dis4 
+        d4 fis4 d4 
+        eis4 cis4 eis4 
+        cis4 e4 d4 
+        cis2 r4 
+        fis2.( 
+        eis2.) 
+        e2 eis4 
+        fis4. gis8 a4 
+        fis2 a4 
+        a2. 
+        gis2 g4 
+        fis4. gis8 a4 
+        fis2. 
+        eis2 r4 
+        gis2 fis4 
+        e4. e8 d4 
+        fis2 fis4 
+        cis2 cis4 
+        e4( dis4 d4) 
+        cis2 r4 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      {
+        \clef "treble_8"
+	R2. 
+	R2. 
+	cis2. 
+	cis2. 
+	cis2. 
+	cis2. 
+	a2. 
+	d2( b4) 
+	cis2.( 
+	a2) r4 
+        b2. 
+        b2. 
+        cis2. 
+        a2. 
+        b2. 
+        cis2( b4) 
+        a2( b4) 
+        a2 r4 
+        a2 b4 
+        cis4. b8 a4 
+        a2 b4 
+        cis2. 
+        cis2 fis4 
+        d4. e8 f4 
+        e2. 
+        d2 r4 
+        d2 d4 
+        b4. cis8 d4 
+        cis2 cis4 
+        cis2. 
+        bis4. cis8 bis4 
+        b2 gis4 
+        b2. 
+        a2 r4 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	R2. 
+	R2. 
+	fis2. 
+	e2. 
+	dis2. 
+	d2( cis4) 
+	b2. 
+	e2. 
+	a,2.( 
+	d2) r4 
+	gis,2. 
+	cis2. 
+	fis2. 
+	b,2. 
+	gis2. 
+	cis2. 
+	fis2. 
+	fis2 r4 
+	fis2.( 
+	cis2.) 
+	fis2 gis4 
+	a4. gis8 fis4 
+	b2 b,4 
+	e2. 
+	a2 a,4 
+	d4. e8 fis4 
+	gis2. 
+	cis,2 r4 
+	fis2 e4 
+	d4. cis8 b4 
+	gis2 gis4 
+	cis2 cis4 
+	fis2. 
+	fis2 r4 
+      }
+    >>
+  }
+
diff --git a/hr/michi/segla/texte.ly b/hr/michi/segla/texte.ly
new file mode 100644
index 0000000..24410cf
--- /dev/null
+++ b/hr/michi/segla/texte.ly
@@ -0,0 +1,28 @@
+%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+>
+  }
+
+  tenorText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+    Vem kan seg -- la u -- tan vind?
+    Vem kan skil -- jas u -- tan ta -- rar?
+    Jag kan seg -- la för u -- tan vind.
+    Jag kan ro u -- tan å -- ror.
+    Men ej skil -- jas från vän -- nen min
+    u -- tan att fäl -- la tå -- rar.
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+