From: Tucker Johnson Date: Sat, 27 Jan 2024 04:28:40 +0000 (-0500) Subject: mvm 4 X-Git-Url: https://git.newer.systems/?a=commitdiff_plain;h=06c6a3b3c252353867bae843e9a027d05933c543;p=net-clarity.git mvm 4 --- diff --git a/book.ly b/book.ly index e7680f3..b9be5ea 100644 --- 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 13160a1..98bcf3b 100644 --- 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 12a668e..a984161 100644 --- 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 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 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 + + } + } +>>