tagline = ##f
}
+\tocItem \markup { "1. Vivace" }
\score {
\header {
title = \markup { \fontsize #1 \xtitle }
subtitle = \markup { \medium \italic \xsub }
composer = \xcomp
-poet = \markup { \xinst }
-piece = \markup { \large { \bold "pappus" } }
}
\include "manuscripts/1i.ly"
}
+\tocItem \markup { "2. Presto" }
\score {
-\header {
-piece = \markup { \large { \bold "panicle" \number 1 } }
-}
\include "manuscripts/2i.ly"
}
+\tocItem \markup { "3. Allegro moderato" }
\score {
-\header {
-piece = \markup { \large { \bold "pinnate" \number 1 } }
-}
\include "manuscripts/3i.ly"
}
+\tocItem \markup { "4. Largo" }
\score {
-\header {
-piece = \markup { \large { \bold "anisomery" \number 1 } }
-}
\include "manuscripts/4i.ly"
}
+\tocItem \markup { "6. Tempo giusto" }
\score {
-\header {
-piece = \markup { \large { \bold "cyme" \number 1 } }
-}
\include "manuscripts/6i.ly"
}
+\tocItem \markup { "7. Allegro moderato" }
\score {
-\header {
-piece = \markup { \large { \bold "pinnate" \number 2 } }
-}
\include "manuscripts/7i.ly"
}
+\tocItem \markup { "8. Presto" }
\score {
-\header {
-piece = \markup { \large { \bold "panicle" \number 3 } }
-}
\include "manuscripts/8i.ly"
}
+
+\tocItem \markup { "9. Largo" }
\score {
-\header {
-piece = \markup { \large { \bold "anisomery" \number 2 } }
-}
\include "manuscripts/9i.ly"
}
+\tocItem \markup { "11. Tempo giusto" }
\score {
-\header {
-piece = \markup { \large { \bold "cyme" \number 2 } }
-}
\include "manuscripts/11i.ly"
}
+\tocItem \markup { "12. Tempo giusto" }
\score {
-\header {
-piece = \markup { \large { \bold "cyme" \number 3 } }
-}
\include "manuscripts/12i.ly"
}
+\tocItem \markup { "13. Con moto" }
\score {
-\header {
-piece = \markup { \large { \bold "pinnate" \number 3 } }
-}
\include "manuscripts/13i.ly"
}
-\score {
-\header {
-piece = \markup { \large { \bold "umbel" } }
-}
-\include "manuscripts/14i.ly"
-}
+\tocItem \markup { "15. Poco rubato" }
\score {
-\header {
-piece = \markup { \large { \bold "circumnutation" } }
-}
\include "manuscripts/15i.ly"
}
\markup { \null }
%fifteen inventions project
%------paper-block------
\paper {
+ #(include-special-characters)
first-page-number = -1
print-page-number = ##f
oddHeaderMarkup = \markup { \tiny { " " } }
\concat { \if \on-page #7 \oddfoot }
\concat { \if \on-page #9 \oddfoot }
\concat { \if \on-page #11 \oddfoot }
- \concat { \if \on-page #13 \null }
+ \concat { \if \on-page #13 \oddfoot }
}
evenFooterMarkup = \markup {
\concat { \if \on-page #2 \evfoot }
\concat { \if \on-page #6 \evfoot }
\concat { \if \on-page #8 \evfoot }
\concat { \if \on-page #10 \evfoot }
- \concat { \if \on-page #12 \null }
- \concat { \if \on-page #14 \null }
+ \concat { \if \on-page #12 \evfoot }
+ \concat { \if \on-page #14 \evfoot }
}
#(set-paper-size "letter")
print-all-headers = ##t
front-matter = \markuplist {
\fill-line {
\left-column {
- \line { \bold \xtitle " [2022]" }
+ \line { \bold \xtitle \concat { " [" \xyear "]" } }
\line { \xinst " | " \xdur }
\line { \xcomp }
\vspace #25
}
\center-column {
+ \fill-line {
+ \column {\null}
+ \center-column {
+ \vspace #7
+ \line { \hbracket \bold "program notes" }
+ \vspace #0.2
+ \xpnote
+ \vspace #0.5
+ \line { ================================= }
+ \vspace #0.5
+ \line { \hbracket \bold "inventions" }
+ \vspace #0.2
+ \table-of-contents
+ \null
+ \line { ================================= }
+ \vspace #1.5
+ }
- \vspace #7
- \line { \hbracket \bold "program notes" }
- \vspace #0.2
- \xpnote
- \vspace #0.5
- \line { ================================= }
- \fill-line { \column { \null }
- \left-column {
- \line { \bold "pappus" }
- \line { \bold "panicle 1" }
- \line { \bold "pinnate 1" }
- \line { \bold "anisomery 1" }
- \line { \bold "panicle 2" }
- \line { \bold "cyme 1" }
- \line { \bold "pinnate 2" }
- \line { \bold "panicle 3" }
- \line { \bold "anisomery 2" }
- \line { \bold "panicle 4" }
- \line { \bold "cyme 2" }
- \line { \bold "cyme 3" }
- \line { \bold "pinnate 3" }
- \line { \bold "umbel" }
- \line { \bold "circumnutation" }
- }
- \column { \null }
- }
- \vspace #0.5
- \line { ================================= }
- \vspace #1.5
+ \column {\null}
}
}
- \column { \null }
+ \right-column { \vspace #2 }
}
+}
\line { \null }
\center-column {
\vspace #10
- \line { \hbracket \fontsize #10 \number 2022 }
- \vspace #4
+ \line { \hbracket \fontsize #10 \number \xyear }
+ \vspace #4.5
\line { \xcomp }
\vspace #1
\line { \fontsize #5 \bold \xtitle }
\line { \italic \xsub }
- \vspace #4
+ \vspace #8
}
\right-column {
\line { \null }
\vspace #-0.1
\line { \fontsize #3 \sans \xcomp }
\vspace #3
- \line { \fontsize #2 \sans \concat { "for " \xinst } }
+ \line { \fontsize #2 \sans \concat { \xsub } }
}
}
\vspace #23
\line { \null }
\line { \null }
\center-column {
- \path #0.1
- #'((moveto 0 0)
- (curveto 1 0.3 3.6 1 4.2 1.6)
- (moveto 0 0)
- (curveto -1 0.3 -3.6 1 -4.2 1.6)
- (moveto 0 0)
- (curveto 0.9 0.3 2.9 1 3.5 1.7)
- (moveto 0 0)
- (curveto -0.9 0.3 -2.9 1 -3.5 1.7)
- (moveto 0 0)
- (curveto 0.8 0.3 2.2 1 2.8 1.8)
- (moveto 0 0)
- (curveto -0.8 0.3 -2.2 1 -2.8 1.8)
- (moveto 0 0)
- (curveto 0.6 0.3 1.5 1 2.1 1.9)
- (moveto 0 0)
- (curveto -0.6 0.3 -1.5 1 -2.1 1.9)
- (moveto 0 0)
- (curveto 0.4 0.3 0.8 1 1.4 2)
- (moveto 0 0)
- (curveto -0.4 0.3 -0.8 1 -1.4 2)
- (moveto 0 0)
- (curveto 0.2 0.3 0.5 1 0.7 2.1)
- (moveto 0 0)
- (curveto -0.2 0.3 -0.5 1 -0.7 2.1)
- (moveto 0 0)
- (lineto 0 2.2))
- \vspace #-0.035
- \override #'(height . 0.25) \draw-squiggle-line #1 #'(0 . 5) ##f
- \vspace #-0.275
- \line { \fontsize #1 \hbracket \sans \bold " umbel press " }
+ \xumbel
+ \vspace #0.3
+ \line { \fontsize #1 \hbracket \sans \bold " umbel press " \char ##x00A9 }
}
\line { \null }
}
%fifteen inventions project
-\new PianoStaff <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 11 }
+}
+ <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "ui6" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarktfour \numericTimeSignature \override Hairpin.to-barline = ##f
\time 3/4 a''2.~^\markup { \smaller \italic "spianato" } |
>>
}
\new Staff = "di6" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarktfour \numericTimeSignature \override Hairpin.to-barline = ##f
\override DynamicLineSpanner.staff-padding = \phds
%fifteen inventions project
-\new PianoStaff <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 12 }
+}
+ <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "ui6" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarktfourb \numericTimeSignature \override Hairpin.to-barline = ##f
\time 2/4 s2^\markup { \smaller \italic "spianato; piu enfatico" } |
>>
}
\new Staff = "di6" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarktfourb \numericTimeSignature \override Hairpin.to-barline = ##f
\override DynamicLineSpanner.staff-padding = \phds
%fifteen inventions project
-\new PianoStaff <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 13 }
+}
+<<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "u3" \with { \consists "Merge_rests_engraver" } {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tempo "Con moto" 4=98 \numericTimeSignature
\override Hairpin.to-barline = ##f
ees''16(\ff\>^\markup { \smaller \italic "feroce" } bes aes g fis e d) des-. c-. b-. a-. f-. r4\mp |
r4 r8. cis'''16(\f\> b gis fis f ees d bes e,) \clef bass |
c-. a-. g-. r16 gis'16-. dis-. cis-. a( bes f c bes g e d b)\p \clef treble |
-\tempo "Meno mosso" 4=66 r2 r4\tempo "Molto accel." c''''16-. aes-. g-. f-. b,-.\< a( d, c
+\tempo "Meno mosso" 4=66 r2 r4^"Molto accel." c''''16-. aes-. g-. f-. b,-.\< a( d, c
\tempo "A tempo" 4=98 cis dis e fis)\f r2\fermata |
g'16(\ff\> ees des ges, a fis e) gis,-.f-.\mf b-. c-. d-. r8. cis''16(\p\> |
\time 3/16 b[ gis fis] |
c4 a2 g4~ |
\time 5/16 g4 e16) \clef bass |
\time 4/4 bes16-.\fsubito f-. d-. r16 cis-. dis-. gis-. a( \clef treble c f ges bes b d f g) |
-r4 \tempo "Molto accel." f,16-.\> g-. aes-. bes-. b-. d( a' c \tempo "Presto possible" cis dis e fis)\mp \bar "|."
+r4^"Molto accel." f,16-.\> g-. aes-. bes-. b-. d( a' c \tempo "Presto possible" cis dis e fis)\mp \bar "|."
}
>>
}
\new Staff = "d3" \with { \consists "Merge_rests_engraver" } { \clef bass
\set Staff.pedalSustainStyle = #'mixed
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \numericTimeSignature
\time 4/4
%fifteen inventions project
-\new PianoStaff <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 14 }
+}
+ <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "u" \with { \consists "Merge_rests_engraver" } {
-\accidentalStyle modern
+\accidentalStyle piano
\relative { \tempo Allegro 4=132 \numericTimeSignature
\time 4/4
r2 cis''8( a4 fis'8 |
}
}
\new Staff = "d" \with { \consists "Merge_rests_engraver" } { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
\relative { \numericTimeSignature
\time 4/4
<<
%fifteen inventions project
-\new PianoStaff <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 15 }
+}
+ <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "ui7" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarksev \dtim \override TextSpanner.bound-details.left.text = "poco rit."
\time 7/4 s1*7/4^\markup { \smaller \italic "semplicemente; sotto voce" } |
>>
}
\new Staff = "di7" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarksev \dtim
\time 7/4 s1*7/4 |
%fifteen inventions project
-\new PianoStaff \with { \consists "Merge_rests_engraver" } <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 1 }
+ \consists "Merge_rests_engraver" }
+<<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "ui1" {
- \accidentalStyle modern
+ \accidentalStyle forget
<<
\relative { \tempo Vivace 4=136
\omit Staff.BarLine
>>
}
\new Staff = "di1" { \clef bass
- \accidentalStyle modern
+ \accidentalStyle forget
<<
\relative { \tmarkione
\omit Staff.BarLine
%fifteen inventions project
-\new PianoStaff \with { \consists "Merge_rests_engraver" } <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 2 }
+ \consists "Merge_rests_engraver" } <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "ui2" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \override Score.MetronomeMark.padding = #2.2 \tempo Presto 4=168
\override DynamicLineSpanner.staff-padding = \phds
>>
}
\new Staff = "di2" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarktthree \set tieWaitForNote = ##t
\override DynamicLineSpanner.staff-padding = #7
%fifteen inventions project
-\new PianoStaff \with { \consists "Merge_rests_engraver" } <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 3 }
+ \consists "Merge_rests_engraver" } <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "u3" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarktwo \numericTimeSignature
\time 4/4 r8^\markup { \smaller \italic "giocoso" } g''8(\mp a,4~ a8) d16( f16 c4) |
>>
}
\new Staff = "d3" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarktwo \numericTimeSignature
\time 4/4 R1 |
%fifteen inventions project
-\new PianoStaff <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 4 }
+}
+ <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "ui4" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarkfi
\time 3/8 g'16([\mp^\markup { \smaller \italic "dolce; espr." } f] \tuplet 3/2 { e8 g f } |
\time 3/8 b8( \tuplet 3/2 { ees8[ c d] } |
\time 2/4 fis8 gis4) \override TextSpanner.bound-details.left.text = "molto accel." a8(\startTextSpan |
\time 4/4 aes16\< g bes8) \tuplet 3/2 { r16 a16_( b16 } c8)^\markup { \smaller \italic "intenso" } \stemNeutral f16( ges ees8) cis16( e d8~\ff |
-\time 2/4 d4)\stopTextSpan\fermata \stemUp ees,8(^"a Tempo"\mp c16 d |
+\time 2/4 d4)\stopTextSpan\fermata \stemUp \tempo "A tempo" ees,8(\mp c16 d |
\time 3/4 fis8 gis8 a4 f4~ |
\time 2/4 \tuplet 3/2 { f8) g( e } b8 des8 |
bes2)\fermata |
>>
}
\new Staff = "di4" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { %\tmarkfi
\time 3/8 r8 <d, a' c>4\pp |
%fifteen inventions project
-\new PianoStaff <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 6 }
+}
+ <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "ui6" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarktfour \numericTimeSignature \override Hairpin.to-barline = ##f
\time 1/4 s4^\markup { \smaller \italic "spianato" } |
>>
}
\new Staff = "di6" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarktfour \numericTimeSignature \override Hairpin.to-barline = ##f
\override DynamicLineSpanner.staff-padding = \phds
%fifteen inventions project
-\new PianoStaff \with { \consists "Merge_rests_engraver" } <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 7 }
+ \consists "Merge_rests_engraver" } <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "u3" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
-\relative { \tempo Allegro 4.=104 \numericTimeSignature
+\relative { \tempo "Allegro moderato" 4.=104 \numericTimeSignature
\time 6/8
\partial 16
r16^\markup { \smaller \italic "semplice; secco" } |
>>
}
\new Staff = "d3" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
-\relative { \tempo Allegro 4.=104 \numericTimeSignature
+\relative { \numericTimeSignature
\time 6/8
\partial 16
gis16~\p |
%fifteen inventions project
-\new PianoStaff \with { \consists "Merge_rests_engraver" } <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 8 }
+ \consists "Merge_rests_engraver" } <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "u" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \override Score.MetronomeMark.padding = #2.2 \tempo Presto 4=154
\override DynamicLineSpanner.staff-padding = \phds
>>
}
\new Staff = "d" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \override Score.MetronomeMark.padding = #2.2
\override DynamicLineSpanner.staff-padding = \phds
%fifteen inventions project
-\new PianoStaff <<
+\new PianoStaff \with {
+ instrumentName = \markup { \large "№" \number 9 }
+}
+ <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
\new Staff = "u" {
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { \tmarkfi \override Hairpin.to-barline = ##f %\tempo Lento 4=40
\override DynamicLineSpanner.staff-padding = \phds
>>
}
\new Staff = "d" { \clef bass
-\accidentalStyle modern
+\accidentalStyle piano
<<
\relative { %\tmarkfi
\time 6/4
diatonic scales and the 15 partitions of the 7-pitch diatonic set. This invention
would inspire me to write more inventions. These \bold \italic "Fifteen Inventions"
correspond to one of the 15 partitions and, as such, have between 1 and 7 strands or
-voices. Inventions with the same number of strands or voices share titles and musical
-characters. I borrowed terms from plant morphology I felt describe these musical
-characters for the titles. Pappus is the fluffy hair-like material which carries
-seeds through the air, Panicle is an inflorescence with many branches thrusting out
-in different directions, and Pinnate describes a two-rowed leaflet structure. }}
+voices.
+}}
--- /dev/null
+%fifteen inventions project
+xumbel = \markup {
+ \center-column {
+ \path #0.1
+ #'((moveto 0 0)
+ (curveto 1 0.3 3.6 3 4.2 1.6)
+ (moveto 0 0)
+ (curveto -1 0.3 -3.6 3 -4.2 1.6)
+ (moveto 0 0)
+ (curveto 0.9 0.3 2.9 3 3.5 1.7)
+ (moveto 0 0)
+ (curveto -0.9 0.3 -2.9 3 -3.5 1.7)
+ (moveto 0 0)
+ (curveto 0.8 0.3 2.2 3 2.8 1.8)
+ (moveto 0 0)
+ (curveto -0.8 0.3 -2.2 3 -2.8 1.8)
+ (moveto 0 0)
+ (curveto 0.6 0.3 1.5 3 2.1 1.9)
+ (moveto 0 0)
+ (curveto -0.6 0.3 -1.5 3 -2.1 1.9)
+ (moveto 0 0)
+ (curveto 0.4 0.3 0.8 3 1.4 2)
+ (moveto 0 0)
+ (curveto -0.4 0.3 -0.8 3 -1.4 2)
+ (moveto 0 0)
+ (curveto 0.2 0.3 0.5 3 0.7 2.1)
+ (moveto 0 0)
+ (curveto -0.2 0.3 -0.5 3 -0.7 2.1)
+ (moveto 0 0)
+ (lineto 0 2.2))
+ \vspace #-0.035
+ \override #'(height . 0.25) \draw-squiggle-line #1 #'(0 . 5) ##f
+ \vspace #-0.275
+ }
+ }
%fifteen inventions project
%texts
-xtitle = \markup { Fifteen Inventions }
-xsub = \markup { for keyboard }
+xyear = \markup { 2022-23 }
+xtitle = \markup { Circumnutation }
+xsub = \markup { fifteen inventions for keyboard instruments }
xcomp = \markup { Tucker Johnson }
xinst = \markup { keyboard }
-xdur = \markup { \null }
-xcr = \markup \tiny { Copyright Tucker Johnson MMXXII. All Rights Reserved }
+xdur = \markup { "30\" - 15\'" }
+xcr = \markup \tiny { Copyright \char ##x00A9 MMXXIII Umbel Press. }
oddfoot = \markup { \fill-line { \null \center-column { \concat { " - " \fromproperty #'page:page-number-string " - " } \small { \xcomp } } \null } }
evfoot = \markup { \fill-line { \null \center-column { \concat { " - " \fromproperty #'page:page-number-string " - " } \small { \xtitle } } \null } }
finfoot = \markup { \fill-line { \null \center-column { \concat { " - " \fromproperty #'page:page-number-string " - " } \small \typewriter { "February 1st, 2022 - Rochester, New York" } } \null } }