Add BWV1056 largo

17 files changed, 406 insertions, 0 deletions

diff --git a/bwv1056/Makefile b/bwv1056/Makefile
new file mode 100644
index 0000000..fb57b81
--- /dev/null
+++ b/bwv1056/Makefile
@@ -0,0 +1,12 @@
+SOURCES = $(wildcard *.ly)
+OUTPUTS = $(SOURCES:.ly=.pdf)
+
+.PHONY: clean all
+
+all: $(OUTPUTS)
+
+%.pdf: %.ly
+	lilypond $(OPTIONS) $<
+
+clean:
+	rm -f *.pdf *.midi
diff --git a/bwv1056/bwv1056-conductor.ly b/bwv1056/bwv1056-conductor.ly
new file mode 100644
index 0000000..669e97c
--- /dev/null
+++ b/bwv1056/bwv1056-conductor.ly
@@ -0,0 +1,34 @@
+\include "includes/header.ly"
+\include "includes/definitions.ly"
+\include "includes/paper.ly"
+
+#(set-global-staff-size 15)
+
+\paper {
+  ragged-last-bottom = ##f
+}
+
+\include "largo/all.ly"
+\bookpart {
+  \paper {
+    page-count = #3
+    system-count = #9
+    systems-per-page = #3
+  }
+  \score {
+    \new StaffGroup <<
+      \new StaffGroup \with {
+        systemStartDelimiter = #'SystemStartBrace
+      } <<
+        \new Staff {\largo \time 4/4 \key aes \major \relative c'' \violini}
+        \new Staff {\largo \time 4/4 \key aes \major \relative c'' \violinii}
+      >>
+      \new Staff {\largo \time 4/4 \key aes \major \clef alto \relative c' \viola}
+      \new Staff {\largo \time 4/4 \key aes \major \clef bass \relative c' \continuo}
+      \new PianoStaff <<
+        \new Staff = "upper" \upper
+        \new Staff = "lower" \lower
+      >>
+    >>
+  }
+}
diff --git a/bwv1056/bwv1056-continuo.ly b/bwv1056/bwv1056-continuo.ly
new file mode 100644
index 0000000..330f6af
--- /dev/null
+++ b/bwv1056/bwv1056-continuo.ly
@@ -0,0 +1,10 @@
+\include "includes/header.ly"
+\include "includes/definitions.ly"
+\include "includes/paper.ly"
+
+\include "largo/continuo.ly"
+\bookpart {
+  \score {
+    \new Staff \with { instrumentName = #"Continuo." } { \continuo }
+  }
+}
diff --git a/bwv1056/bwv1056-keyboard.ly b/bwv1056/bwv1056-keyboard.ly
new file mode 100644
index 0000000..803740a
--- /dev/null
+++ b/bwv1056/bwv1056-keyboard.ly
@@ -0,0 +1,27 @@
+\include "includes/header.ly"
+\include "includes/definitions.ly"
+\include "includes/paper.ly"
+
+#(set-global-staff-size 18)
+
+\paper {
+  ragged-last-bottom = ##f
+}
+
+\header {
+  %title = ""
+}
+
+\include "largo/keyboard.ly"
+\bookpart {
+  \paper {
+    page-count = #1
+    system-count = #7
+  }
+  \score {
+    \new PianoStaff <<
+      \new Staff = "upper" \upper
+      \new Staff = "lower" \lower
+    >>
+  }
+}
diff --git a/bwv1056/bwv1056-midi.ly b/bwv1056/bwv1056-midi.ly
new file mode 100644
index 0000000..ace1489
--- /dev/null
+++ b/bwv1056/bwv1056-midi.ly
@@ -0,0 +1,28 @@
+\include "includes/header.ly"
+\include "includes/definitions.ly"
+
+\include "largo/all.ly"
+\bookpart {
+  \score {
+    \new StaffGroup <<
+      \new StaffGroup \with {
+        systemStartDelimiter = #'SystemStartBrace
+      } <<
+        \new Staff {\largo \time 4/4 \key aes \major \relative c'' \violini}
+        \new Staff {\largo \time 4/4 \key aes \major \relative c'' \violinii}
+      >>
+      \new Staff {\largo \time 4/4 \key aes \major \clef alto \relative c' \viola}
+      \new Staff {\largo \time 4/4 \key aes \major \clef bass \relative c' \continuo}
+      \new PianoStaff <<
+        \new Staff = "upper" \upper
+        \new Staff = "lower" \lower
+      >>
+    >>
+    \midi {
+      \context {
+        \Score
+        tempoWholesPerMinute = #(ly:make-moment 40 4)
+      } 
+    }
+  }
+}
diff --git a/bwv1056/bwv1056-viola.ly b/bwv1056/bwv1056-viola.ly
new file mode 100644
index 0000000..ce1b614
--- /dev/null
+++ b/bwv1056/bwv1056-viola.ly
@@ -0,0 +1,10 @@
+\include "includes/header.ly"
+\include "includes/definitions.ly"
+\include "includes/paper.ly"
+
+\include "largo/viola.ly"
+\bookpart {
+  \score {
+    \new Staff \with { instrumentName = #"Viola." } { \viola }
+  }
+}
diff --git a/bwv1056/bwv1056-violin1.ly b/bwv1056/bwv1056-violin1.ly
new file mode 100644
index 0000000..d0af89e
--- /dev/null
+++ b/bwv1056/bwv1056-violin1.ly
@@ -0,0 +1,10 @@
+\include "includes/header.ly"
+\include "includes/definitions.ly"
+\include "includes/paper.ly"
+
+\include "largo/violin1.ly"
+\bookpart {
+  \score {
+    \new Staff \with { instrumentName = #"Violino I." } { \violini }
+  }
+}
diff --git a/bwv1056/bwv1056-violin2.ly b/bwv1056/bwv1056-violin2.ly
new file mode 100644
index 0000000..d2e32d7
--- /dev/null
+++ b/bwv1056/bwv1056-violin2.ly
@@ -0,0 +1,10 @@
+\include "includes/header.ly"
+\include "includes/definitions.ly"
+\include "includes/paper.ly"
+
+\include "largo/violin2.ly"
+\bookpart {
+  \score {
+    \new Staff \with { instrumentName = #"Violino II." } { \violinii }
+  }
+}
diff --git a/bwv1056/includes/definitions.ly b/bwv1056/includes/definitions.ly
new file mode 100644
index 0000000..4501cc0
--- /dev/null
+++ b/bwv1056/includes/definitions.ly
@@ -0,0 +1,9 @@
+tr = {
+  \once\override Script.avoid-slur = #'inside
+  \once\override Script.outside-staff-priority = ##f
+  \once\override Script.font-size = #-2
+}
+
+largo = { \tempo \markup { \huge "Largo." } }
+pizzicato = \markup { "(pizzicato)" }
+arco = \markup { "(coll'arco)" }
diff --git a/bwv1056/includes/header.ly b/bwv1056/includes/header.ly
new file mode 100644
index 0000000..9b6dc81
--- /dev/null
+++ b/bwv1056/includes/header.ly
@@ -0,0 +1,19 @@
+\version "2.18.2"
+
+#(ly:set-option 'relative-includes #t)
+
+\header {
+  title = "Concerto V"
+  opus = "BWV 1056"
+  composer = "J. S. Bach"
+  tagline = ""
+
+  date = "1738"
+  maintainer = "Thibaut Horel"
+  maintainerEmail = "thibaut.horel (at) gmail.com"
+  license = "Creative Commons Attribution-ShareAlike 4.0"
+  style = "Baroque"
+  source = "Breitkopf und Härtel, 1869"
+  mutopiacomposer = "BachJS"
+  mutopiainstrument ="Orchestra: Violins, Viola, Continuo, Harpsichord, Piano" 
+} 
diff --git a/bwv1056/includes/paper.ly b/bwv1056/includes/paper.ly
new file mode 100644
index 0000000..be4b67e
--- /dev/null
+++ b/bwv1056/includes/paper.ly
@@ -0,0 +1,4 @@
+\paper {
+  top-margin = 13
+  bottom-margin = 13
+}
diff --git a/bwv1056/largo/all.ly b/bwv1056/largo/all.ly
new file mode 100644
index 0000000..2bb7429
--- /dev/null
+++ b/bwv1056/largo/all.ly
@@ -0,0 +1,5 @@
+\include "violin1.ly"
+\include "violin2.ly"
+\include "viola.ly"
+\include "continuo.ly"
+\include "keyboard.ly"
diff --git a/bwv1056/largo/continuo.ly b/bwv1056/largo/continuo.ly
new file mode 100644
index 0000000..2dbd7a3
--- /dev/null
+++ b/bwv1056/largo/continuo.ly
@@ -0,0 +1,31 @@
+notes = {
+    aes4^\pizzicato r8 aes g4 r8 g |
+    f4 r8 f ees4 r8 ees |
+    aes4 r8 g f4 r8 ees |
+    d4 r8 d ees4 r8 d |
+    c4 r8 c d4 r8 d |
+    ees4 r8 g aes f bes bes, |
+    ees4 r8 des c4 r8 ees |
+    f4 r8 ges8 a,4 r8 f |
+    bes4 r8 bes' aes4 r8 aes |
+    ges4 r8 ges f ees f f, |
+    bes4 r8 aes' g4 r8 ees |
+    aes4 r8 ges f4 r8 aes |
+    des,4 r8 c bes4 r8 aes |
+    g4 r8 ees aes c f des |
+    ees4 r8 g aes4 r8 aes |
+    g4 r8 g f4 r8 f |
+    ees4 r8 ees aes4 r8 aes, |
+    des4 r8 d ees des ees ees, |
+    aes4 r8 g f4 r8 f' |
+    ees4 r8
+    ees,^\arco des2 |
+    c1\fermata
+}
+
+continuo = {
+  \time 4/4
+  \key aes \major
+  \largo
+  \clef bass \relative c' \notes
+}
diff --git a/bwv1056/largo/keyboard.ly b/bwv1056/largo/keyboard.ly
new file mode 100644
index 0000000..c57bba8
--- /dev/null
+++ b/bwv1056/largo/keyboard.ly
@@ -0,0 +1,103 @@
+ar = {
+  c4\mordent~ c16 des ees f \appoggiatura c8 bes4~ bes16 c des ees |
+  aes,8 aes'16 f des8~ des32 ees des c des16 bes' g ees \tr des8\trill c16 des |
+  \appoggiatura des8 c8 bes16 aes r4 aes'~ aes16 g32 f g16 aes |
+  bes,4~ bes16 d f aes g4~ g32 f ees d c16 bes |
+  aes8~ aes32 bes aes g aes16 c ees g f4~ f32 ees d ees f d bes aes |
+  g16 bes d f ees4~ ees16 f32 g aes g aes c d,8.\mordent ees16 |
+  ees4 r
+}
+
+al = {
+  r8 aes aes, aes' r g g, g' |
+  r f f, f' r ees ees, ees' |
+  r  aes aes, g' r f f, ees' |
+  r d d, d' r ees ees, d' |
+  r c c, c' r d d, d' |
+  r ees ees, g' aes f bes bes, |
+  r ees ees, des'
+}
+
+br = {
+  ges4~ ges16  \appoggiatura f ees \appoggiatura des c bes |
+  a4~ a16 bes c des ees f ges a c ees,~ ees32 f ges f |
+  ees16( des) c\prall bes des'8. f,16
+  \appoggiatura ges16 f32 ees32 f16 des'16. c64*2/3 bes a
+  \appoggiatura a16 bes8. f16 |
+  f32 d ees16~ ees32 f ges64 f ees32 c'8. ees,32*2/3 des c 
+  des16 f bes c c8. bes16 |
+  bes4 r4
+}
+
+bl = {
+  r8 c c, ees' |
+  r f f, ges' r a, a, f' |
+  r bes bes, bes'' r aes aes, aes' |
+  r ges ges, ges' f ees f f, |
+  r bes bes, aes''
+}
+
+cr = {
+  des4~ des32 ees des c des16 bes' |
+  \appoggiatura des,8 c4~ c16 aes bes c des32( ees des c des ees f ges)
+  aes16 ges32 f ges c, ges'16~ |
+  \override TupletBracket.bracket-visibility = #'if-no-beam
+  ges8 f r16 bes,16 c\turn des \tuplet 3/2 {g,16[ f g]}
+  \tuplet 3/2 {aes g aes} \tuplet 3/2 {bes[ c bes]} \tuplet 3/2 {aes[ bes c]} |
+  \tuplet 3/2 { des c des} bes'8~ bes32 c, des ees des c bes16
+  c( ees aes f)  ees( des g aes) |
+  c,8\prall bes r4
+}
+
+cl = {
+  r8 g g, ees' |
+  r aes aes, ges' r f f, aes' |
+  r des, des, c' r bes bes, aes' |
+  r g g, ees' aes c f des |
+  r ees ees, g'
+}
+
+
+
+dr = {
+  c4~ c32 bes des c ees des f16 |
+  f16 bes,8.~ bes32 aes c bes des c ees16 ees aes, aes' f \appoggiatura ees8 des4~ |
+  des16 bes' g ees ees(\tr des\trill c des) \appoggiatura des16 c16 des32 ees des c bes aes
+  aes8( ges32\prall) f ges16 |
+  f16( g) \appoggiatura aes g( aes) aes4~ aes32 bes aes g aes des bes16 \tr g8.\trill aes16 |
+  aes c f32 d ees16 ees8. ees16~ ees f32 g aes f c16 des16~ des32 c bes c des16 |
+  \appoggiatura aes16 g16. aes64 bes \tr bes32\trill aes bes16 c8~ c64 bes aes g aes c e,32
+  f16 f'16. g64 f e32 f c8( bes16.) c32 |
+  c1\fermata \bar "||"
+}
+
+dl = {
+  r8 aes aes, aes' |
+  r g g, g' r f f, f' |
+  r ees ees, ees' r aes aes, aes' |
+  r des, d, d' ees des ees ees, |
+  r aes g g' r f f, f' |
+  r ees ees, ees' r des des, des' |
+  c1\fermata
+}
+
+upper = {
+  \key aes \major
+  \time 4/4
+  \clef treble
+  \largo
+  \relative c'' \ar
+  \relative c''' \br
+  \relative c'' \cr
+  \relative c'' \dr
+}
+
+lower = {
+  \key aes \major
+  \time 4/4
+  \clef bass
+  \relative c' \al
+  \relative c \bl
+  \relative c' \cl
+  \relative c' \dl
+}
diff --git a/bwv1056/largo/viola.ly b/bwv1056/largo/viola.ly
new file mode 100644
index 0000000..9e282fb
--- /dev/null
+++ b/bwv1056/largo/viola.ly
@@ -0,0 +1,32 @@
+notes = {
+  r8^\pizzicato ees aes r r ees g r |
+  r c, f r r g des' r |
+  r aes c r r c, f r |
+  r bes d r r bes, ees r |
+  r aes c r r bes bes, r |
+  r bes' ees r r ees d r |
+  r ees, g r r c, ees r |
+  r ees a, r r c ees r |
+  r des f r r f bes r |
+  r bes, ees r r des c r |
+  r bes des r r g bes r |
+  r aes c r r aes ges r |
+  r des f r r f bes r |
+  r ees, g r r aes f r |
+  r f bes, r r ees aes r |
+  r ees g r r c, f r |
+  r ees des r r aes' ees r |
+  r ees aes r r f ees r |
+  r f g r r c, f r |
+  r bes, g r
+  r des'^\arco aes f |
+  c'1\fermata
+}
+
+viola = {
+  \time 4/4
+  \key aes \major
+  \clef alto
+  \largo
+  \relative c' \notes
+}
diff --git a/bwv1056/largo/violin1.ly b/bwv1056/largo/violin1.ly
new file mode 100644
index 0000000..59ffc67
--- /dev/null
+++ b/bwv1056/largo/violin1.ly
@@ -0,0 +1,31 @@
+notes = {
+  r8^\pizzicato c ees r r bes ees r |
+  r aes, des r r des bes' r |
+  r ees, aes r r aes c r |
+  r f, bes r r g bes r |
+  r ees, aes r r f aes r |
+  r aes g r r f aes r |
+  r g bes r r ees, a, r |
+  r c f, r r ees a r |
+  r bes des r r des f r |
+  r ees a r r bes a r |
+  r f bes r r bes, ees r |
+  r ees aes r r aes c r |
+  r aes, des r r des' g, r |
+  r bes des, r r ees aes r |
+  r d, ees r r c ees r |
+  r bes ees r r aes, des r |
+  r des bes' r r ees, c' r |
+  r bes f r r f bes, r |
+  r ces bes r r c aes' r |
+  r g c, r
+  r aes^\arco f f'~ |
+  f g16( f) f( e) e( d) e2\fermata |
+}
+
+violini =  {
+  \time 4/4
+  \key aes \major
+  \largo
+  \relative c'' \notes
+}
diff --git a/bwv1056/largo/violin2.ly b/bwv1056/largo/violin2.ly
new file mode 100644
index 0000000..41bfadb
--- /dev/null
+++ b/bwv1056/largo/violin2.ly
@@ -0,0 +1,31 @@
+notes = {
+  r8^\pizzicato aes c r r g bes r |
+  r f aes r r bes g' r |
+  r c, ees r r f aes r |
+  r d, f r r ees g r |
+  r c, ees r r d f r |
+  r f bes, r r c bes r |
+  r bes ees r r ges c, r |
+  r a c r r c f, r |
+  r f bes r r bes des r |
+  r ees c r r ges' f r |
+  r des f r r ees g r |
+  r c, ees r r des ees r |
+  r f aes r r bes  des, r |
+  r des bes r r c c r |
+  r aes g r r aes c r |
+  r g bes r r f aes r |
+  r bes g' r r c, aes' r |
+  r bes, ces r r bes g r |
+  r aes ees r r aes des, r |
+  r g ees r
+  r f^\arco f' bes, |
+  aes bes16( aes) aes( g) g( f) g2\fermata |
+}
+
+violinii = {
+  \time 4/4
+  \key aes \major
+  \largo
+  \relative c'' \notes
+}