mvm 4

diff --git a/book.ly b/book.ly
index e7680f332b698625c1c4796ac752ecfeae29d63c..b9be5ea4d53ebce626ebefcc63757d638e66b5ae 100644 (file)
--- a/book.ly
+++ b/book.ly
@@ -8,9 +8,11 @@
   \pageBreak
   \front-matter
   \pageBreak
+
   \header {
     tagline = ##f
   }
+
   \bookpart {
     \tocItem \markup { "I. " \bold "Canto" }
     \score {
@@ -19,7 +21,7 @@
         subtitle = \markup { \medium \italic \xsub }
         composer = \xcomp
         poet = \markup { \xinst }
-        piece = \markup { \large \bold "I. " \bold "Canto" }
+        piece = \markup { \large \bold "I. " }
       }
       <<
         \include "manuscripts/I-clarinet.ly"
@@ -38,11 +40,12 @@
       }
     }
   }
+
   \bookpart {
-    \tocItem \markup { "III. " \bold "Calma" }
+    \tocItem \markup { "III. " \parenthesize \italic "to Amber Lucas" }
     \score {
       \header {
-        piece = \markup { \large "III." \bold "Calma" " " \parenthesize \italic "to Amber Lucas"  }
+        piece = \markup { \large \bold "III. " \parenthesize \italic "to Amber Lucas"  }
       }
       <<
         \include "manuscripts/III-clarinet.ly"
@@ -66,6 +69,35 @@
     }
   }
 
+  \bookpart {
+    \tocItem \markup { "IV. " }
+    \score {
+      \header {
+        piece = \markup { \large \bold "IV." }
+      }
+      <<
+        \include "manuscripts/IV-clarinet.ly"
+        \include "manuscripts/IV-piano.ly"
+      >>
+      %\midi { }
+      \layout {
+        \context {
+          \Score
+          \remove Text_mark_engraver
+          \override RehearsalMark.break-visibility = #begin-of-line-invisible
+          \override BarNumber.font-size = #1
+          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/2)
+          \override Hairpin.to-barline = ##f
+          \override Staff.pedalSustainStyle = #'mixed
+        }
+        \context {
+          \Staff
+          \RemoveEmptyStaves
+        }
+      }
+    }
+  }
+
   \markup { \null }
   \pageBreak
   \backcover

diff --git a/manuscripts/I-clarinet.ly b/manuscripts/I-clarinet.ly
index 13160a1b73a87eccff111a4b32dfacb98b719542..98bcf3b82b70404e4cb5ecd0fb7f08efba6c01aa 100644 (file)
--- a/manuscripts/I-clarinet.ly
+++ b/manuscripts/I-clarinet.ly
@@ -3,7 +3,10 @@
 \new Staff \with {
   instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } }
   shortInstrumentName = \markup { cl }
-  \override DynamicLineSpanner.staff-padding = \phds
+  \override DynamicLineSpanner.staff-padding = \sods
+  fontSize = #-1
+  \override StaffSymbol.staff-space = #(magstep -1)
+  \consists Text_mark_engraver
 }
 \relative {
   \numericTimeSignature

diff --git a/manuscripts/I-piano.ly b/manuscripts/I-piano.ly
index 12a668e9154dae6642af99c84ebbd8ab594d7b8a..a98416104806ef1ab03fcba078125ad5ef63756a 100644 (file)
--- a/manuscripts/I-piano.ly
+++ b/manuscripts/I-piano.ly
@@ -2,6 +2,8 @@
 
 \new PianoStaff \with {
   instrumentName = \markup { "piano " }
+  shortInstrumentName = \markup { "pno " }
+  \consists Text_mark_engraver
 }
 <<
   \set PianoStaff.connectArpeggios = ##t

diff --git a/manuscripts/IV-clarinet.ly b/manuscripts/IV-clarinet.ly
new file mode 100644 (file)
index 0000000..845d91e
--- /dev/null
+++ b/manuscripts/IV-clarinet.ly
@@ -0,0 +1,24 @@
+% net-clarity project
+
+\new Staff \with {
+  instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } }
+  shortInstrumentName = \markup { cl }
+  \override DynamicLineSpanner.staff-padding = \sods
+  fontSize = #-1
+  \override StaffSymbol.staff-space = #(magstep -1)
+  \consists Text_mark_engraver
+}
+\transpose bes c' \relative {
+  \numericTimeSignature
+  \clef treble
+  \tempo \markup { "Giusto e giocoso" } 4=104
+  \time 5/4 R1*5/4 |
+  \time 4/4 R1*5
+  \time 5/4 R1*5/4 |
+  \time 4/4 R1*13 |
+  \time 3/4 R1*3/4*7 |
+  \time 5/8 R1*5/8*2 |
+  \time 2/8 R1*2/8 |
+
+
+}

