Hauke eingefügt

11 files changed, 723 insertions, 0 deletions

diff --git a/hr/stch/beatles/cant_buy/cant_buy.ly b/hr/stch/beatles/cant_buy/cant_buy.ly
new file mode 100644
index 0000000..61acc19
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/cant_buy.ly
@@ -0,0 +1,71 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Can’t Buy Me Love"
+    composer = "John Lennon & Paul McCartney"
+    arranger = "Keith Abbs"
+    %opus = "<+Werk+>"
+    tagline = ""
+  }
+
+  \paper {
+    line-width = \paper-width - 30
+    top-margin = 15
+    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 Staff = sopran <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \global \sopranMelodie }
+          %\addlyrics { \sopranText }
+        >>
+
+  alt = \new Staff = alt <<
+          \new Voice = "alti" { \global \altMelodie }
+          %\addlyrics { \altText }
+        >>
+
+  ten = \new Staff = tenor <<
+          \new Voice = "tenoere" { \global \tenorMelodie }
+          %\addlyrics { \tenorText }
+        >>
+
+  bas = \new Staff = bass <<
+          \new Voice = "baesse" { \global \bassMelodie }
+          \addlyrics { \stzI }
+          \addlyrics { \stzII }
+          \addlyrics { \stzIII }
+        >>
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \sop
+      \alt
+      \ten
+      \bas
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 108 2)
+      %}
+    %}
+    \layout {
+    }
+  }
+
diff --git a/hr/stch/beatles/cant_buy/cant_buy.midi b/hr/stch/beatles/cant_buy/cant_buy.midi
new file mode 100644
index 0000000..8afa336
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/cant_buy.midi
diff --git a/hr/stch/beatles/cant_buy/dynArt.ly b/hr/stch/beatles/cant_buy/dynArt.ly
new file mode 100644
index 0000000..83b5621
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/dynArt.ly
@@ -0,0 +1,97 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+    s4\f 
+    \repeat volta 2 {
+      \mark \markup { \small \musicglyph #"scripts.segno" } 
+      \slurDashed 
+      s2 \slurSolid s2 
+      s2. \slurDashed s4 
+      \slurSolid 
+      s1*2 
+      \slurDashed 
+      s2 \slurSolid s2 
+      s2 \slurDashed s2 
+      \slurSolid 
+      s1*4 
+      s1\f 
+      \mark \markup { \small \musicglyph #"scripts.coda" } 
+      s1 
+      \bar "||" 
+      \key g \major 
+      \slurDashed 
+      s1*6 
+      \time 6/8 
+      s8*6 
+      \slurSolid 
+      \time 2/2 
+      s2. s4^\markup{ \dynamic p \bold "-" \dynamic f } 
+    }
+      %\slurDashed 
+      %s2 \slurSolid s2 
+      %s2. \slurDashed s4 
+      %\slurSolid 
+      %s1*2 
+      %\slurDashed 
+      %s2 \slurSolid s2 
+      %s2 \slurDashed s2 
+      %\slurSolid 
+      %s1*4 
+      %s1\f 
+    \mark \markup { \musicglyph #"scripts.coda" } 
+    \key g \minor 
+    s1*3 
+    s4\f s2.^\markup{ \italic "rit." } 
+    s1\fermata 
+    \bar "|." 
+  }
+  unterArt = {
+    s4 
+    s1*8 
+    s1\p 
+    s1*9 
+    s8*6 
+    s1*2 
+    s1\p 
+    s1*3 
+  }
+
+% articulation
+
+    sopranArt = {
+      \tempo "Lively, Madrigalian" 2=108 
+      s4 
+      s1*4 
+      s8 s8 s8 s8 s2 
+      s2 s8 s8 s4 
+      s1*4 
+      s8 s2..^\markup{ \bold { "3"\super"rd" "time To Coda" } } 
+      s1%^\coda
+      s1*4 
+      s1*2 
+      \tempo \markup {
+        \concat {
+          (
+          \smaller \general-align #Y #DOWN \note #"8" #1
+          " = "
+          \smaller \general-align #Y #DOWN \note #"8" #1
+          )
+        }
+      }
+      s4. s4  
+      \once \override TextScript #'outside-staff-padding = #2
+      s8^\markup{ \bold { "2"\super"nd" "time D. S. al Coda" } } 
+      \override TextScript #'outside-staff-priority = #1 
+    }
+
+    altArt = << \unterArt {
+    } >>
+
+    tenorArt = << \unterArt {
+    } >>
+
+    bassArt = << \unterArt {
+    } >>
+
diff --git a/hr/stch/beatles/cant_buy/midi.lua b/hr/stch/beatles/cant_buy/midi.lua
new file mode 100644
index 0000000..247a28d
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/midi.lua
@@ -0,0 +1,50 @@
+ -- some settings -- vim: ai sw=2 lbr nu et
+
+pre=[[
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.12"
+\include "stimmen_midi.ly"
+
+  \score {
+]]
+
+post=[[
+    \midi {
+      \context{
+	\Score
+	tempoWholesPerMinute = #(ly:make-moment 108 2)
+      }
+    }
+  }
+]]
+
+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/beatles/cant_buy/midis/a.midi b/hr/stch/beatles/cant_buy/midis/a.midi
new file mode 100644
index 0000000..11dc7de
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/midis/a.midi
diff --git a/hr/stch/beatles/cant_buy/midis/b.midi b/hr/stch/beatles/cant_buy/midis/b.midi
new file mode 100644
index 0000000..7930423
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/midis/b.midi
diff --git a/hr/stch/beatles/cant_buy/midis/s.midi b/hr/stch/beatles/cant_buy/midis/s.midi
new file mode 100644
index 0000000..dfd657d
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/midis/s.midi
diff --git a/hr/stch/beatles/cant_buy/midis/t.midi b/hr/stch/beatles/cant_buy/midis/t.midi
new file mode 100644
index 0000000..22f71f6
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/midis/t.midi
diff --git a/hr/stch/beatles/cant_buy/stimmen.ly b/hr/stch/beatles/cant_buy/stimmen.ly
new file mode 100644
index 0000000..a26259b
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/stimmen.ly
@@ -0,0 +1,208 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key g \minor
+    %\override Staff.TimeSignature #'style = #'()
+    \time 2/2
+    %\autoBeamOff
+    \partial 4
+  }
+
+% Die Stimmen
+
+  cues = \relative c'' {
+    s4 
+    s1*4 
+    d8 d8 d8 d8 s2 
+    s2 g,8[ g8] s4 
+    s1*4 
+    s8 s2.. 
+    s1
+  } \addQuote blahs \cues 
+
+  cuea = \relative c'' {
+    s4 
+    s1*4 
+    bes8 bes8 bes8 bes8 s2 
+    s2 d,8[ d8] s4 
+    s1*4 
+    s8 s2.. 
+    s1
+  } \addQuote blaha \cuea 
+
+  cuet = \relative c'' {
+    s4 
+    s1*4 
+    g8 g8 g8 g8 s2 
+    s2 bes,8[ bes8] s4 
+    s1*4 
+    s8 s2.. 
+    s1
+  } \addQuote blaht \cuet 
+
+  cueb = \relative c' {
+    s4 
+    s1*4 
+    g8[ g8] s8 s8 s2 
+    s2 d8[ d8] s4 
+    s1*4 
+    s8 s2.. 
+    s1
+  } \addQuote blahb \cueb 
+
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      \sopranArt
+      %the actual tune
+      {
+	d4 
+        {
+          d4 d8( d8) c4 bes4 
+          a4 g4 g4 g8( g8) 
+          g4 d4 f4 g4 
+          g2. \parenthesize d'4 
+          \cueDuring blahs #UP { d4 d4 } c4 bes4 
+          a4 g4 \cueDuring blahs #UP { g4 } g8( g8) 
+          g4 d4 f4 g4 
+          g2. r4 
+          r1 
+          r1 
+          d'8 d8 d4 c8( bes8) a4 
+          g4 g4 b4 d4 
+          d1( 
+          b1) 
+          bes8 bes8 a8 g8 a4 a4 
+          g4 g4 b4 d4 
+          d1( 
+          b1) 
+          a4( b8) c4( d8) 
+          d2. \parenthesize d4 
+        }
+        g,2. r4 
+        r1 
+        r1 
+        d'8 d8 d4 c8( bes8) a4 
+        g1 
+      }
+    >>
+  }
+
+  altMelodie = \relative c'' {
+    <<
+      { \meta }
+      \altArt
+      %the actual tune
+      {
+	bes4 
+        {
+          bes4 bes8( bes8) a4 g4 
+          f4 c4 d4 ees8( ees8) 
+          d4 d4 f8( e8) d8( c8) 
+          b2. \parenthesize bes'4 
+          \cueDuring blaha #UP { bes4 bes4 } a4 g4 
+          f4 c4 \cueDuring blaha #UP { d4 } ees8( ees8) 
+          d4 d4 f8( e8) d8( c8) 
+          b2. r4 
+          d4 d4 ees4 d4 
+          c4 bes4 c4 bes4 
+          d8 e8 fis4 g4 fis4 
+          g4 g4 g4 g4 
+          fis1( 
+          e4) e8( fis8) g8( e8) fis8( g8) 
+          g4 g8 g8 fis8 g4 fis8 
+          g4 g4 g4 a8( g8) 
+          fis1( 
+          e4) e8( fis8) g8( e8) fis8( g8) 
+          a4( g8) e4( g8) 
+          fis2. \parenthesize bes4 
+        }
+        g2. r4 
+        d4 d4 ees4 d4 
+        c4 bes4 c4 bes4 
+        d8 e8 fis4 g4 fis4 
+        d1 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c'' {
+    <<
+      { \meta }
+      \tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	g4 
+        {
+          g4 g8( g8) d4 d4 
+          a8( bes8) c4 bes4 g8( a8) 
+          bes4 c8( bes8) a4 a4 
+          g2. \parenthesize g'4 
+          \cueDuring blaht #UP { g4 g4 } d4 d4 
+          a8( bes8) c4 \cueDuring blaht #UP bes4 g8( a8) 
+          bes8( d8) c8( bes8) a8( g8) a4 
+          g2. r4 
+          f4 f4 g4 f4 
+          f4 g4 a4 bes4 
+          fis8 g8 a4 d4 d8( c8) 
+          b4 g'8( fis8) e8( d8) c8( b8) 
+          b1( 
+          g4) g8( a8) b8( g8) a8( b8) 
+          g4 ees'4 d4 c4 
+          b4 g'8( fis8) e8( d8) c8( b8) 
+          b1( 
+          g4) g8( a8) b8( g8) a8( b8) 
+          e4( d8) c4( b8) 
+          a2. \parenthesize g'4 
+        }
+        b,2. r4 
+        f4 f4 g4 f4 
+        f4 g4 a4 bes4 
+        fis8 g8 a4 d4 d8( c8) 
+        b1 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c' {
+    <<
+      { \meta }
+      \bassArt
+      %the actual tune
+      \clef bass
+      {
+	g4 
+        {
+          g4 g,8( a8) bes8( c8) d8( ees8) 
+          f4 ees4 d4 c8( c8) 
+          bes4 a8( g8) d'4 d4 
+          g,2. \parenthesize g'4 
+          \cueDuring blahb #UP g4 g,8( a8) bes8( c8) d8( ees8) 
+          f4 ees4 \cueDuring blahb #UP d4 c8( c8) 
+          bes4 a8( g8) d'4 d4 g,2. r4 
+          bes4 bes4 ees4 bes4 
+          a4 g4 f4 bes4 
+          d8 d8 d4 d4 d4 
+          g,4 r4 r2 
+          r4 b8( c8) d8( b8) c8( d8) 
+          e1 
+          ees8 ees8 c8 c8 d4 d4 
+          g,4 r4 r2 
+          r4 b8( c8) d8( b8) c8( d8) 
+          e1 
+          c4( b8) a4( g8) 
+          d'2. \parenthesize g4 
+        }
+        g,2. r4 
+        bes4 bes4 ees4 bes4 
+        a4 g4 f4 bes4 
+        d8 d8 d4 d4 d4 
+        g,1 
+      }
+    >>
+  }
+
diff --git a/hr/stch/beatles/cant_buy/stimmen_midi.ly b/hr/stch/beatles/cant_buy/stimmen_midi.ly
new file mode 100644
index 0000000..c1fb8fc
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/stimmen_midi.ly
@@ -0,0 +1,240 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key g \minor
+    %\override Staff.TimeSignature #'style = #'()
+    \time 2/2
+    %\autoBeamOff
+    \partial 4
+  }
+
+% Die Stimmen
+
+  cues = \relative c'' {
+    s4 
+    s1*4 
+    d8 d8 d8 d8 s2 
+    s2 g,8[ g8] s4 
+    s1*4 
+    s8 s2.. 
+    s1
+  } \addQuote blahs \cues 
+
+  cuea = \relative c'' {
+    s4 
+    s1*4 
+    bes8 bes8 bes8 bes8 s2 
+    s2 d,8[ d8] s4 
+    s1*4 
+    s8 s2.. 
+    s1
+  } \addQuote blaha \cuea 
+
+  cuet = \relative c'' {
+    s4 
+    s1*4 
+    g8 g8 g8 g8 s2 
+    s2 bes,8[ bes8] s4 
+    s1*4 
+    s8 s2.. 
+    s1
+  } \addQuote blaht \cuet 
+
+  cueb = \relative c' {
+    s4 
+    s1*4 
+    g8[ g8] s8 s8 s2 
+    s2 d8[ d8] s4 
+    s1*4 
+    s8 s2.. 
+    s1
+  } \addQuote blahb \cueb 
+
+  scs = \relative c'' {
+          d4 d8( d8) c4 bes4 
+          a4 g4 g4 g8( g8) 
+          g4 d4 f4 g4 
+          g2. \parenthesize d'4 
+          \cueDuring blahs #UP { d4 d4 } c4 bes4 
+          a4 g4 \cueDuring blahs #UP { g4 } g8( g8) 
+          g4 d4 f4 g4 
+          g2. r4 
+          r1 
+          r1 
+          d'8 d8 d4 c8( bes8) a4 
+  }
+  ccs = \relative c'' {
+          g4 g4 b4 d4 
+          d1( 
+          b1) 
+          bes8 bes8 a8 g8 a4 a4 
+          g4 g4 b4 d4 
+          d1( 
+          b1) 
+          a4( b8) c4( d8) 
+          d2. \parenthesize d4 
+  }
+  cs = \relative c'' {
+        g2. r4 
+        r1 
+        r1 
+        d'8 d8 d4 c8( bes8) a4 
+        g1 
+  }
+
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      \sopranArt
+      %the actual tune
+      {
+	d4 
+        \scs \ccs 
+        \scs \ccs 
+        \scs \cs
+      }
+    >>
+  }
+
+  sca = \relative c'' {
+          bes4 bes8( bes8) a4 g4 
+          f4 c4 d4 ees8( ees8) 
+          d4 d4 f8( e8) d8( c8) 
+          b2. \parenthesize bes'4 
+          \cueDuring blaha #UP { bes4 bes4 } a4 g4 
+          f4 c4 \cueDuring blaha #UP { d4 } ees8( ees8) 
+          d4 d4 f8( e8) d8( c8) 
+          b2. r4 
+          d4 d4 ees4 d4 
+          c4 bes4 c4 bes4 
+          d8 e8 fis4 g4 fis4 
+  }
+  cca = \relative c'' {
+          g4 g4 g4 g4 
+          fis1( 
+          e4) e8( fis8) g8( e8) fis8( g8) 
+          g4 g8 g8 fis8 g4 fis8 
+          g4 g4 g4 a8( g8) 
+          fis1( 
+          e4) e8( fis8) g8( e8) fis8( g8) 
+          a4( g8) e4( g8) 
+          fis2. \parenthesize bes4 
+  }
+  ca = \relative c'' {
+        g2. r4 
+        d4 d4 ees4 d4 
+        c4 bes4 c4 bes4 
+        d8 e8 fis4 g4 fis4 
+        d1 
+  }
+
+  altMelodie = \relative c'' {
+    <<
+      { \meta }
+      \altArt
+      %the actual tune
+      {
+	bes4 
+        \sca \cca 
+        \sca \cca 
+        \sca \ca
+      }
+    >>
+  }
+  
+  sct = \relative c'' {
+          g4 g8( g8) d4 d4 
+          a8( bes8) c4 bes4 g8( a8) 
+          bes4 c8( bes8) a4 a4 
+          g2. \parenthesize g'4 
+          \cueDuring blaht #UP { g4 g4 } d4 d4 
+          a8( bes8) c4 \cueDuring blaht #UP bes4 g8( a8) 
+          bes8( d8) c8( bes8) a8( g8) a4 
+          g2. r4 
+          f4 f4 g4 f4 
+          f4 g4 a4 bes4 
+          fis8 g8 a4 d4 d8( c8) 
+  }
+  cct = \relative c' {
+          b4 g'8( fis8) e8( d8) c8( b8) 
+          b1( 
+          g4) g8( a8) b8( g8) a8( b8) 
+          g4 ees'4 d4 c4 
+          b4 g'8( fis8) e8( d8) c8( b8) 
+          b1( 
+          g4) g8( a8) b8( g8) a8( b8) 
+          e4( d8) c4( b8) 
+          a2. \parenthesize g'4 
+  }
+  ct = \relative c'' {
+        b,2. r4 
+        f4 f4 g4 f4 
+        f4 g4 a4 bes4 
+        fis8 g8 a4 d4 d8( c8) 
+        b1 
+  }
+
+  tenorMelodie = \relative c'' {
+    <<
+      { \meta }
+      \tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	g4 
+        \sct \cct 
+        \sct \cct 
+        \sct \ct
+      }
+    >>
+  }
+
+  scb = \relative c' {
+          g4 g,8( a8) bes8( c8) d8( ees8) 
+          f4 ees4 d4 c8( c8) 
+          bes4 a8( g8) d'4 d4 
+          g,2. \parenthesize g'4 
+          \cueDuring blahb #UP g4 g,8( a8) bes8( c8) d8( ees8) 
+          f4 ees4 \cueDuring blahb #UP d4 c8( c8) 
+          bes4 a8( g8) d'4 d4 g,2. r4 
+          bes4 bes4 ees4 bes4 
+          a4 g4 f4 bes4 
+          d8 d8 d4 d4 d4 
+  }
+  ccb = \relative c' {
+          g,4 r4 r2 
+          r4 b8( c8) d8( b8) c8( d8) 
+          e1 
+          ees8 ees8 c8 c8 d4 d4 
+          g,4 r4 r2 
+          r4 b8( c8) d8( b8) c8( d8) 
+          e1 
+          c4( b8) a4( g8) 
+          d'2. \parenthesize g4 
+  }
+  cb = \relative c' {
+        g,2. r4 
+        bes4 bes4 ees4 bes4 
+        a4 g4 f4 bes4 
+        d8 d8 d4 d4 d4 
+        g,1 
+  }
+
+  bassMelodie = \relative c' {
+    <<
+      { \meta }
+      \bassArt
+      %the actual tune
+      \clef bass
+      {
+	g4 
+        \scb \ccb 
+        \scb \ccb 
+        \scb \cb
+      }
+    >>
+  }
+
diff --git a/hr/stch/beatles/cant_buy/texte.ly b/hr/stch/beatles/cant_buy/texte.ly
new file mode 100644
index 0000000..6b031ae
--- /dev/null
+++ b/hr/stch/beatles/cant_buy/texte.ly
@@ -0,0 +1,57 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+  ignon = { \set ignoreMelismata = ##t } 
+  ignoff = { \unset ignoreMelismata } 
+  stzI = \lyricmode {
+    I’ll \ignon buy you a \ignoff dia -- mond ring my \ignon friend,
+    if it \ignoff makes you feel al -- right.
+    I’ll get you an -- y -- thing, my \ignon friend,
+    if it \ignoff makes you feel al -- right.
+    I don’t care too much for mon -- ey,
+    mon -- ey can’t buy me love.
+    Can’t__ buy__ me__ love,
+    ev -- ’ry -- bod -- y tells me so.
+    Can’t__ buy__ me__ love,
+    no, no, no. I’ll 
+    love. I don’t care too much for mon -- ey,
+    mon -- ey can’t buy me love.
+  }
+  stzII = \lyricmode {
+    _ give you all I’ve got to \ignon give
+    if you \ignoff say you love me too.
+    I may not__ have__ a__ lot to give_but
+    what_I’ve got I’ll__ give to you.
+    _ _ _ _ _ _ _ _
+    _ _ _ _ _ \ignon _
+    Fa la la la la la la,
+    fa la la la la la la,
+    fa la la la la la la,
+    fa la la la la. _
+  }
+  stzIII = \lyricmode {
+    _ \ignon Say that you \ignoff need no dia -- mond rings
+    and__ I’ll be__ sa -- tis -- fied.
+    _ \ignon Tell_me that you \ignoff want the kind of things
+    that mo -- ney just can’t buy.
+  }
+
+% 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+>
+  }
+