From fcd7a1fae0d6c6f6ced9ae62f4afd40018f70592 Mon Sep 17 00:00:00 2001 From: tuckerjohnson Date: Wed, 6 Apr 2022 10:57:00 -0400 Subject: [PATCH] i1 --- .../eng-files/pp-document-structure.ly | 34 +++++----- lilypond-files/eng-files/pp-paper.ly | 57 +++++++++-------- lilypond-files/eng-files/pp-variables.ly | 7 ++- .../front-matter/pp-front-matter.ly | 39 +++++++++--- lilypond-files/front-matter/pp-p-notes.ly | 2 +- lilypond-files/manuscripts/pp-i1.ly | 62 +++++-------------- 6 files changed, 102 insertions(+), 99 deletions(-) diff --git a/lilypond-files/eng-files/pp-document-structure.ly b/lilypond-files/eng-files/pp-document-structure.ly index 81753c5..aa1b8d1 100644 --- a/lilypond-files/eng-files/pp-document-structure.ly +++ b/lilypond-files/eng-files/pp-document-structure.ly @@ -22,26 +22,27 @@ \new PianoStaff \with { \consists "Merge_rests_engraver" } << \set PianoStaff.connectArpeggios = ##t \override PianoStaff.Arpeggio.arpeggio-direction = #UP - \new Staff = "ut4" { - \accidentalStyle modern + \new Staff = "ui1" { + \accidentalStyle forget << \relative \voiceApre >> } - \new Staff = "dt4" { \clef bass - \accidentalStyle modern + \new Staff = "di1" { \clef bass + \accidentalStyle forget << \relative \voiceBpre >> } >> - \layout { - \context { - \Score - \override BarNumber.font-size = #1 - \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16) - } - } + \layout { + \context { + \Score + \override BarNumber.font-size = #1 + \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/25) + \override TimeSignature.stencil = ##f + } + } } @@ -137,11 +138,12 @@ >> } >> - \layout { - \context { - \Score - \override BarNumber.font-size = #1 - \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16) + \layout { + \context { + \Score + \override BarNumber.font-size = #1 + \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16) + \override TimeSignature.stencil = ##f } } } diff --git a/lilypond-files/eng-files/pp-paper.ly b/lilypond-files/eng-files/pp-paper.ly index b6b24bf..f85f4e8 100644 --- a/lilypond-files/eng-files/pp-paper.ly +++ b/lilypond-files/eng-files/pp-paper.ly @@ -2,18 +2,18 @@ %------paper-block------ \paper { - first-page-number = -1 + first-page-number = 1 print-page-number = ##f oddHeaderMarkup = \markup { \tiny { " " } } evenHeaderMarkup = \markup { \tiny { " " } } oddFooterMarkup = \markup { - \concat { \on-the-fly #(on-page 3) \null } + \concat { \on-the-fly #(on-page 3) \fill-line { \null \xcr \null } } \concat { \on-the-fly #(on-page 5) \oddfoot } \concat { \on-the-fly #(on-page 7) \oddfoot } \concat { \on-the-fly #(on-page 9) \oddfoot } \concat { \on-the-fly #(on-page 11) \oddfoot } \concat { \on-the-fly #(on-page 13) \oddfoot } - \concat { \on-the-fly #(on-page 15) \fill-line { \xcr } } + \concat { \on-the-fly #(on-page 15) \oddfoot } \concat { \on-the-fly #(on-page 17) \oddfoot } \concat { \on-the-fly #(on-page 19) \oddfoot } \concat { \on-the-fly #(on-page 21) \oddfoot } @@ -23,12 +23,12 @@ } evenFooterMarkup = \markup { \concat { \on-the-fly #(on-page 2) \evfoot } - \concat { \on-the-fly #(on-page 4) \fill-line { \xcr } } - \concat { \on-the-fly #(on-page 6) \fill-line { \xcr } } - \concat { \on-the-fly #(on-page 8) \fill-line { \xcr } } + \concat { \on-the-fly #(on-page 4) \evfoot } + \concat { \on-the-fly #(on-page 6) \evfoot } + \concat { \on-the-fly #(on-page 8) \evfoot } \concat { \on-the-fly #(on-page 10) \evfoot } - \concat { \on-the-fly #(on-page 12) \fill-line { \xcr } } - \concat { \on-the-fly #(on-page 14) \null } + \concat { \on-the-fly #(on-page 12) \evfoot } + \concat { \on-the-fly #(on-page 14) \evfoot } \concat { \on-the-fly #(on-page 16) \evfoot } \concat { \on-the-fly #(on-page 18) \evfoot } \concat { \on-the-fly #(on-page 20) \evfoot } @@ -37,24 +37,27 @@ \concat { \on-the-fly #(on-page 26) \evfoot } \concat { \on-the-fly #(on-page 28) \evfoot } } - #(set-paper-size "letter") - print-all-headers = ##t - top-margin = 8 - indent = 2\cm - short-indent = 0.8\cm - #(define fonts - (set-global-fonts - #:music "haydn" - #:brace "haydn" - #:roman "Times" + #(set-paper-size "letter") + print-all-headers = ##t + top-margin = 0.8\cm + bottom-margin = 0.8\cm + left-margin = 2\cm + right-margin = 2\cm + indent = 1.3\cm + short-indent = 0\cm + #(define fonts + (set-global-fonts + #:music "haydn" + #:brace "haydn" + #:roman "Times" )) - max-systems-per-page = #7 - system-system-spacing = - #'((basic-distance . 5) - (minimum-distance . 5) - (padding . 6)) - score-system-spacing = - #'((basic-distance . 5) - (minimum-distance . 5) - (padding . 1)) + max-systems-per-page = #7 + system-system-spacing = + #'((basic-distance . 5) + (minimum-distance . 5) + (padding . 6)) + score-system-spacing = + #'((basic-distance . 5) + (minimum-distance . 5) + (padding . 1)) } diff --git a/lilypond-files/eng-files/pp-variables.ly b/lilypond-files/eng-files/pp-variables.ly index 3adde9c..2a91626 100644 --- a/lilypond-files/eng-files/pp-variables.ly +++ b/lilypond-files/eng-files/pp-variables.ly @@ -14,9 +14,10 @@ evfoot = \markup { \fill-line { \null \center-column { \concat { " - " \fromprop finfoot = \markup { \fill-line { \null \center-column { \concat { " - " \fromproperty #'page:page-number-string " - " } \small \typewriter { "February 1st, 2022 - Rochester, New York" } } \null } } %music -tmarksev = \tempo "poco rubato" 4 = 46-52 -tmarktfour = \tempo "tempo giusto" 4 = 60 -tmarktthree = \tempo "secco" 4 = 165 +tmarkione = \tempo "Lento" +tmarksev = \tempo "poco Rubato" 4 = 46-52 +tmarktfour = \tempo "Tempo giusto" 4 = 60 +tmarktthree = \tempo "Vivace" 4 = 165 bh = \break ds = #2.5 sods = #3.4 diff --git a/lilypond-files/front-matter/pp-front-matter.ly b/lilypond-files/front-matter/pp-front-matter.ly index 9eccf1a..9a1382b 100644 --- a/lilypond-files/front-matter/pp-front-matter.ly +++ b/lilypond-files/front-matter/pp-front-matter.ly @@ -21,14 +21,39 @@ front-matter = \markuplist { \line { \hbracket \bold "inventions" } \vspace #0.5 \line { \left-column { \line { \italic "sequence 1" } - \line { \bold " prelude" } - \line { \bold " panicle" } - \line { \bold " circumnutation" } + \line { \bold "1 prelude" } + \line { \bold "2 panicle" } + \line { \bold "3 circumnutation" } \vspace #0.2 - \line { \italic "sequnce 2" } - \line { \bold " polar" } - \line { \bold " panicle" } - \line { \bold " circumnutation" } + \line { \italic "sequence 2" } + \line { \bold "4 polar" } + \line { \bold "5 panicle" } + \line { \bold "6 circumnutation" } + \vspace #0.2 + \line { \italic "sequence 3" } + \line { \bold "7 cyme" } + \line { \bold "8 polar" } + \line { \bold "9 circumnutation" } + \vspace #0.2 + \line { \italic "sequence 4" } + \line { \bold "10 panicle" } + \line { \bold "11 composite" } + \line { \bold "12 circumnutation" } + \vspace #0.2 + \line { \italic "sequence 5" } + \line { \bold "13 composite" } + \line { \bold "14 polar" } + \line { \bold "15 circumnutation" } + \vspace #0.2 + \line { \italic "sequence 6" } + \line { \bold "16 cyme" } + \line { \bold "17 pappus" } + \line { \bold "18 circumnutation" } + \vspace #0.2 + \line { \italic "sequence 7" } + \line { \bold "19 panicle" } + \line { \bold "20 cyme" } + \line { \bold "21 circumnutation" } } } \vspace #1.5 diff --git a/lilypond-files/front-matter/pp-p-notes.ly b/lilypond-files/front-matter/pp-p-notes.ly index cc3e50f..e7db9c8 100644 --- a/lilypond-files/front-matter/pp-p-notes.ly +++ b/lilypond-files/front-matter/pp-p-notes.ly @@ -1,3 +1,3 @@ \version "2.20.0" -xpnote = \markup { \override #'(line-width . 90) \justify { \bold \italic "Settle the Score" is a piece for five instruments: cor anglais, trumpet, electric guitar, violin, and computer. It can either be performed as a chamber work with all five parts, or any one part alone. The piece is designed such that each part has unique content and contour; each solo has different alternations of smooth and jagged music. When played as a chamber work, \bold \italic "Settle the Score" reveals a sequence of forty-seven 12-tone aggregates, partitioned into all the five part aggregates with part sizes from one to twelve. All six versions are different, but they share a light spirit, and are comfortable whether alone or together.}} +xpnote = \markup { \override #'(line-width . 90) \justify { \bold \italic "21 inventions" for piano }} diff --git a/lilypond-files/manuscripts/pp-i1.ly b/lilypond-files/manuscripts/pp-i1.ly index 07d15fa..b53ef60 100644 --- a/lilypond-files/manuscripts/pp-i1.ly +++ b/lilypond-files/manuscripts/pp-i1.ly @@ -1,47 +1,19 @@ -\version "2.20.0" %Cor Anglais Settle the Score manuscript: +\version "2.20.0" %invention 1 manuscript: -voiceApre = { \tmarktthree -\time 7/8 s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 \bar "|." } +voiceApre = { \tmarkione \override Beam.auto-knee-gap = #6 +\time 15/8 \change Staff = "di1" gis8[\mp\laissezVibrer\stemUp a\laissezVibrer cis\laissezVibrer \change Staff = "ui1" fis\laissezVibrer \change Staff = "di1" b,\laissezVibrer dis,\laissezVibrer e,\laissezVibrer] \change Staff = "ui1" \override NoteHead.transparent = ##t e''1*1/2^~ 1*1/2\fermata \override NoteHead.transparent = ##f | +\change Staff = "di1" \stemDown bes8[\laissezVibrer a\laissezVibrer \change Staff = "ui1" g'\laissezVibrer d'\laissezVibrer c\laissezVibrer f,\laissezVibrer e'\laissezVibrer] \override NoteHead.transparent = ##t e,1*1/2^~ 1*1/2\fermata \override NoteHead.transparent = ##f | +\change Staff = "di1" \stemUp d,8[\laissezVibrer b'\laissezVibrer cis,\laissezVibrer fis,\laissezVibrer a\laissezVibrer e\laissezVibrer gis'\laissezVibrer] \change Staff = "ui1" \override NoteHead.transparent = ##t e'1*1/2^~ 1*1/2\fermata \override NoteHead.transparent = ##f | +s1*15/8 | +s1*15/8 | +s1*15/8 | +\time 7/8 s1*7/8 \bar "|." } -voiceBpre = { \tmarktthree -\time 7/8 s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | -s1*7/8 | } +voiceBpre = { \tmarkione \override NoteHead #'no-ledgers = ##t +\time 15/8 \set Staff.pedalSustainStyle = #'bracket \override NoteHead.transparent = ##t s4.\sustainOn s4 s4 a1*1/2_~ 1*1/2 | +s4.\sustainOff\sustainOn s4 s4 a1*1/2_~ 1*1/2 | +s4.\sustainOff\sustainOn s4 s4 a1*1/2_~ 1*1/2 | +s4.\sustainOff\sustainOn s4 s4 a1*1/2_~ 1*1/2 | +s4.\sustainOff\sustainOn s4 s4 a1*1/2_~ 1*1/2 | +s4.\sustainOff\sustainOn s4 s4 a1*1/2_~ 1*1/2 | +\time 7/8 s1*7/8 | } -- 2.39.5