diff --git a/manuscripts/IV-piano.ly b/manuscripts/IV-piano.ly
new file mode 100644 (file)
index 0000000..a126a17
--- /dev/null
+++ b/manuscripts/IV-piano.ly
@@ -0,0 +1,65 @@
+% clarity project
+
+\new PianoStaff \with {
+  instrumentName = \markup { "piano " }
+  shortInstrumentName = \markup { "pno " }
+  \consists Text_mark_engraver
+}
+<<
+  \override PianoStaff.Arpeggio.arpeggio-direction = #UP
+  \new Staff = "u" \with { \consists "Merge_rests_engraver" }
+  {
+    \set PianoStaff.connectArpeggios = ##t
+    \override DynamicLineSpanner.staff-padding = \phds
+    \accidentalStyle piano
+    <<
+      \relative {
+        \numericTimeSignature
+        \tempo \markup { "Giusto e giocoso" } 4=104
+        \time 5/4 R1*5/4 | %1
+        \time 4/4 r16 bes'8.~( 2~ 8 f'8~ | %2
+        f2~ 8 ges8~ 4 | %3
+        ees4~ 8) 16( aes,16~ 2~ | %4
+        8) r8 r4 r4 r16 cis8.~( | %5
+        1~ | %6
+        \time 5/4 4~ 16 c8.~ 16 g'8.~ 2) | %7
+        \time 4/4 R1 | %8
+        r2 r4 r16 d16( e8 | %9
+        b1~ | %10
+        4~ 8) 8~( 8. a16~ 4~ | %11
+        4)
+
+      }
+    >>
+  }
+  \new Staff = "d" \with { \consists "Merge_rests_engraver" }
+  {
+    \clef bass
+    \set Staff.pedalSustainStyle = #'mixed
+    \accidentalStyle piano
+    \override Score.SpacingSpanner.strict-grace-spacing = ##t
+    \override DynamicLineSpanner.staff-padding = \phds
+    \relative {
+        \numericTimeSignature
+        \tempo \markup { "Giusto e giocoso" } 4=104
+        \time 5/4 r16 f'16-. aes,8 r8 fis8-. dis'8[-. r16 cis16]-. r4 r4 | %1
+        \time 4/4 b8-. r8 a8-. c,8-. g'8-. e16-. d16-. r8. bes'16-. | %2
+        cis16-. gis8-. b16-. r8. a16-. r4 r16 e'16-. r8 | %3
+        r16 d16-. g,16-. c16-. r4 bes16-. ees,16 f8-. ges8-. r8 | %4
+        b16-. a-. g8-. g8 e'8-. cis[-. r16 d16]-. c8-. r8 | %5
+        \clef treble ees16-. f8-. fis16-. gis8-. ais8( b)-. c16( d16~ 16 e a,
+        g16~ | %6
+        \time 5/4 g8. ges16~ 8 f8~ 2.) | \clef bass %7
+        \time 4/4 r8 cis16-. dis16-. r16  ais16-.[ \set stemLeftBeamCount = #1
+        \set stemRightBeamCount = #1 r16 gis16]-. r16 a16[-. \set
+        stemLeftBeamCount = #1 \set stemRightBeamCount = #1 r16 b16]-. e,-.
+        d'8-. des16-. | %8
+        fis,16( aes8. g16)-. f-. ees8-. c16-. bes8-. a16-. r4 | %9
+        r4 r16 des16-. g-. ges-. bes,8-. ees8( d8. c16~ | %10
+        16 b8.~ 4) r8 gis8-. r8 e'8-. | %11
+        r8. f16-. cis8-. fis8-. r16 b8.( e16 ees8.~ | %12
+        16 f8 g16 d8-.) a-. r16 bes,16-. c8-. r16 des16-. ees-. f16-. | %13
+
+      }
+    }
+>>