- Junicode
- Syne
-From a command prompt in the root directory:
-
-cat variables/* eng-files/* front-matter/* book.ly | lilypond -dno-point-and-click --output="net-clarity" -
-
-
The content of this project (music and logos) is protected under copyright, and the underlying source code used to format that content licensed under the Unlicense.
(Copyright © 2023 Tucker Johnson)
+++ /dev/null
-% Net Clarity project
-\book {
- \outcover
- \pageBreak
- \markup { \vspace #5 }
- \pageBreak
- \cover
- \pageBreak
- \front-matter
- \pageBreak
-
- \header {
- tagline = ##f
- }
-
- \bookpart {
- \tocItem \markup { "I. " }
- \score {
- \header {
- title = \markup { \fontsize #1 \xtitle }
- subtitle = \markup { \medium \italic \xsub }
- composer = \xcomp
- poet = \markup { \xinst }
- piece = \markup { \large \bold "I. " }
- }
- <<
- \include "manuscripts/I-clarinet.ly"
- \include "manuscripts/I-piano.ly"
- >>
- %\midi { }
- \layout {
- \context {
- \Score
- \override RehearsalMark.break-visibility = #begin-of-line-invisible
- \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/8)
- \override Hairpin.to-barline = ##f
- }
- }
- }
- }
-
- \bookpart {
- \tocItem \markup { "II. " }
- \score {
- \header {
- piece = \markup { \large \bold "II. " }
- }
- <<
- \include "manuscripts/II-clarinet.ly"
- \include "manuscripts/II-piano.ly"
- >>
- %\midi { }
- \layout {
- \context {
- \Score
- \override RehearsalMark.break-visibility = #begin-of-line-invisible
- \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
- \override Hairpin.to-barline = ##f
- }
- }
- }
- }
-
-
- \bookpart {
- \tocItem \markup { "III. " \parenthesize \italic "to Amber Lucas" }
- \score {
- \header {
- piece = \markup { \large \bold "III. " \parenthesize \italic "to Amber Lucas" }
- }
- <<
- \include "manuscripts/III-clarinet.ly"
- \include "manuscripts/III-piano.ly"
- >>
- %\midi { }
- \layout {
- \context {
- \Score
- \remove Text_mark_engraver
- \override RehearsalMark.break-visibility = #begin-of-line-invisible
- \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
- \override Hairpin.to-barline = ##f
- }
- \context {
- \Staff
- }
- }
- }
- }
-
- \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
- \remove Mark_engraver
- \override TextSpanner.bound-details.left-broken.text = " "
- \override RehearsalMark.break-visibility = #begin-of-line-invisible
- \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
- \override Hairpin.to-barline = ##f
- \override Stem.stemlet-length = #0.75
- }
- \context {
- \Staff
- \RemoveEmptyStaves
- \consists Mark_engraver
- }
- }
- }
- }
-
- \markup { \null }
- \pageBreak
- \backcover
- \pageBreak
- \markup { \null }
-}
+++ /dev/null
-% net clarity project
-
-\paper {
- line-width = 120
- first-page-number = -1
- footnote-separator-markup = \markup { \left-column { \vspace #0.5 \draw-line #'(6 . 0) } }
- print-page-number = ##f
- #(set-paper-size "arch a")
- print-all-headers = ##t
- top-margin = 0.5\in
- bottom-margin = 0.5\in
- left-margin = 0.9\in
- right-margin = 0.9\in
- indent = 0.75\in
- short-indent = 0\cm
- #(define fonts (set-global-fonts #:music "scorlatti" #:brace "scorlatti" #:roman "Junicode" #:sans "syne"))
- max-systems-per-page = #10
- system-system-spacing = #'((basic-distance . 10) (minimum-distance . 8) (padding . 12))
- score-system-spacing = #'((basic-distance . 2) (minimum-distance . 1) (padding . 0))
- last-bottom-spacing = #'((basic-distance . 5) (minimum-distance . 5) (padding . 0))
- tocTitleMarkup = \markup { \null }
- tocItemMarkup = \markup {
- \center-column {
- \fill-line {
- \left-column { \concat { " " " " \bold \fromproperty #'toc:text } }
- \right-column { \concat { \tiny \number { \fromproperty #'toc:page } " " " " } }
- }
- }
- }
- oddHeaderMarkup = \markup {
- \concat { \if \on-page #5 \oddhead }
- \concat { \if \on-page #7 \oddhead }
- \concat { \if \on-page #9 \oddhead }
- \concat { \if \on-page #11 \oddhead }
- \concat { \if \on-page #13 \oddhead }
- \concat { \if \on-page #15 \oddhead }
- \concat { \if \on-page #17 \oddhead }
- \concat { \if \on-page #19 \oddhead }
- \concat { \if \on-page #21 \oddhead }
-
- }
- evenHeaderMarkup = \markup {
- \concat { \if \on-page #4 \evhead }
- \concat { \if \on-page #6 \evhead }
- \concat { \if \on-page #8 \evhead }
- \concat { \if \on-page #10 \evhead }
- \concat { \if \on-page #12 \evhead }
- \concat { \if \on-page #14 \evhead }
- \concat { \if \on-page #16 \evhead }
- \concat { \if \on-page #18 \evhead }
- \concat { \if \on-page #20 \evhead }
- \concat { \if \on-page #22 \evhead }
-
- }
- oddFooterMarkup = \markup {
- \concat { \if \on-page #3 \fill-line { \null \xcr \null } }
- \concat { \if \on-page #5 \oddfoot }
- \concat { \if \on-page #7 \oddfoot }
- \concat { \if \on-page #9 \oddfoot }
- \concat { \if \on-page #11 \oddfoot }
- \concat { \if \on-page #13 \oddfoot }
- \concat { \if \on-page #15 \oddfoot }
- \concat { \if \on-page #17 \oddfoot }
- \concat { \if \on-page #19 \oddfoot }
- \concat { \if \on-page #21 \oddfoot }
- \concat { \if \on-page #23 \oddfoot }
- \concat { \if \on-page #25 \fill-line { \null \tiny \typewriter \longHash \null } }
- }
- evenFooterMarkup = \markup {
- \concat { \if \on-page #2 \evfoot }
- \concat { \if \on-page #4 \evfoot }
- \concat { \if \on-page #6 \evfoot }
- \concat { \if \on-page #8 \evfoot }
- \concat { \if \on-page #10 \evfoot }
- \concat { \if \on-page #12 \evfoot }
- \concat { \if \on-page #14 \evfoot }
- \concat { \if \on-page #16 \evfoot }
- \concat { \if \on-page #18 \evfoot }
- \concat { \if \on-page #20 \evfoot }
- \concat { \if \on-page #22 \evfoot }
- }
-
-
-}
+++ /dev/null
-% project - Scripts
-
-
-to-internal-ts =
-#(define-scheme-function
- (top partial bottom)
- (integer? rational? integer?)
- (let
- ((internal-ts
- (+ (/ top bottom) (* partial (/ 1 bottom)))))
- (cons (numerator internal-ts) (denominator internal-ts))))
-
-
-fractionalTime =
-#(define-music-function
- (top partial bottom)
- (integer? rational? integer?)
- #{
- \once \override Staff.TimeSignature.stencil = #ly:text-interface::print
- \once \override Staff.TimeSignature.text =
- \markup \override #'(baseline-skip . 0) \center-column \number {
- \concat { #(number->string top) \magnify #0.5 \pad-x #-.2 {
- \translate #'(0 . 1) #(number->string (numerator partial))
- \translate #'(-1 . 0) \override #'(thickness . 2) \draw-line #'(1 . 2)
- \translate #'(0 . 0) #(number->string (denominator partial)) }} #(number->string bottom)
- }
- \time #(to-internal-ts top partial bottom)
- #})
+++ /dev/null
-% net clarity project
-
-U = \change Staff = "u"
-D = \change Staff = "d"
-
-%spacing
-ds = #2.5
-sods = #3.4
-phds = #3.9
-
-%notation marks
-lsp = \override TextSpanner.bound-details.left.text = "sp"
-rsp = \override TextSpanner.bound-details.right.text = " sp"
-lst = \override TextSpanner.bound-details.left.text = "st"
-rst = \override TextSpanner.bound-details.right.text = " st"
-lord = \override TextSpanner.bound-details.left.text = "ord"
-rord = \override TextSpanner.bound-details.right.text = " ord"
-rit = \override TextSpanner.bound-details.left.text = \markup { \upright "rit. " }
-ritPoc = \override TextSpanner.bound-details.left.text = \markup { \upright "ritardando poco a poco " }
-molRit = \override TextSpanner.bound-details.left.text = \markup { \upright "molto rit. " }
-pocRit = \override TextSpanner.bound-details.left.text = \markup { \upright "poco rit. " }
-ace = \override TextSpanner.bound-details.left.text = \markup { \upright "accel. " }
-pocAce = \override TextSpanner.bound-details.left.text = \markup { \upright "poco accel. " }
-acePoc = \override TextSpanner.bound-details.left.text = \markup { \upright "accelerando poco a poco " }
-molAce = \override TextSpanner.bound-details.left.text = \markup { \upright "molto accel. " }
-
-ffsempre =
- #(make-dynamic-script (markup #:combine #:transparent "f" "ff" #:combine
-#:transparent "f" #:normal-text #:italic "sempre" ) )
-
-psempre =
- #(make-dynamic-script (markup #:combine #:transparent "f" "p" #:combine
-#:transparent "f" #:normal-text #:italic "sempre" ) )
-
-ppsempre =
- #(make-dynamic-script (markup #:combine #:transparent "f" "pp" #:combine
-#:transparent "f" #:normal-text #:italic "sempre" ) )
-
-ppsubito =
- #(make-dynamic-script (markup #:combine #:transparent "f" "pp" #:combine
-#:transparent "f" #:normal-text #:italic "subito" ) )
-
-psubito =
- #(make-dynamic-script (markup #:combine #:transparent "f" "p" #:combine
-#:transparent "f" #:normal-text #:italic "subito" ) )
-
-
-
-doubleSeparator = \markup {
- \left-column {
- \vcenter \combine
- \beam #2.0 #0.3 #0.5
- \raise #0.7 \beam #2.0 #0.3 #0.5
- }
- \hspace #98
- \right-column {
- \vcenter \combine
- \beam #2.0 #0.3 #0.5
- \raise #0.7 \beam #2.0 #0.3 #0.5
- }
-}
-
-
-buzzSymbol = \markup \path #0.25
-#(let ((x 3/6) (y 2/5))
- `((moveto ,x ,(- y)) (lineto ,(- x) ,(- y))
- (lineto ,x ,y) (lineto ,(- x) ,y)))
-
-applyBuzzSymbol = #(grob-transformer 'stencil
- (lambda (grob orig)
- (let ((dir (ly:grob-property grob 'direction))
- (sten (grob-interpret-markup grob buzzSymbol)))
- (ly:stencil-add orig
- (ly:stencil-translate-axis sten (* 0.1 dir) Y)))))
-
-applyBuzzuSymbol = #(grob-transformer 'stencil
- (lambda (grob orig)
- (let ((dir (ly:grob-property grob 'direction))
- (sten (grob-interpret-markup grob buzzSymbol)))
- (ly:stencil-add orig
- (ly:stencil-translate-axis sten (* 1.6 dir) Y)))))
-
-applyBuzzdSymbol = #(grob-transformer 'stencil
- (lambda (grob orig)
- (let ((dir (ly:grob-property grob 'direction))
- (sten (grob-interpret-markup grob buzzSymbol)))
- (ly:stencil-add orig
- (ly:stencil-translate-axis sten (* 1.6 dir) Y)))))
-
-applyBuzzddSymbol = #(grob-transformer 'stencil
- (lambda (grob orig)
- (let ((dir (ly:grob-property grob 'direction))
- (sten (grob-interpret-markup grob buzzSymbol)))
- (ly:stencil-add orig
- (ly:stencil-translate-axis sten (* 2.1 dir) Y)))))
-
-
-buzz = \tweak Stem.stencil \applyBuzzSymbol \etc
-buzzu = \tweak Stem.stencil \applyBuzzuSymbol \etc
-buzzd = \tweak Stem.stencil \applyBuzzdSymbol \etc
-buzzdd = \tweak Stem.stencil \applyBuzzddSymbol \etc
+++ /dev/null
-% river project
-
-
-backcover = \markuplist { \fill-line {
- \line { \null }
- \center-column {
- \vspace #16
- \xbio
- \vspace #2
- \override #'(thickness . 5)
- \draw-squiggle-line #0.5 #'(20 . 0) ##t
- \vspace #2
- \override #'(line-width . 100)
- \justify \tiny \sans {
- This score was engraved on #(string-append (strftime "%m-%d-%Y"
- (localtime (current-time))) ",") using LilyPond version
- #(string-append (lilypond-version) ".") If you would like to view the
- most recent version of the input documents that generated it, visit
- \sans \bold \concat { "https://github.com/tuckerjohnson/" \xtitle "." }
- }
- }
- \line { \null }
- }
-}
+++ /dev/null
-% net clarity project
-
-front-matter = \markuplist {
-
- \fill-line {
- \left-column {
- \line { \bold \xtitle " [2024]" }
- \line { \xinst " | " 20 minutes }
- \line { \xcomp }
- \vspace #25
- }
-
- \center-column {
- \vspace #3
- \override #'(x-padding . -10)
- \center-column { \table-of-contents }
- \vspace #2.25
- \override #'(thickness . 5) \draw-squiggle-line #0.5 #'(20 . 0) ##t
- \vspace #2.25
- \line { \hbracket \bold "program note" }
- \vspace #0.5
- \xpnote
- \vspace #2.25
- \override #'(thickness . 5) \draw-squiggle-line #0.5 #'(20 . 0) ##t
- }
-
- \right-column {
- \vspace #-0.5
- \right-column \fontsize #-1 {
- \line { \fontsize #-2 \typewriter { \shortHash - \subject } }
- \line { \fontsize #-2 \typewriter { \commitDate } }
- }
- \vspace #2
- }
- }
-}
+++ /dev/null
-% river project
-
-cover = \markuplist {
- \fill-line {
- \line { \null }
- \center-column {
- \vspace #10
- \line { \hbracket \fontsize #10 \number 2024 }
- \vspace #4
- \line { \xcomp }
- \vspace #1
- \line { \fontsize #5 \bold \xtitle }
- \line { \italic \xsub }
- \vspace #4
- }
- \right-column {
- \line { \null }
- }
- }
- }
+++ /dev/null
-% river project
-
-outcover = \markuplist {
-\fill-line {
- \line { \null }
- \center-column {
- \line { \with-url #"https://newer.systems" \fontsize #1 \hbracket \sans \bold " https://newer.systems " }
- }
- \line { \null }
- \line { \null }
- \line { \null }
- \line { \null }
- }
- \fill-line {
- \line { \null }
- \center-column {
- \line { \null }
- }
- \right-column {
- \vspace #15
- \line { \fontsize #8 \bold \underline \xtitle }
- \vspace #-0.1
- \line { \fontsize #3 \sans \xcomp }
- \vspace #3
- \line { \fontsize #2 \sans \concat { "for " \xinst } }
- }
- }
- \vspace #26.25
- \fill-line {
- \line { \null }
- \line { \null }
- \line { \null }
- \line { \null }
- \center-column {
- \xumbel
- \vspace #0.3
- \line { \fontsize #1 \hbracket \sans \bold " umbel press " }
- }
- \line { \null }
- }
-}
--- /dev/null
+U = \change Staff = "u"
+D = \change Staff = "d"
+
+%spacing
+ds = #2.5
+sods = #3.4
+phds = #3.9
+
+%notation marks
+lsp = \override TextSpanner.bound-details.left.text = "sp"
+rsp = \override TextSpanner.bound-details.right.text = " sp"
+lst = \override TextSpanner.bound-details.left.text = "st"
+rst = \override TextSpanner.bound-details.right.text = " st"
+lord = \override TextSpanner.bound-details.left.text = "ord"
+rord = \override TextSpanner.bound-details.right.text = " ord"
+rit = \override TextSpanner.bound-details.left.text = \markup { \upright "rit. " }
+ritPoc = \override TextSpanner.bound-details.left.text = \markup { \upright "ritardando poco a poco " }
+molRit = \override TextSpanner.bound-details.left.text = \markup { \upright "molto rit. " }
+pocRit = \override TextSpanner.bound-details.left.text = \markup { \upright "poco rit. " }
+ace = \override TextSpanner.bound-details.left.text = \markup { \upright "accel. " }
+pocAce = \override TextSpanner.bound-details.left.text = \markup { \upright "poco accel. " }
+acePoc = \override TextSpanner.bound-details.left.text = \markup { \upright "accelerando poco a poco " }
+molAce = \override TextSpanner.bound-details.left.text = \markup { \upright "molto accel. " }
+
+ffsempre =
+ #(make-dynamic-script (markup #:combine #:transparent "f" "ff" #:combine
+#:transparent "f" #:normal-text #:italic "sempre" ) )
+
+psempre =
+ #(make-dynamic-script (markup #:combine #:transparent "f" "p" #:combine
+#:transparent "f" #:normal-text #:italic "sempre" ) )
+
+ppsempre =
+ #(make-dynamic-script (markup #:combine #:transparent "f" "pp" #:combine
+#:transparent "f" #:normal-text #:italic "sempre" ) )
+
+ppsubito =
+ #(make-dynamic-script (markup #:combine #:transparent "f" "pp" #:combine
+#:transparent "f" #:normal-text #:italic "subito" ) )
+
+psubito =
+ #(make-dynamic-script (markup #:combine #:transparent "f" "p" #:combine
+#:transparent "f" #:normal-text #:italic "subito" ) )
+
+
+
+doubleSeparator = \markup {
+ \left-column {
+ \vcenter \combine
+ \beam #2.0 #0.3 #0.5
+ \raise #0.7 \beam #2.0 #0.3 #0.5
+ }
+ \hspace #98
+ \right-column {
+ \vcenter \combine
+ \beam #2.0 #0.3 #0.5
+ \raise #0.7 \beam #2.0 #0.3 #0.5
+ }
+}
+
+
+buzzSymbol = \markup \path #0.25
+#(let ((x 3/6) (y 2/5))
+ `((moveto ,x ,(- y)) (lineto ,(- x) ,(- y))
+ (lineto ,x ,y) (lineto ,(- x) ,y)))
+
+applyBuzzSymbol = #(grob-transformer 'stencil
+ (lambda (grob orig)
+ (let ((dir (ly:grob-property grob 'direction))
+ (sten (grob-interpret-markup grob buzzSymbol)))
+ (ly:stencil-add orig
+ (ly:stencil-translate-axis sten (* 0.1 dir) Y)))))
+
+applyBuzzuSymbol = #(grob-transformer 'stencil
+ (lambda (grob orig)
+ (let ((dir (ly:grob-property grob 'direction))
+ (sten (grob-interpret-markup grob buzzSymbol)))
+ (ly:stencil-add orig
+ (ly:stencil-translate-axis sten (* 1.6 dir) Y)))))
+
+applyBuzzdSymbol = #(grob-transformer 'stencil
+ (lambda (grob orig)
+ (let ((dir (ly:grob-property grob 'direction))
+ (sten (grob-interpret-markup grob buzzSymbol)))
+ (ly:stencil-add orig
+ (ly:stencil-translate-axis sten (* 1.6 dir) Y)))))
+
+applyBuzzddSymbol = #(grob-transformer 'stencil
+ (lambda (grob orig)
+ (let ((dir (ly:grob-property grob 'direction))
+ (sten (grob-interpret-markup grob buzzSymbol)))
+ (ly:stencil-add orig
+ (ly:stencil-translate-axis sten (* 2.1 dir) Y)))))
+
+
+buzz = \tweak Stem.stencil \applyBuzzSymbol \etc
+buzzu = \tweak Stem.stencil \applyBuzzuSymbol \etc
+buzzd = \tweak Stem.stencil \applyBuzzdSymbol \etc
+buzzdd = \tweak Stem.stencil \applyBuzzddSymbol \etc
--- /dev/null
+xtitle = \markup { Net Clarity }
+xsub = \markup { " " }
+xcomp = \markup { Tucker Johnson }
+xinst = \markup { clarinet and piano }
+xdur = \markup { \null }
+xcr = \markup \tiny { Copyright Tucker Johnson MMXXIV. All Rights Reserved }
+oddhead = \markup { \fill-line { \null \center-column { \bold { \xcomp } " " } \null } }
+evhead = \markup { \fill-line { \null \center-column { \bold { \xtitle } " " } \null } }
+oddfoot = \markup { \fill-line { \null \center-column { " " \concat { " - " \fromproperty #'page:page-number-string " - " } } \null } }
+evfoot = \markup { \fill-line { \null \center-column { " " \concat { " - " \fromproperty #'page:page-number-string " - " } } \null } }
+finfoot = \markup { \fill-line { \null \center-column { " " \concat { " - " \fromproperty #'page:page-number-string " - " } \small \typewriter { "February 1st, 2022 - Rochester, New York" } } \null } }
--- /dev/null
+to-internal-ts =
+#(define-scheme-function
+ (top partial bottom)
+ (integer? rational? integer?)
+ (let
+ ((internal-ts
+ (+ (/ top bottom) (* partial (/ 1 bottom)))))
+ (cons (numerator internal-ts) (denominator internal-ts))))
+
+
+fractionalTime =
+#(define-music-function
+ (top partial bottom)
+ (integer? rational? integer?)
+ #{
+ \once \override Staff.TimeSignature.stencil = #ly:text-interface::print
+ \once \override Staff.TimeSignature.text =
+ \markup \override #'(baseline-skip . 0) \center-column \number {
+ \concat { #(number->string top) \magnify #0.5 \pad-x #-.2 {
+ \translate #'(0 . 1) #(number->string (numerator partial))
+ \translate #'(-1 . 0) \override #'(thickness . 2) \draw-line #'(1 . 2)
+ \translate #'(0 . 0) #(number->string (denominator partial)) }} #(number->string bottom)
+ }
+ \time #(to-internal-ts top partial bottom)
+ #})
--- /dev/null
+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
+ }
+ }
-% net clarity project
+% root = ../net-clarity.ly
\new Staff \with {
instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } }
-% net clarity project
+% root = ../net-clarity.ly
\new PianoStaff \with {
instrumentName = \markup { "piano " }
-% net clarity project
+% root = ../net-clarity.ly
\new Staff \with {
instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } }
-% net clarity project
+% root = ../net-clarity.ly
\new PianoStaff \with {
instrumentName = \markup { "piano " }
-% net clarity project
+% root = ../net-clarity.ly
\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)
+ fontSize = \clarinetFont
+ \override StaffSymbol.staff-space = \clarinetMagstep
\consists Text_mark_engraver
+ \consists Mark_engraver
}
\transpose bes c' \relative {
+ \compressEmptyMeasures
\numericTimeSignature
\clef treble
\tempo \markup { "Lento, poco rubato" } 4=50
\time 5/4 R1*5/4 | %1
\time 4/4 R1 | %2
- \time 5/4 R1*5/4 | %3
- R1*5/4 | %4
- R1*5/4 | %5
+ \time 5/4 R1*5/4*3 | %3
\time 4/4 R1 | %6
- \time 3/4 R1*3/4 | %7
+ <<
+ { \time 3/4 R1*3/4 \cueClefUnset | } %7
+ \tag #'part {
+ \new CueVoice \relative {
+ \cueClef "bass" \stemUp fis,8[\laissezVibrer cis']\laissezVibrer <gis'\laissezVibrer a>[ <b e,>]~ 4 \stemNeutral |
+ }
+ }
+ >>
+ \resetRelativeOctave c
\sectionLabel \markup { \box \number 8 }
- \time 4/4 d'4(\pp\< c2.~ | %8
+ \omit Score.BarNumber
+ \time 4/4 \clef treble d'4(\pp\< c2.~ | %8
+ \undo \omit Score.BarNumber
\time 3/4 c8)\mp r8 r4 r8 ees8~-> | %9
- \time 7/8 4. b4(\> e |
- \time 3/4 cis'2)\p r8 g8(\< |
+ \time 7/8 4. b4(\p\< e |
+ \time 3/4 cis'2)\! r8 g8(\< |
\time 7/8 a4. ges,2)\mp |
\time 4/4 \pocAce r8\startTextSpan f4.~\p\< 8 ges8_( aes'4~ |
aes8) r8 c,4~-> c8 b8~->\f \tuplet 3/2 { 8 d8_(\> g8\stopTextSpan } \bar "||"
\sectionLabel \markup { \box \number 15 }
+ \omit Score.BarNumber
\tempo "Piu Mosso" 4=65
fis'2~\mf 8) r8 r8 des8(\> |
+ \undo \omit Score.BarNumber
ees,1 |
aes2.)\mp r8. f'16~(\mf |
1\> |
\sectionLabel \markup { \box \number 23 }
+ \omit Score.BarNumber
\tempo "A tempo" 4=50
r8 f,,4(\p ees8 bes'4~\< |
+ \undo \omit Score.BarNumber
8) a4( d8 g,[ c8~]\mf |
8) r8 r8 b8( e,4~ |
\time 4/4 e4) fis4.(\f cis'8~\> 8.[ ees16] |
\sectionLabel \markup { \box \number 30 }
+ \omit Score.BarNumber
\tempo \markup {
\concat {
\rhythm { \tuplet 3/2 { 8 } }
}
} 4 = 75
\time 7/4 1) r2. |
- R1*7/4 |
- R1*7/4 |
- R1*7/4 |
- \time 4/4 r2 r4 \tuplet 5/4 { r8. ees'16(\ff\> aes) } |
- f'2.~\mf 8 r8 |
+ \undo \omit Score.BarNumber
+ R1*7/4*3 |
+ <<
+ { \override Rest.staff-position = #0 \time 4/4 r2 r4 \tuplet 5/4 { r8. ees'16(\< aes) } | }
+ \tag #'part {
+ \new CueVoice \relative {
+ \stemUp \tuplet 3/2 { f'8 bes4~ } 16 a cis d e8 fis16 g b8 \stemNeutral s8 |
+ }
+ }
+ >>
+ \resetRelativeOctave c''
+ \revert Rest.staff-position
+ f'2.~\f 8 r8 |
\sectionLabel \markup { \box \number 36 }
+ \omit Score.BarNumber
bes,1-- |
+ \undo \omit Score.BarNumber
r2 r4 \tuplet 3/2 { r8 r8 fis'8~\f } |
fis2. r4 |
R1 |
\sectionLabel \markup { \box \number 48 }
+ \omit Score.BarNumber
\tempo 4=50
- des'1\> |
+ des'1)\> |
+ \undo \omit Score.BarNumber
\tempo \markup {
\concat {
\rhythm { \tuplet 3/2 { 8 } }
\rhythm { { 8 } }
}
} 4 = 75
- aes4\mf bes2.~ |
+ aes4(\mf bes2.~ |
bes2~\> 8)\p r8 r4 |
\time 3/4 r4 r4 r8 c8~\f |
\time 4/4 c2.\> g4(\mp |
\sectionLabel \markup { \box \number 55 }
+ \omit Score.BarNumber
\tempo "A tempo" 4=50
r8 f,8~(\pp^\markup { \tiny \italic "lontano; sotto voce" } 2. |
+ \undo \omit Score.BarNumber
des'2. ees4~ |
8) r8 r4 r2 |
R1 |
\sectionLabel \markup { \box \number 62 }
- R1*3/4
- \time 4/4 R1
- \time 3/4 R1*3/4
- \time 4/4 R1
- \time 3/4 R1*3/4
- \time 4/4 R1
- \time 3/4 R1*3/4
- \time 4/4 R1
- \time 3/4 R1*3/4
- \time 4/4 R1 |
+ \omit Score.BarNumber
+ <<
+ {
+ R1*3/4
+ \undo \omit Score.BarNumber
+ \time 4/4 R1
+ \time 3/4 R1*3/4
+ \time 4/4 R1
+ \time 3/4 R1*3/4
+ \time 4/4 R1
+ \time 3/4 R1*3/4
+ \time 4/4 R1
+ \time 3/4 R1*3/4
+ \time 4/4 R1 |
+ }
+ \tag #'part {
+ \new CueVoice \relative {
+ ees,8[\laissezVibrer bes']\laissezVibrer f'[\laissezVibrer c']\laissezVibrer g'[\laissezVibrer d'8]~ |
+ \time 4/4 d8\fermata f8~ 2 f8 ees |
+ \time 3/4 bes'2. |
+ \time 4/4 r8 bes8~ 4 aes4. e8 |
+ \time 3/4 b'2. |
+ \time 4/4 fis4. cis'8~ 4. a8~ |
+ \time 3/4 a2. |
+ \time 4/4 r8 g8~ 4 d'2 |
+ \time 3/4 c2. |
+ \time 4/4 <ges, f' bes>2.\arpeggio <ees aes des>4 |
+ }
+ }
+ >>
\sectionLabel \markup { \box \number 72 }
+ \omit Score.BarNumber
\tuplet 3/2 { c8_(\p\<^\markup { \tiny \italic "blooming" } b' e~ } 4)\mf \tuplet 3/2 { g,8(\> d a~ } 4~\p |
+ \undo \omit Score.BarNumber
8) fis4( g8~ 4 cis4~ |
\time 3/4 8)[ r16 des16(]\< aes'4 c,4 |
\time 7/8 f bes d4.~\mf |
ees'2~\p 8 r8 r2 |
\time 4/4 r4 r8 bes8~(\mp\> 8 f4.~ |
\time 5/8 8 c'8~\p 4) r4 r2 |
- r4 r4 e8_(\pp b'8~ b2)\fermata |
+ r4 r4 e8_(\pp b'8~ b2)\fermata \bar "|."
}
-% net clarity project
+% root = ../net-clarity.ly
\new PianoStaff \with {
instrumentName = \markup { "piano" }
shortInstrumentName = \markup { "pno " }
\consists Text_mark_engraver
+ \consists Metronome_mark_engraver
}
<<
\override PianoStaff.Arpeggio.arpeggio-direction = #UP
-% net clarity project
+% root = ../net-clarity.ly
\new Staff \with {
-
instrumentName = \markup { clarinet in \concat { \bold "B" \tiny \flat " " } }
shortInstrumentName = \markup { cl }
\override DynamicLineSpanner.staff-padding = \sods
- fontSize = #-1 % rm parts
- \override StaffSymbol.staff-space = #(magstep -1) % rm parts
+ fontSize = \clarinetFont
+ \override StaffSymbol.staff-space = \clarinetMagstep
\override Score.Footnote.annotation-line = ##f
\consists Text_mark_engraver
}
\transpose bes c'
\relative {
+ \compressEmptyMeasures
\numericTimeSignature
\clef treble
- \tempo 4=104
+ \tempo "Allegro energico" 4=104
\time 5/4 R1*5/4 | %001
\time 4/4 R1*5
\time 5/4 R1*5/4 |
\omit Score.BarNumber
\sectionLabel \markup { \box \number 55 }
+ \tempo "A tempo" 2=96
r8 ces'8~->\f ces2~ ces8 bes-. | %055
\undo \omit Score.BarNumber
a8-. b-. c2. | %056
\omit Score.BarNumber
\sectionLabel \markup { \box \number 69 }
- \tempo "a tempo"
+ \tempo "A tempo" 2=96
\time 2/2 g8(\mf\< d' ces ges' bes des4) c8( | %069
\undo \omit Score.BarNumber
\time 7/8 e4\f a,8) ees([ f]\> aes,4) | %070
\omit Score.BarNumber
\sectionLabel \markup { \box \number 103 }
+ \tempo "Lento" 2=48
\time 2/2 \acePoc r8 ges,8( ees8) r8 r4 r8 g8(\< | %103
\undo \omit Score.BarNumber
\time 5/8 e8)\startTextSpan r8 r4 c'8( | %104
\time 2/2 a4) r8 cis8( gis4) r4 | %105
r4 r8 bes8( f8-.) r8 r8 b8( | %106
d,8-.) des''8-- r8 c,( aes-.) g''-. aes(\f\stopTextSpan d,-.) \bar "||" | %107
- \tempo 2 = 96
+ \tempo "Allegro" 2 = 96
cis,( a-.) f''( ees-.) bes,( g-.) bes''( f-.) | %108
\time 3/4 b,,[( fis]-.) c''[-- d,,]( e[-.) b'']( | %109
\time 5/8 \ace a-.)\startTextSpan r8 ees,( f-.) ges'-.\<\stopTextSpan | %110
\sectionLabel \markup { \box \number 139 }
\undo \omit Score.BarNumber
\revert Score.TimeSignature.stencil
- \tempo 2=72
+ \tempo "Ravvivando il tempo" 2=72
\set Score.currentBarNumber = #139
\time 2/2 ees8--\p \ace a'(\startTextSpan c)\< g,( ges) fes''( ces' bes |
aes) ees,,-. g''( f) des,-. c''( a) d,,,-.\stopTextSpan |
- \tempo 2=96
+ \tempo "Allegro" 2=96
bes'''( g f ees) c'(\f d cis b |
a gis fis e) d8( c b a) |
ges(\< ees bes) g( e b'4)\ff \breathe f'8( |
\sectionLabel \markup { \box \number 151 }
\undo \omit Score.BarNumber
- \tempo "rubato" 4 = 104
+ \tempo "Tempo rubato" 4 = 104
r4 r8 bes8~\mp bes8 bes4->( ees8~ |
\time 5/8 ees4~ 4.~ |
\time 3/4 8.) e16(\mf\> fis' a, b8~ b4~ |
\time 2/2 \rit \after 4 \startTextSpan b2.)\p r4 |
- \time 3/4 \after 1*11/16 \stopTextSpan R1*3/4 |
+ \time 3/4 \after 1*11/16 \stopTextSpan R1*3/4 \bar "||"
+ \tempo "Meno mosso"
\time 4/4 r2 gis'2\mp\< |
\rit cis2\startTextSpan \tuplet 3/2 { d4(\f g, c,~ } |
c2 f,) |
-% net clarity project
+% root = ../net-clarity.ly
\new PianoStaff \with {
instrumentName = \markup { "piano" }
\relative {
\numericTimeSignature
- \tempo 4=104
+ \tempo "Allegro energico" 4=104
\time 5/4 R1*5/4 | %001
\time 4/4 r16 bes'8.~(^\p^\markup { \tiny \italic "cantabile" } 2~ 8 f'8~ | %002
f2~ 8 ges8~ 4 | %003
\sectionLabel \markup { \box \number 55 }
\omit Score.BarNumber
- \tempo "a tempo"
+ \tempo "A tempo" 2=96
\after 4 \< R1 | %055
\undo \omit Score.BarNumber
\after 4. \f r2 e'8-. f8-. r4 | %056
\sectionLabel \markup { \box \number 69 }
\omit Score.BarNumber
- \tempo "a tempo"
+ \tempo "A tempo" 2=96
r4\< <e gis dis'>2~\arpeggio 8 f'8 | %069
\undo \omit Score.BarNumber
\time 7/8 g8~\mf\> <g b, d,>4 <ges, bes>( <des c'>) | %070
\oneVoice
\sectionLabel \markup { \box \number 103 }
- \tempo 2 = 48
+ \tempo "Lento" 2 = 48
\time 2/2 \acePoc r2 f,8( b-.) r4 | %103
\time 5/8 r4\startTextSpan c,8([\< fis-.]) r8 | %104
\time 2/2 r8 bes,8( f'4) r8 ees8( a8-.) r8 | %105
r8 d,8( aes'-.) r8 r8 cis,8( g'-.) r8 | %106
<fis, a,>8-.\mf r8 r4 \clef bass <f, bes,>8-. r8 \after 8 \stopTextSpan r4 \bar "||" | %107
- \tempo 2 = 96
+ \tempo "Allegro" 2 = 96
<e fis>8-. r8 r4 d8-. r8 r8 <ees aes>8-.\< | %108
\time 3/4 r2 <g aes,>8-.\f r8 | %109
\time 5/8 \tuplet 3/2 { \ace r8\startTextSpan c,8-. des8-. } \after 4 \stopTextSpan r4. \clef treble | %110
a1\mf |
r2 \tuplet 3/2 { r8\mp\< r8 cis,,8~ } 4~ |
cis4 fis,4\f\> b2 |
+ \tempo "Tempo rubato" 4 = 104
<<
{
\voiceOne
{
\voiceOne
\tuplet 3/2 { r8 aes'8_( <ges bes>) } \after 8. \stopTextSpan r4 \bar "||" |
- \tempo "meno mosso"
+ \tempo "Meno mosso"
\time 4/4 s2\mf \tuplet 3/2 { bes,4 \stemDown <g' e'>4 f'4 } |
}
\new Voice \relative {
\relative {
\numericTimeSignature
- \tempo 4=104
+ \tempo "Allegro energico" 4=104
\override Rest.staff-position = #0
\time 5/4 \override Staff.Beam.positions = #'(-3.85 . -3.85) r16[ f'16-.^\pp aes,16-. r16] r8[ ges16-. r16] ees'16[-. r16 r16 des16]-. r4 r4 | %001
\revert Staff.Beam.positions
--- /dev/null
+\version "2.24.3"
+
+\include "general/info.ly"
+\include "general/aliases.ly"
+\include "general/scripts.ly"
+\include "general/umbel.ly"
+
+clarinetFont = #-2
+clarinetMagstep = #(magstep -2)
+
+\paper {
+ line-width = 120
+ first-page-number = -1
+ footnote-separator-markup = \markup { \left-column { \vspace #0.5 \draw-line #'(6 . 0) } }
+ print-page-number = ##f
+ #(set-paper-size "arch a")
+ print-all-headers = ##t
+ top-margin = 0.5\in
+ bottom-margin = 0.5\in
+ left-margin = 0.9\in
+ right-margin = 0.9\in
+ indent = 0.75\in
+ short-indent = 0\cm
+ #(define fonts (set-global-fonts #:music "scorlatti" #:brace "scorlatti" #:roman "Junicode" #:sans "syne"))
+ max-systems-per-page = #10
+ system-system-spacing = #'((basic-distance . 10) (minimum-distance . 8) (padding . 12))
+ score-system-spacing = #'((basic-distance . 2) (minimum-distance . 1) (padding . 0))
+ last-bottom-spacing = #'((basic-distance . 5) (minimum-distance . 5) (padding . 0))
+ tocTitleMarkup = \markup { \hbracket \sans \bold " contents " }
+
+ tocItemMarkup = \markup \fill-line {
+ \fill-with-pattern #1.5 #CENTER .
+ \line {
+ \fromproperty #'toc:indent \fromproperty #'toc:text
+ }
+ \tiny \number \fromproperty #'toc:page
+ }
+
+ oddHeaderMarkup = \markup {
+ \concat { \if \on-page #5 \oddhead }
+ \concat { \if \on-page #7 \oddhead }
+ \concat { \if \on-page #9 \oddhead }
+ \concat { \if \on-page #11 \oddhead }
+ \concat { \if \on-page #13 \oddhead }
+ \concat { \if \on-page #15 \oddhead }
+ \concat { \if \on-page #17 \oddhead }
+ \concat { \if \on-page #19 \oddhead }
+ \concat { \if \on-page #21 \oddhead }
+
+ }
+ evenHeaderMarkup = \markup {
+ \concat { \if \on-page #4 \evhead }
+ \concat { \if \on-page #6 \evhead }
+ \concat { \if \on-page #8 \evhead }
+ \concat { \if \on-page #10 \evhead }
+ \concat { \if \on-page #12 \evhead }
+ \concat { \if \on-page #14 \evhead }
+ \concat { \if \on-page #16 \evhead }
+ \concat { \if \on-page #18 \evhead }
+ \concat { \if \on-page #20 \evhead }
+ \concat { \if \on-page #22 \evhead }
+
+ }
+ oddFooterMarkup = \markup {
+ \concat { \if \on-page #3 \fill-line { \null \xcr \null } }
+ \concat { \if \on-page #5 \oddfoot }
+ \concat { \if \on-page #7 \oddfoot }
+ \concat { \if \on-page #9 \oddfoot }
+ \concat { \if \on-page #11 \oddfoot }
+ \concat { \if \on-page #13 \oddfoot }
+ \concat { \if \on-page #15 \oddfoot }
+ \concat { \if \on-page #17 \oddfoot }
+ \concat { \if \on-page #19 \oddfoot }
+ \concat { \if \on-page #21 \oddfoot }
+ \concat { \if \on-page #23 \oddfoot }
+ %\concat { \if \on-page #25 \fill-line { \null \tiny \typewriter \longHash \null } }
+ }
+ evenFooterMarkup = \markup {
+ \concat { \if \on-page #2 \evfoot }
+ \concat { \if \on-page #4 \evfoot }
+ \concat { \if \on-page #6 \evfoot }
+ \concat { \if \on-page #8 \evfoot }
+ \concat { \if \on-page #10 \evfoot }
+ \concat { \if \on-page #12 \evfoot }
+ \concat { \if \on-page #14 \evfoot }
+ \concat { \if \on-page #16 \evfoot }
+ \concat { \if \on-page #18 \evfoot }
+ \concat { \if \on-page #20 \evfoot }
+ \concat { \if \on-page #22 \evfoot }
+ }
+
+}
+
+\book {
+
+ \markuplist { %Outside Cover
+ \fill-line {
+ \line { \null }
+ \center-column {
+ \line { \with-url #"https://newer.systems" \fontsize #1 \hbracket \sans \bold " https://newer.systems " }
+ }
+ \line { \null }
+ \line { \null }
+ \line { \null }
+ \line { \null }
+ }
+ \fill-line {
+ \line { \null }
+ \center-column {
+ \line { \null }
+ }
+ \right-column {
+ \vspace #15
+ \line { \fontsize #8 \bold \underline \xtitle }
+ \vspace #-0.1
+ \line { \fontsize #3 \sans \xcomp }
+ \vspace #3
+ \line { \fontsize #2 \sans \concat { "for " \xinst } }
+ }
+ }
+ \vspace #26.25
+ \fill-line {
+ \line { \null }
+ \line { \null }
+ \line { \null }
+ \line { \null }
+ \center-column {
+ \xumbel
+ \vspace #0.3
+ \line { \fontsize #1 \hbracket \sans \bold " umbel press " }
+ }
+ \line { \null }
+ }
+ }
+
+ \pageBreak
+ \markup { \vspace #5 }
+
+ \pageBreak
+ \markuplist { %Inside Cover
+ \fill-line {
+ \line { \null }
+ \center-column {
+ \vspace #10
+ \line { \hbracket \fontsize #10 \number 2024 }
+ \vspace #4
+ \line { \xcomp }
+ \vspace #1
+ \line { \fontsize #5 \bold \xtitle }
+ \line { \italic \xsub }
+ \vspace #4
+ }
+ \right-column {
+ \line { \null }
+ }
+ }
+ }
+
+ \pageBreak
+ \markuplist { %Front Matter
+ \fill-line {
+ \left-column {
+ \line { \bold \xtitle " [2024]" }
+ \line { \xinst " | " 20 minutes }
+ \line { \xcomp }
+ \vspace #25
+ }
+ \center-column {
+ \vspace #5
+ \override #'(x-padding . -10)
+ \center-column { \table-of-contents }
+ \vspace #3
+ \override #'(thickness . 5)
+ \draw-squiggle-line #0.5 #'(20 . 0) ##t
+ \vspace #3
+ \line { \hbracket \bold \sans " program notes "}
+ \vspace #0.2
+ \center-column {
+ \override #'(line-width . 100)
+ \justify {
+ I was struck by the idea of writing \bold "Net Clarity" while listening
+ to my partner, Amber Lucas, practice one of the Reger clarinet sonatas.
+ The work extends a technical approach I employed to compose short
+ keyboard inventions in my recent piece Circumnutation and explores
+ further the structural potentialities of the diatonic set (equivalent to
+ the major scale) and its relationship to the aggregate (the collection of
+ all 12 notes). These (my) technical proclivities notwithstanding, \bold
+ "Net Clarity" also indulges in the diatonic set as a referential
+ collection \char #8211 hinting at other music, without necessarily
+ quoting. Because of its design, the work creates the sensation of a hazy
+ memory \char #8211 remembering music with varying levels of clarity.
+ }
+ }
+ \vspace #3
+ \override #'(thickness . 5)
+ \draw-squiggle-line #0.5 #'(20 . 0) ##t
+ }
+
+ \right-column {
+ \vspace #-0.5
+ \right-column \fontsize #-1 {
+ \line { \fontsize #-2 \typewriter { \shortHash - \subject } }
+ \line { \fontsize #-2 \typewriter { \commitDate } }
+ }
+ \vspace #2
+ }
+ }
+ }
+
+ \pageBreak
+ \header {
+ tagline = "test"
+
+ }
+
+% \bookpart {
+% \header {
+% title = \markup { \fontsize #1 \xtitle }
+% subtitle = \markup { \medium \italic \xsub }
+% composer = \xcomp
+% poet = \markup { \xinst }
+% piece = \markup { \large \bold "I. " }
+% }
+% \tocItem \markup { "I. " }
+% \score {
+% <<
+% \include "manuscripts/I-clarinet.ly"
+% \include "manuscripts/I-piano.ly"
+% >>
+% %\midi { }
+% \layout {
+% \context {
+% \Score
+% \override RehearsalMark.break-visibility = #begin-of-line-invisible
+% \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/8)
+% \override Hairpin.to-barline = ##f
+% }
+% }
+% }
+% }
+
+% \bookpart {
+% \header {
+% title = ##f subtitle = ##f composer = ##f poet = ##f
+% piece = \markup { \large \bold "II. " }
+% }
+% \tocItem \markup { "II. " }
+% \score {
+% <<
+% \include "manuscripts/II-clarinet.ly"
+% \include "manuscripts/II-piano.ly"
+% >>
+% %\midi { }
+% \layout {
+% \context {
+% \Score
+% \override RehearsalMark.break-visibility = #begin-of-line-invisible
+% \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
+% \override Hairpin.to-barline = ##f
+% }
+% }
+% }
+% }
+
+ \bookpart {
+ \tocItem \markup { "III." \bold "Lento, poco rubato" \parenthesize \italic "to Amber Lucas" }
+ \score {
+ \header {
+ title = \markup { \fontsize #1 \xtitle }
+ subtitle = \markup { \medium \italic \xsub }
+ composer = \xcomp
+ poet = \markup { \xinst }
+ piece = \markup { \large \bold "III. " \parenthesize \italic "to Amber Lucas" }
+ }
+ <<
+ \removeWithTag #'part \include "manuscripts/III-clarinet.ly"
+ \removeWithTag #'part \include "manuscripts/III-piano.ly"
+ >>
+ %\midi { }
+ \layout {
+ \context {
+ \Score
+ \remove Mark_engraver
+ \remove Text_mark_engraver
+ \override RehearsalMark.break-visibility = #begin-of-line-invisible
+ \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
+ \override Hairpin.to-barline = ##f
+ }
+ \context {
+ \Staff
+ \RemoveEmptyStaves
+ }
+ }
+ }
+ }
+
+ \bookpart {
+ \tocItem \markup { "IV. " \bold "Allegro energico" }
+ \score {
+ \header {
+ title = ##f
+ subtitle = ##f
+ composer = ##f
+ poet = ##f
+ piece = \markup { \large \bold "IV." }
+ }
+ <<
+ \include "manuscripts/IV-clarinet.ly"
+ \include "manuscripts/IV-piano.ly"
+ >>
+ %\midi { }
+ \layout {
+ \context {
+ \Score
+ \remove Text_mark_engraver
+ \remove Mark_engraver
+ \override TextSpanner.bound-details.left-broken.text = " "
+ \override RehearsalMark.break-visibility = #begin-of-line-invisible
+ \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/10)
+ \override Hairpin.to-barline = ##f
+ \override Stem.stemlet-length = #0.75
+ }
+ \context {
+ \Staff
+ \RemoveEmptyStaves
+ \consists Mark_engraver
+ }
+ }
+ }
+ }
+
+ \pageBreak
+ \markup { \null }
+}
--- /dev/null
+\version "2.24.3"
+
+\include "general/info.ly"
+\include "general/aliases.ly"
+\include "general/scripts.ly"
+\include "general/umbel.ly"
+
+clarinetFont = #0
+clarinetMagstep = #(magstep 0)
+
+\paper {
+ line-width = 120
+ footnote-separator-markup = \markup { \left-column { \vspace #0.5 \draw-line #'(6 . 0) } }
+ print-all-headers = ##t
+ #(set-paper-size "arch a")
+ top-margin = 0.5\in
+ bottom-margin = 0.5\in
+ left-margin = 0.9\in
+ right-margin = 0.9\in
+ indent = 0.75\in
+ short-indent = 0\cm
+ #(define fonts (set-global-fonts #:music "scorlatti" #:brace "scorlatti" #:roman "Junicode" #:sans "syne"))
+ max-systems-per-page = #7
+ tocTitleMarkup = \markup { \hbracket \sans \bold " contents " }
+ tocItemMarkup = \markup \fill-line {
+ \fill-with-pattern #1.5 #CENTER .
+ \line {
+ \fromproperty #'toc:indent \fromproperty #'toc:text
+ }
+ \tiny \number \fromproperty #'toc:page
+ }
+
+ oddHeaderMarkup = \markup {
+ \concat { \if \on-page #3 \oddhead }
+ \concat { \if \on-page #5 \oddhead }
+ \concat { \if \on-page #7 \oddhead }
+ \concat { \if \on-page #9 \oddhead }
+ \concat { \if \on-page #11 \oddhead }
+ \concat { \if \on-page #15 \oddhead }
+ \concat { \if \on-page #17 \oddhead }
+ \concat { \if \on-page #19 \oddhead }
+ \concat { \if \on-page #21 \oddhead }
+
+ }
+ evenHeaderMarkup = \markup {
+ \concat { \if \on-page #2 \evhead }
+ \concat { \if \on-page #4 \evhead }
+ \concat { \if \on-page #6 \evhead }
+ \concat { \if \on-page #8 \evhead }
+ \concat { \if \on-page #10 \evhead }
+ \concat { \if \on-page #14 \evhead }
+ \concat { \if \on-page #16 \evhead }
+ \concat { \if \on-page #18 \evhead }
+ \concat { \if \on-page #20 \evhead }
+ \concat { \if \on-page #22 \evhead }
+
+ }
+ oddFooterMarkup = \markup {
+ \concat { \if \on-page #1 \fill-line { \null \xcr \null } }
+ \concat { \if \on-page #3 \oddfoot }
+ \concat { \if \on-page #5 \oddfoot }
+ \concat { \if \on-page #7 \oddfoot }
+ \concat { \if \on-page #9 \oddfoot }
+ \concat { \if \on-page #13 \oddfoot }
+ \concat { \if \on-page #15 \oddfoot }
+ \concat { \if \on-page #17 \oddfoot }
+ \concat { \if \on-page #19 \oddfoot }
+ \concat { \if \on-page #21 \oddfoot }
+ \concat { \if \on-page #23 \oddfoot }
+ }
+ evenFooterMarkup = \markup {
+ \concat { \if \on-page #2 \evfoot }
+ \concat { \if \on-page #4 \evfoot }
+ \concat { \if \on-page #6 \evfoot }
+ \concat { \if \on-page #8 \evfoot }
+ \concat { \if \on-page #10 \evfoot }
+ \concat { \if \on-page #12 \evfoot }
+ \concat { \if \on-page #14 \evfoot }
+ \concat { \if \on-page #16 \evfoot }
+ \concat { \if \on-page #18 \evfoot }
+ \concat { \if \on-page #20 \evfoot }
+ \concat { \if \on-page #22 \evfoot }
+ }
+
+}
+
+\book {
+
+% \bookpart {
+% \header {
+% title = \markup { \fontsize #1 \xtitle }
+% subtitle = \markup { \medium \italic \xsub }
+% composer = \xcomp
+% poet = \markup { \xinst }
+% piece = \markup { \large \bold "I. " }
+% }
+% \tocItem \markup { "I. " }
+% \score {
+% <<
+% \include "manuscripts/I-clarinet.ly"
+% >>
+% %\midi { }
+% \layout {
+% \context {
+% \Score
+% \override RehearsalMark.break-visibility = #begin-of-line-invisible
+% \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/8)
+% \override Hairpin.to-barline = ##f
+% }
+% }
+% }
+% }
+
+% \bookpart {
+% \header {
+% title = ##f subtitle = ##f composer = ##f poet = ##f
+% piece = \markup { \large \bold "II. " }
+% }
+% \tocItem \markup { "II. " }
+% \score {
+% <<
+% \include "manuscripts/II-clarinet.ly"
+% >>
+% %\midi { }
+% \layout {
+% \context {
+% \Score
+% \override RehearsalMark.break-visibility = #begin-of-line-invisible
+% \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
+% \override Hairpin.to-barline = ##f
+% }
+% }
+% }
+% }
+
+ \bookpart {
+ \tocItem \markup { "III." \bold "Lento, poco rubato" \parenthesize \italic "to Amber Lucas" }
+ \score {
+ \header {
+ title = \markup { \fontsize #1 \xtitle }
+ arranger = \markup \typewriter \medium \fontsize #-4 { \shortHash }
+ subtitle = \markup { \medium \italic \xsub }
+ composer = \xcomp
+ poet = \markup { clarinet in \concat { \bold "B" \tiny \flat } }
+ piece = \markup { \large \bold "III. " \parenthesize \italic "to Amber Lucas" }
+ }
+ <<
+ \include "manuscripts/III-clarinet.ly"
+ >>
+ %\midi { }
+ \layout {
+ \context {
+ \Score
+ \remove Mark_engraver
+ \remove Text_mark_engraver
+ \override RehearsalMark.break-visibility = #begin-of-line-invisible
+ \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/20)
+ \override Hairpin.to-barline = ##f
+ }
+ \context {
+ \Staff
+ \remove Instrument_name_engraver
+ }
+ }
+ }
+ }
+
+ \bookpart {
+ \tocItem \markup { "IV. " }
+ \score {
+ \header {
+ title = ##f
+ subtitle = ##f
+ composer = ##f
+ poet = ##f
+ piece = \markup { \large \bold "IV." }
+ }
+ <<
+ \include "manuscripts/IV-clarinet.ly"
+ >>
+ %\midi { }
+ \layout {
+ \context {
+ \Score
+ \remove Text_mark_engraver
+ \remove Mark_engraver
+ \override TextSpanner.bound-details.left-broken.text = " "
+ \override RehearsalMark.break-visibility = #begin-of-line-invisible
+ \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
+ \override Hairpin.to-barline = ##f
+ \override Stem.stemlet-length = #0.75
+ }
+ \context {
+ \Staff
+ \remove Instrument_name_engraver
+ \consists Mark_engraver
+ }
+ }
+ }
+ }
+}
+++ /dev/null
-\version "2.24.3"
+++ /dev/null
-% net clarity project
-
-xbio = \markup {
- \center-column {
- \override #'(line-width . 75) \justify \tiny {
- \bold "Tucker Johnson" is a composer, performer, and educator pursuing
- the Ph.D. in Music Composition at the Eastman School of Music in
- Rochester, NY. His musical practice includes works for soloists,
- ensembles, and electronic media, including pieces designed for indoor and
- outdoor installation. He seeks to create highly organized systems to
- build connections between philosophy, design, and personal experience.
- Many of his works commune with music from other times and places,
- establishing links and references to histories of musical culture.
- Experiences reading, hiking, and amateur botanizing can be found
- intertwined in his work, alongside a passion for open-source software and
- teaching.
- }
- \vspace #0.8
- }
-}
+++ /dev/null
-% net clarity project
-
-xpnote = \markup {
- \center-column {
- \override #'(line-width . 100) \justify {
- I was struck by the idea of writing \bold "Net Clarity" while listening
- to my partner, Amber Lucas, practice one of the Reger clarinet sonatas.
- The work extends a technical approach I employed to compose short
- keyboard inventions in my recent piece Circumnutation and explores
- further the structural potentialities of the diatonic set (equivalent to
- the major scale) and its relationship to the aggregate (the collection of
- all 12 notes). These (my) technical proclivities notwithstanding, \bold
- "Net Clarity" also indulges in the diatonic set as a referential
- collection \char #8211 hinting at other music, without necessarily
- quoting. Because of its design, the work creates the sensation of a hazy
- memory \char #8211 remembering music with varying levels of clarity.
- }
- }
-}
+++ /dev/null
-% net clarity 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
- }
- }
+++ /dev/null
-% net clarity project
-
-%texts
-xtitle = \markup { Net Clarity }
-xsub = \markup { " " }
-xcomp = \markup { Tucker Johnson }
-xinst = \markup { clarinet and piano }
-xdur = \markup { \null }
-xcr = \markup \tiny { Copyright Tucker Johnson MMXXIV. All Rights Reserved }
-oddhead = \markup { \fill-line { \null \center-column { \bold { \xcomp } " " } \null } }
-evhead = \markup { \fill-line { \null \center-column { \bold { \xtitle } " " } \null } }
-oddfoot = \markup { \fill-line { \null \center-column { " " \concat { " - " \fromproperty #'page:page-number-string " - " } } \null } }
-evfoot = \markup { \fill-line { \null \center-column { " " \concat { " - " \fromproperty #'page:page-number-string " - " } } \null } }
-finfoot = \markup { \fill-line { \null \center-column { " " \concat { " - " \fromproperty #'page:page-number-string " - " } \small \typewriter { "February 1st, 2022 - Rochester, New York" } } \null } }