i13-draft

diff --git a/book.ly b/book.ly
index a01c74f6d06fca3afc14360055c8cf5984cef564..570aa655fdd2a2301d1be7fb0dd79487be1bc4ac 100644 (file)
--- a/book.ly
+++ b/book.ly
@@ -87,6 +87,13 @@ piece = \markup { \large { \bold "cyme" \number 3 } }
 \include "manuscripts/12i.ly"
 }
 
+\score {
+\header {
+piece = \markup { \large { \bold "pinnate" \number 3 } }
+}
+\include "manuscripts/13i.ly"
+}
+
 \score {
 \header {
 piece = \markup { \large { \bold "circumnutation" } }

diff --git a/manuscripts/13i-alt.ly b/manuscripts/13i-alt.ly
new file mode 100644 (file)
index 0000000..8e8d58a
--- /dev/null
+++ b/manuscripts/13i-alt.ly
@@ -0,0 +1,46 @@
+%fifteen inventions project
+\new PianoStaff \with { \consists "Merge_rests_engraver" } <<
+\set PianoStaff.connectArpeggios = ##t
+\override PianoStaff.Arpeggio.arpeggio-direction = #UP
+\new Staff = "u3" {
+\accidentalStyle modern
+<<
+\relative { \tempo Allegro 4=104 \numericTimeSignature
+\time 4/4
+\tuplet 3/2 { f'''8( des c } \tuplet 3/2 { b8 a) aes-. } \tuplet 3/2 { g-. e-. d-. } \tuplet 3/2 { bes-. ges-. ees-. } |
+\compoundMeter #'((2 4) (1 16))
+r4 \tuplet 3/2 { c'8( a g) } r16 |
+\time 4/4
+\tuplet 3/2 { f8-. d-. bes-. } \clef bass \tuplet 3/2 { fis8-. e-. b-. }
+bes16( c f ges g b d e) |
+r4 f,16-. g-. aes-. bes-. \clef treble b-. c( d a' cis dis e fis) |
+
+}
+>>
+}
+\new Staff = "d3" { \clef treble
+\accidentalStyle modern
+<<
+\relative { \tempo Allegro 4=104 \numericTimeSignature
+\time 4/4
+ees'''16( bes aes g fis e d) des-. c-. b-. a-. f-. r4 |
+\compoundMeter #'((2 4) (1 16))
+cis'16([ b gis fis] f[ ees d bes)] \clef bass e,16[ |
+\time 4/4
+c-. a-. g]-. r16 cis,16-. dis-. gis-. a(
+\tuplet 3/2 { aes8 ees des) } r4 |
+\tuplet 3/2 { cis8-. fis-. a-. } \tuplet 3/2 { c-. d-. ees-. }
+\tuplet 3/2 { e-. f( g } \tuplet 3/2 { gis ais b) } |
+
+}
+>>
+}
+>>
+%\midi { }
+\layout {
+\context {
+\Score
+\override BarNumber.font-size = #1
+\override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
+}
+}

diff --git a/manuscripts/13i.ly b/manuscripts/13i.ly
new file mode 100644 (file)
index 0000000..194c5a4
--- /dev/null
+++ b/manuscripts/13i.ly
@@ -0,0 +1,46 @@
+%fifteen inventions project
+\new PianoStaff \with { \consists "Merge_rests_engraver" } <<
+\set PianoStaff.connectArpeggios = ##t
+\override PianoStaff.Arpeggio.arpeggio-direction = #UP
+\new Staff = "u3" {
+\accidentalStyle modern
+<<
+\relative { \tempo Allegro 4=104 \numericTimeSignature
+\time 4/4
+\tuplet 3/2 { f'''8( des c } \tuplet 3/2 { b8 a) aes-. } \tuplet 3/2 { g-. e-. d-. } \tuplet 3/2 { bes-. ges-. ees-. } |
+\time 2/4
+r4 \tuplet 3/2 { c'8( a g) } |
+\time 4/4
+\tuplet 3/2 { f8-. d-. bes-. } \clef bass \tuplet 3/2 { fis8-. e-. b-. }
+bes16( c f ges g b d e) |
+r4 f,16-. g-. aes-. bes-. \clef treble b-. c( d a' cis dis e fis) |
+
+}
+>>
+}
+\new Staff = "d3" { \clef treble
+\accidentalStyle modern
+<<
+\relative { \tempo Allegro 4=104 \numericTimeSignature
+\time 4/4
+ees'''16( bes aes g fis e d) des-. c-. b-. a-. f-. r8. cis'16( |
+\time 2/4
+b gis fis f ees d bes) \clef bass e,16 |
+\time 4/4
+c-. a-. g-. r16 cis,16-. dis-. gis-. a(
+\tuplet 3/2 { aes8 ees des) } r4 |
+\tuplet 3/2 { cis8-. fis-. a-. } \tuplet 3/2 { c-. d-. ees-. }
+\tuplet 3/2 { e-. f( g } \tuplet 3/2 { gis ais b) } |
+
+}
+>>
+}
+>>
+%\midi { }
+\layout {
+\context {
+\Score
+\override BarNumber.font-size = #1
+\override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
+}
+}