}
\bookpart {
- \tocItem \markup { "I. " \bold "Canto" }
+ \tocItem \markup { "I. " }
\score {
\header {
title = \markup { \fontsize #1 \xtitle }
\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 BarNumber.font-size = #1
\override Hairpin.to-barline = ##f
- \override Staff.pedalSustainStyle = #'mixed
}
\context {
\Staff
\RemoveEmptyStaves
+ \consists Mark_engraver
}
}
}
-% clarity project
-%------paper-block------
+% net clarity project
+
\paper {
line-width = 120
first-page-number = -1
print-page-number = ##f
- oddHeaderMarkup = \markup { \tiny { " " } }
- evenHeaderMarkup = \markup { \tiny { " " } }
- oddFooterMarkup = \markup {
- \concat { \if \on-page #3 \fill-line { \null \xcr \null } }
- }
+ oddHeaderMarkup = \markup { \tiny { " " } }
+ evenHeaderMarkup = \markup { \tiny { " " } }
+ 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 \oddfoot }
+ }
evenFooterMarkup = \markup {
- \concat { \if \on-page #2 \evfoot }
- }
-#(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 "Junicode"
- #:sans "syne"
- ))
- max-systems-per-page = #8
- system-system-spacing =
- #'((basic-distance . 5)
- (minimum-distance . 5)
- (padding . 8))
- score-system-spacing =
- #'((basic-distance . 4)
- (minimum-distance . 4)
- (padding . 5))
+ \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 }
+ \concat { \if \on-page #24 \evfoot }
+ \concat { \if \on-page #26 \evfoot }
+ }
+
+ #(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 "Junicode" #:sans "syne"))
+ max-systems-per-page = #8
+ system-system-spacing = #'((basic-distance . 5) (minimum-distance . 5) (padding . 8))
+ score-system-spacing = #'((basic-distance . 4) (minimum-distance . 4) (padding . 5))
+ tocTitleMarkup = \markup { \null }
+ tocItemMarkup = \markup {
+ \center-column {
+ \fill-line {
+ \left-column { \concat { " " " " \bold \fromproperty #'toc:text } }
+ \right-column { \concat { \fromproperty #'toc:page " " " " } }
+ }
+ }
+ }
}
--- /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. " }
+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" ) )
+
+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
\vspace #1
\xbio
\vspace #1.3
- \line { ================================= }
+ \override #'(thickness . 5) \draw-squiggle-line #0.5 #'(20 . 0) ##t
\vspace #1.3
\override #'(line-width . 75) \justify \typewriter \tiny { 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 https://github.com/tuckerjohnson/net-clarity.}
}
-% river project
+% net clarity project
+
front-matter = \markuplist {
- \fill-line {
- \left-column {
- \line { \bold \xtitle " [2024]" }
- \line { \xinst " | " 20 minutes }
- \line { \xcomp }
- \vspace #25
+ \fill-line {
+ \left-column {
+ \line { \bold \xtitle " [2024]" }
+ \line { \xinst " | " 20 minutes }
+ \line { \xcomp }
+ \vspace #25
+ }
- }
- \center-column {
- \vspace #5
+ \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.2
+ \vspace #0.5
\xpnote
- \vspace #1
- \line { ================================= }
-
- }
-
- \column { \null }
+ \vspace #2.25
+ \override #'(thickness . 5) \draw-squiggle-line #0.5 #'(20 . 0) ##t
}
+
+ \column { \null }
}
+}
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 = #-2
+ \override StaffSymbol.staff-space = #(magstep -2)
\consists Text_mark_engraver
}
\transpose bes c' \relative {
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 = #-2
+ \override StaffSymbol.staff-space = #(magstep -2)
\consists Text_mark_engraver
}
\transpose bes c' \relative {
-% net-clarity project
+% 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)
+ fontSize = #-2
+ \override StaffSymbol.staff-space = #(magstep -2)
\consists Text_mark_engraver
-
}
%\transpose bes c'
\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 |
+ \time 5/8 R1*5/8 \molrit \after 4 \startTextSpan R1*5/8 |
+ \time 2/8 \after 8. \stopTextSpan R1*2/8 |
\once \override Hairpin.circled-tip = ##t
\time 3/4 c'2.~\fermata\< \bar "||" %031
+
+ \omit Score.BarNumber
+ \sectionLabel \markup { \box \number 32 }
\tempo 2=96
\time 2/2 c2..\p c8~->\mf\> | %032
+ \undo \omit Score.BarNumber
c2.~ c8\pp r8 | %033
r4 f2.~(\< | %034
f1 | %035
\time 5/4 bes1\mp\> aes'8(\pp fes8 | %050
\time 2/2 ees2.) r4 | %051
f8[-.->\f r8 f8-.-> cis8]]-.-> r4 cis4~\> | %052
- \time 3/2 \after 2 \mp cis2. r4 r2^\markup { "molto rit." } | %053
- \time 2/2 r2 r2\fermata | %054
+ \time 3/2 \after 2 \mp cis2. r4 \molrit r2\startTextSpan | %053
+ \time 2/2 \after 4. \stopTextSpan r2 r2\fermata | %054
+
+ \omit Score.BarNumber
+ \sectionLabel \markup { \box \number 55 }
r8 b'8~->\f b2~ b8 bes-. | %055
+ \undo \omit Score.BarNumber
a8-. b-. c2. | %056
\time 5/4 ges8-. aes-. f1~\> | %057
\time 2/2 f4 g8-. e8~\mp e4 ees->\f | %058
a4) d4.->\f f,8~-> f4 | %064
\tuplet 3/2 { fis4( b, a'\> } \tuplet 3/2 { bes, aes' c, } | %065
\time 7/8 g'2~\mp 8) r8 cis,8( | %066
- \time 3/4 \after 4 ^\markup { "poco rit." } e,2.\> | %067
- ees2~ 4\p) \bar "||" %068
- \tempo "A tempo"
+ \pocrit
+ \time 3/4 \after 4 \startTextSpan e,2.\> | %067
+ \after 2 \p \after 2 \stopTextSpan ees2.) \bar "||" %068
+
+ \omit Score.BarNumber
+ \sectionLabel \markup { \box \number 69 }
+ \tempo "a tempo"
\time 2/2 g8(\mf\< d' b fis' bes des4) c8( | %069
+ \undo \omit Score.BarNumber
\time 7/8 e4\f a,8) ees([ f]\> aes,4) | %070
des,8([\mp\< c e a,] d[ b f'] | %071
\time 2/2 ees aes g fis\mf bes,) c(\mp\< des ees! | %072
\time 2/2 dis2)\ff r8 e8( fis b,8) | %076
g( f\> ees bes'~ bes) a8(\f aes4\> | %077
des4) r8 d8( \after 8 \mf c4.) e8( | %078
- \time 3/4 d b a-.) c,,(\< ees,-.->)\ff des'''(^\mp | %079
+ \time 3/4 d b a-.) c,,(\< ees,-.)\ff des'''(^\mp | %079
bes c g-.) bes,,-.->\ff aes''(^\< ges | %080
\time 2/4 f8 ees4--)^\f \breathe d8_(^\mp | %081
- \time 3/4 e a cis-.) f,,,(\< a-.->)\ff ees''(^\< | %082
+ \time 3/4 e a cis-.) f,,,(\< a-.)\ff ees''(^\< | %082
ges b c-.)\mf d,,,-.->_\ff aes'''(^\< bes | %083
- f' g4.~\ff 4) \breathe | %084
- \time 2/2 e,,,4.--\mp aes''8(\f\> d, ees a,4)\!| %085
- cis,4.--\mp bes'8_(\f\< f' c' b-.)\! g,,(\mp\> | %086
- fis4) gis2 b4\p \breathe | %087
- \time 3/8 cis''8\mf e, fis,( \bar "||" %089
- \time 12/8 gis1.) | %090
- \time 6/8 r4. r8 r8 b16( e, |
- \time 12/8 g2.~ 4.) r8 d4( |
- \time 2/4 fis4 cis) \bar "||"
- \time 6/8 R1*6/8 |
- \time 12/8 r4 c8~ c4.~ c4 c4( ees~ |
- \time 3/4 ees8) f8( bes,4~ 4\fermata) |
+ f' g4.~\f 4) \breathe | %084
+ \time 2/2 e,,,4.--\mp aes''8(\f\> d, ees a,8)\! r8 | %085
+ cis,4.--\mp bes'8_(\f\< f' c'\! b-.) g,,-- | %086
+ \molrit fis4\>\startTextSpan gis2 b4\p \breathe | %087
+ \time 3/8 cis''8(\mf e,) fis,(\stopTextSpan \bar "||" %088
+
+ \omit Score.BarNumber
+ \sectionLabel \markup { \box \number 89 }
+ \time 12/8 \after 1 \! gis1.)\> | %089
+ \undo \omit Score.BarNumber
+ \time 6/8 r4. r8 r8 b16(\< e, | %090
+ \time 12/8 g2.~\mf 4.) r8 d4~( | %091
+ \time 2/4 d8\> fis8 cis4)\p | %092
+ \time 6/8 R1*6/8 | %093
+ \time 12/8 r4 c8~\< c4.~ c4 c4( ees~ | %094
+ \time 6/8 ees8) f8( bes,8~\mf 4 a8~ | %095
+ \time 7/8 \after 4. \! a4.)\> r8 fis'4(\p ees8\< | %096
+ \time 12/8 \after 2 \> g2.~\mp g8 e4~\pp e4.~ | %097
+ \time 7/8 e4.) r4 r8 bes'16(\< f' | %098
+ \time 12/8 \after 4. \> d2.~\mf 8)\! r8 r8 r8 b4(\mp\< | %099
+ \time 3/16 aes8. | %100
+ \time 6/8 \after 4 \> \after 2 \! c2.)\f | %101
+ \time 15/8 r4.\startTextSpan a4.~\> a8 cis4~ cis4.~ \after 4 \stopTextSpan cis4.\pp \mark \markup { \smaller \musicglyph "scripts.ufermata" } \bar "||" %102
+
+ \omit Score.BarNumber
+ \sectionLabel \markup { \box \number 103 }
+ \time 2/2 \acepoc r8\startTextSpan ges,8( ees8) r8 r4 r8 g8(\< | %103
+ \undo \omit Score.BarNumber
+ \time 5/8 e8) r8 r4 c'8( | %104
+ \time 2/2 a4) r8 cis8( gis4) r4 | %105
+ r4 r8 bes8( f8-.) r8 r8 b8(\stopTextSpan \bar "||" %106
+ \tempo 2 = 96
+ \time 7/8 d,8-.) des''8[-- c,]( aes-.)[ g''-. aes(\f d,-.]) | %107
+ \time 2/2 cis,( a-.) f''( ees-.) bes,( g-.) bes''( f-.) | %108
+ \time 5/4 b,,( fis-.) c''-- d,,( e-.) b''( a-.) ees,( f-.) ges'-. | %109
}
-% clarity project
+% net clarity project
\new PianoStaff \with {
instrumentName = \markup { "piano " }
{
\set PianoStaff.connectArpeggios = ##t
+ \omit Staff.SectionLabel
\relative {
\numericTimeSignature
ees8) r8 a16(^\f gis8.~ gis4) g8 e8 | %018
c4-- r16 bes8.~^\mp bes16 bes16-. r8 r4 | %019
r4 r16 ges'8.~^\mf ges4~ ges8 ges8--^\f | %020
+
\sectionLabel \markup { \box \number 21 }
\omit Score.BarNumber
\override DynamicLineSpanner.staff-padding = \phds
bes16\f ees8.~ ees8 d8~ d4~ | %026
d8) r8 aes4 f'8-. c16-.\> g16-. | %027
\time 5/8 \after 4.. \mp R1*5/8 | %028
- f'16(\< bes,8.) g16[( d'16 fis16^\markup { "molto rit." } e16 cis'16
- a16]) | %029
- \time 2/8 \tuplet 3/2 { <ees ees'>8->\f\> <aes, aes'>8-> <b b'>8-> } | %030
+ f'16(\< bes,8.) \molrit g16[(\startTextSpan d'16 fis16 e16 cis'16 a16]) | %029
+ \time 2/8 \tuplet 3/2 { <ees ees'>8->\f\> <aes, aes'>8-> <b b'>8->\stopTextSpan } | %030
\time 3/4 <c c'>2.\mf\fermata \clef bass | %031
+
\sectionLabel \markup { \box \number 32 }
\omit Score.BarNumber
\tempo 2=96
\time 5/4 r8 ees'8( des2.)\mp b'4~(\pp | %050
\time 2/2 \tuplet 3/2 { b2 g4~ } \after 4 \mf <g c>2~ | %051
<g c>8) r8\f\> r4 d4-- \tuplet 3/2 { d8-. bes8-. ges8-. } | %052
- \time 3/2 r8 ges8-- r4 \after 4. \mp e2~( \tuplet 3/2 { e2\>^\markup { "molto rit." } g4~ } | %053
- \time 2/2 g2~ g2\p\fermata) \bar "||" %054
- \tempo "A tempo"
+ \time 3/2 r8 ges8-- r4 \after 4. \mp e2~( \tuplet 3/2 { e2\>^\startTextSpan g4~ } | %053
+ \time 2/2 \after 4. \stopTextSpan g2~ g2\p\fermata) \bar "||" %054
+
+ \sectionLabel \markup { \box \number 55 }
+ \omit Score.BarNumber
+ \tempo "a tempo"
\after 4 \< R1 | %055
+ \undo \omit Score.BarNumber
\after 4. \f r2 e'8-. f8-. r4 | %056
\time 5/4 r4 r8 des8-.\> bes'4( c4.) d8-. | %057
\time 2/2 a2..\mp aes8~ | %058
<bes g'>4\f bes8-> c8~ <c aes'>2 | %064
\tuplet 3/2 { e,8~\mf <e d'>~ <e d' g>~ } 4 \tuplet 3/2 { ees8~\mp <ees des'>~ <ees des' f>~ } 4 | %065
\time 7/8 R1*7/8 | %066
- \time 3/4 fis'4(\> a, b,~ | %067
- b4. bes8~ bes4)\pp | %068
- a4\< <e' gis dis'>2~\arpeggio 8 f'8 | %069
+ \time 3/4 fis'4(\> \pocrit a,\startTextSpan b,~ | %067
+ b4. bes8~ bes4)\pp\stopTextSpan | %068
+
+ \sectionLabel \markup { \box \number 69 }
+ \omit Score.BarNumber
+ \tempo "a tempo"
+ 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
r4 <ges, aes>8-.\mp r8 r8 g8-. r8 | %071
\time 2/2 r4 <a cis>8-.\< <b d>-. r4 gis'8-. r8 | %072
>>
\oneVoice a8) c8( f) fis( | %085
<cis b'>4.) gis'8 \tuplet 3/2 { a4(\mf d, e) } \clef bass | %086
- \tuplet 3/2 { cis(\>^\markup { "molto rit." } dis) c_( } \tuplet 3/2 { f,) bes,( g~\pp } | %087
- \time 3/8 g4.) \clef treble \bar "||" %089
- \tempo \markup { "A tempo"
- \concat {
- \rhythm { { 4 } }
- " = "
- \rhythm { { 2 } }
- }
+ \molrit \tuplet 3/2 { cis(\>\startTextSpan dis) c_( } \tuplet 3/2 { f,) bes,( g~\pp } | %087
+ \time 3/8 \after 4 \stopTextSpan g4.) \clef treble \bar "||" %088
+
+ \sectionLabel \markup { \box \number 89 }
+ \tempo \markup { "Andante"
+ \concat { \rhythm { { 4 } } " = " \rhythm { { 2 } } }
} 4. = 64
- \time 12/8 b'8(\p dis cis) b( dis cis) b( dis cis) b( dis cis) | %090
- \time 6/8 f( d f) f( d f) | %091
- \time 12/8 c( bes c) bes( c bes) bes( c bes) bes( c bes) | %092
- \time 2/4 R1*2/4 \bar "||" %093
- \time 6/8 e8( g e) e( g e) | %094
- \time 12/8 aes( ges aes) ges( aes ges) aes( ges aes) ges( aes ges) | %095
- \time 3/4 \voiceOne a4 r4 r4\fermata | \bar "||" %096
+ \omit Score.BarNumber
+ \time 12/8 b'8(\p dis cis) b( dis cis) b( dis cis) b( dis cis) | %089
+ \undo \omit Score.BarNumber
+ \time 6/8 f( d f) d( f d) | %090
+ \time 12/8 c( bes c) bes( c bes) c( bes c) bes( c bes) | %091
+ \time 2/4 R1*2/4 | %092
+ \time 6/8 e8(\p g e) g( e g) | %093
+ \time 12/8 aes( ges aes) ges( aes ges)\< aes( ges aes) ges( aes ges)\! | %094
+ \time 6/8 \voiceOne a4. r4. | %095
+ \time 7/8 \oneVoice b8([\mp\> cis, b']) cis,([ b' cis, b']) | %096
+ <<
+ {
+ \voiceOne
+ \time 12/8 c8_(\p f, c') f,_( c' f,) c'( f, c') f,( c' f,) | %097
+ \time 7/8 ges8[_- r8 ges]_- r8 ges_- r8 ees_- | %098
+ s2. r4. fis'4.~(^\mf | %099
+ 8. | %100
+ f!2.) | %101
+ b,2.~ b2.~ 4. \mark \markup { \smaller \musicglyph "scripts.ufermata" } | %102
+ }
+ \new Voice \relative {
+ \voiceTwo
+ s2. r8 des'4\mf des4.(-> | %097
+ aes2.)\< s8 | %098
+ \time 12/8 e'^(\mp a e) a^( e a) e(\< a e) a( e a) | %099
+ \time 3/16 s8. | %100
+ \time 6/8 g8(\mf bes, g') bes,( g' bes,) | %101
+ \time 15/8 \molrit gis'(\>\startTextSpan d gis) d( gis d) gis( d gis) d( gis d) gis(\pp d gis)\stopTextSpan | %102
+ }
+ >>
+ \oneVoice
+ \sectionLabel \markup { \box \number 103 }
+ \tempo 2 = 48
+ \time 2/2 \acepoc r2\startTextSpan f'8( b-.) r4 | %103
+ \time 5/8 r4 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\stopTextSpan \bar "||" %106
+ \tempo 2 = 96
+ \time 7/8 <fis, a,>8-.\mf r8 \clef bass <f, bes,>8-. r4 r4 |
+ \time 2/2 <e fis>8-. r8 r4 d8-. r8 r8 <ees aes>8-. |
+ \time 5/4 r2 <g aes,>8-. r8 r8 c,8-. des8-. r8 |
}
\clef bass
\set Staff.pedalSustainStyle = #'mixed
- \override Score.SpacingSpanner.strict-grace-spacing = ##t
+ \omit Staff.SectionLabel
+ \omit Staff.RehearsalMark
\relative {
\numericTimeSignature
\time 7/8 R1*7/8 | %066
\time 3/4 aes4.(\sustainOn\> d4. | %067
f4\sustainOff\sustainOn a, c,)\p | %068
- \time 2/2 R1\sustainOff | %069
+ \time 2/2 a''4\sustainOff r4 r2 | %069
\time 7/8 R1*7/8 | %070
- r4 ees4-.\mp r8 bes8-. r8 | %071
+ r4 ees,4-.\mp r8 bes8-. r8 | %071
\time 2/2 r4 e8-.\< e-. r8 f-. fis-. r8 | %072
b,8-. r8 r4 r8 des'8-.\mf r4 | %073
R1 | %074
{
\voiceOne
fis4\> gis2 b4~\\ | %087
- \time 3/8 4. \bar "||" %089
+ \time 3/8 4. \bar "||" %088
}
\new Voice \relative {
\voiceTwo
r4 a,4\> a d4~\pp | %087
- \time 3/8 d4. \bar "||" %089
+ \time 3/8 d4. \bar "||" %088
}
>>
\oneVoice
- \time 12/8 fis,8.(\p\sustainOn e) fis( e) fis( e) fis( bes) | %090
+ \time 12/8 fis,8.(\p\sustainOn e) fis( e) fis( e) fis( bes) | %089
<<
{
\voiceOne
- \time 6/8 r4. r8 g'4( | %091
- \time 12/8 f2.~ f4.~ f8) f4( | %092
- \time 2/4 a2) \bar "||" %093
- \time 6/8 s4 s4 s4 | %094
- \time 12/8 s4 s4 s4 \change Staff = "u" \voiceTwo bes2.~ | %095
- \time 3/4 bes8 d( ees c~ c4) \bar "||" %096
+ \time 6/8 r4. \revert Staff.DynamicText.stencil r8 g'4(^\mf | %090
+ \time 12/8 f2.~ f4.~ f8) f4( | %091
+ \time 2/4 a2) | %092
+ \time 6/8 s4 s4 s4 | %093
+ \time 12/8 s4 s4 s4 \U \voiceTwo bes2.~ | %094
+ \time 6/8 bes8 bes8(\< d ees8 c4)\f | %095
}
\new Voice \relative {
\voiceTwo
- \time 6/8 a,8.(\sustainOff\sustainOn c,) a'( c,) | %091
- \time 12/8 aes'(\sustainOff\sustainOn ees) aes( ees) aes( ees) aes( ees) | %092
- \time 2/4 s2\sustainOff \bar "||" %093
- \time 6/8 b'8.(\sustainOn d,) b'( d,) | %094
- \time 12/8 des'(\sustainOff\sustainOn f,) des'( f,) des'( f,) des'( f,) | %095
- \time 3/4 r8.\sustainOff\sustainOn g16~ g4~ 4\fermata \bar "||" %096
+ \time 6/8 a,8.(\p\sustainOff\sustainOn c,) a'( c,) | %090
+ \time 12/8 aes'(\sustainOff\sustainOn ees) aes( ees) aes( ees) aes( ees) | %091
+ \time 2/4 s2\sustainOff | %092
+ \override Staff.DynamicText.stencil = ##f
+ \time 6/8 b'8.(\sustainOn d,) b'( d,) | %093
+ \time 12/8 des'(\sustainOff\sustainOn f,) des'( f,) des'( f,) des'( f,) | %094
+ \time 6/8 r8.\sustainOff g8.~ g4. | %095
}
>>
-
+ \D
+ \oneVoice
+ \time 7/8 e,,8.(\p\sustainOn gis,) e'( gis,~ gis8) | %096
+ \time 12/8 a'8.(\sustainOff\sustainOn bes,) a'( bes,) a'( bes,) a'( bes,) | %097
+ \time 7/8 b'(\sustainOff\sustainOn d,) b'( d,~ d8) | %098
+ \time 12/8 g8.(\mp\sustainOff\sustainOn c,) g'( c,) g'(\< c,) g'( c,) | %099
+ \time 3/16 des8.\mf\sustainOff | %100
+ \time 6/8 r8.\sustainOn ees,8. r ees | %101
+ \time 15/8 eis'(\sustainOff\sustainOn fis,)\> eis'( fis,) eis'( fis,) eis'( fis,) eis'( fis,)\pp | %102
+ <<
+ {
+ \voiceOne
+ r2\sustainOff <des'' bes'>4\< r4 |
+ \time 5/8 r4 d8([ <g b>]) r8 |
+ r8 <f a>8~ 4 r4 <e c'>4\mp |
+ }
+ \new Voice \relative {
+ \voiceTwo
+ \time 2/2 aes,,2.\< r4 |
+ \time 5/8 a4~ a4 r8 |
+ \time 2/2 d2 r4 r8 fis8-.\mp |
+ }
+ >>
+ \oneVoice
+ g,4(\mp\< <ces' ees>2) e,,4 |
+ \time 7/8 r8 ees8-.\mf r8 r4 r8 b8-. |
+ \time 2/2 r4 r8 c-. a8-. r8 r4 |
+ \time 5/4 <des des,>4( <f f,>) r2 <bes, bes,>8-. r8 |
}
-% river project
+% 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. }
+ \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
- \override #'(line-width . 75) \justify \tiny { Tucker's music has been concertized and honored at festivals and events, including the Dot-The-Line new music festival (Seoul), Longy Divergent Studio (Boston), soundSCAPE Festival (Cesena), Composing in the Wilderness (Prince William Sound & NYC), Shastra Rhythm Workshop (New Jersey), and the Penn State New Music Festival (State College). In 2021, he was awarded the Marjorie Jane Brewster Memorial Music Scholarship, given to one graduating Penn State student each year to pay for graduate studies at another institution. Additional honors include the Belle S. Gitelman Prize, Peter T. Luckie Award, and Warren Benson Scholarship. }
+ \override #'(line-width . 75) \justify \tiny {
+ Tucker's music has been concertized and honored at festivals and events,
+ including the Dot-The-Line new music festival (Seoul), Longy Divergent
+ Studio (Boston), soundSCAPE Festival (Cesena), Composing in the
+ Wilderness (Prince William Sound & NYC), Shastra Rhythm Workshop (New
+ Jersey), and the Penn State New Music Festival (State College). In 2021,
+ he was awarded the Marjorie Jane Brewster Memorial Music Scholarship,
+ given to one graduating Penn State student each year to pay for graduate
+ studies at another institution. Additional honors include the Belle S.
+ Gitelman Prize, Peter T. Luckie Award, and Warren Benson Scholarship.
+ }
\vspace #0.8
- \override #'(line-width . 75) \justify \tiny { A consistent supporter of new music, Tucker has helped organize many events, festivals, and concerts and served various music organizations throughout his academic career. Currently, he serves as technical director of OSSIA New Music, a student-run organization at the Eastman School of Music committed to performing the works of contemporary composers. He has also worked with the Hochstein School, WXXI Classical, Penn State's Living Music, and the New Music Consortium. Additionally, Tucker serves as a sound engineer, technician, and teaching assistant with the Electronic Music Studios at Eastman (EMuSE) and has produced and performed dozens of electroacoustic works in this position with artists such as Alan Pierson, percussionist Dan Druckman, and soprano Jamie Jordan. }
+ \override #'(line-width . 75) \justify \tiny {
+ A consistent supporter of new music, Tucker has helped organize many
+ events, festivals, and concerts and served various music organizations
+ throughout his academic career. Currently, he serves as technical
+ director of OSSIA New Music, a student-run organization at the Eastman
+ School of Music committed to performing the works of contemporary
+ composers. He has also worked with the Hochstein School, WXXI Classical,
+ Penn State's Living Music, and the New Music Consortium. Additionally,
+ Tucker serves as a sound engineer, technician, and teaching assistant
+ with the Electronic Music Studios at Eastman (EMuSE) and has produced and
+ performed dozens of electroacoustic works in this position with artists
+ such as Alan Pierson, percussionist Dan Druckman, and soprano Jamie
+ Jordan.
+ }
\vspace #0.8
- \override #'(line-width . 75) \justify \tiny { In his research, he has worked to develop approaches to music composition and collaborative improvisation using mathematics, networked computer instruments, machine listening, ambisonics, and other computer-assisted methods, with a tendency to favor recycled and reclaimed computer hardware. Listeners can hear this work in improvised performances with Belgian saxophonist Floris Van Der Veken, recordings with percussionist/guitarist John McGovern, and performances with Ossia New Music. }
+ \override #'(line-width . 75) \justify \tiny {
+ In his research, he has worked to develop approaches to music composition
+ and collaborative improvisation using mathematics, networked computer
+ instruments, machine listening, ambisonics, and other computer-assisted
+ methods, with a tendency to favor recycled and reclaimed computer
+ hardware. Listeners can hear this work in improvised performances with
+ Belgian saxophonist Floris Van Der Veken, recordings with
+ percussionist/guitarist John McGovern, and performances with Ossia New
+ Music.
+ }
\vspace #0.8
- \override #'(line-width . 75) \justify \tiny { He holds the MA and Catherine Filene Shouse Arts Leadership Certificate from the Eastman School of Music and the BM from Penn State University. He also studied at the University of South Florida. He has studied with Robert Morris, Matthew Barber, David Liptak, Baljinder Sekhon, Sarah Genevieve Burghart Rice, and Susanna Hancock. Tucker serves as instructor of the Penn State Young Composers Institute, a virtual program for high school students running in the fall and spring. }
+ \override #'(line-width . 75) \justify \tiny {
+ He holds the MA and Catherine Filene Shouse Arts Leadership Certificate
+ from the Eastman School of Music and the BM from Penn State University.
+ He also studied at the University of South Florida. He has studied with
+ Robert Morris, Matthew Barber, David Liptak, Baljinder Sekhon, Sarah
+ Genevieve Burghart Rice, and Susanna Hancock. Tucker serves as instructor
+ of the Penn State Young Composers Institute, a virtual program for high
+ school students running in the fall and spring.
+ }
\vspace #0.8
}
}
-% river project
+% net clarity project
xpnote = \markup {
\center-column {
\override #'(line-width . 100) \justify {
- incomplete
+ 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
-% project
-
-
-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
- }
-}
-
-
-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)
- #})
-
-
-#(define ((flared-tie coords) grob)
-
- (define (pair-to-list pair)
- (list (car pair) (cdr pair)))
-
- (define (normalize-coords goods x y dir)
- (map
- (lambda (coord)
- ;(coord-scale coord (cons x (* y dir)))
- (cons (* x (car coord)) (* y dir (cdr coord))))
- goods))
-
- (define (my-c-p-s points thick)
- (make-connected-path-stencil
- points
- thick
- 1.0
- 1.0
- #f
- #f))
-
- ;; outer let to trigger suicide
- (let ((sten (ly:tie::print grob)))
- (if (grob::is-live? grob)
- (let* ((layout (ly:grob-layout grob))
- (line-thickness (ly:output-def-lookup layout 'line-thickness))
- (thickness (ly:grob-property grob 'thickness 0.1))
- (used-thick (* line-thickness thickness))
- (dir (ly:grob-property grob 'direction))
- (xex (ly:stencil-extent sten X))
- (yex (ly:stencil-extent sten Y))
- (lenx (interval-length xex))
- (leny (interval-length yex))
- (xtrans (car xex))
- (ytrans (if (> dir 0)(car yex) (cdr yex)))
- (uplist
- (map pair-to-list
- (normalize-coords coords lenx (* leny 2) dir))))
-
- (ly:stencil-translate
- (my-c-p-s uplist used-thick)
- (cons xtrans ytrans)))
- '())))
-
-#(define flare-tie
- (flared-tie '((0 . 0)(0.1 . 0.2) (0.9 . 0.2) (1.0 . 0.0))))
-% river project
+% net clarity project
xumbel = \markup {
\center-column {
\path #0.1
-% river project
+% net clarity project
+
%texts
xtitle = \markup { Net Clarity }
xsub = \markup { " " }
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 } }
-
-%music
-tmark = \tempo "Vivace" 4 = 132
-bh = \break
-ds = #2.5
-sods = #3.4
-phds = #3.9
-dtim = \override Staff.TimeSignature.style = #'single-digit
-
-
-%notationmarks
-lsp = \once \override TextSpanner.bound-details.left.text = "sp"
-rsp = \once \override TextSpanner.bound-details.right.text = " sp"
-lst = \once \override TextSpanner.bound-details.left.text = "st"
-rst = \once \override TextSpanner.bound-details.right.text = " st"
-lord = \once \override TextSpanner.bound-details.left.text = "ord"
-rord = \once \override TextSpanner.bound-details.right.text = " ord"
-rit = \once \override TextSpanner.bound-details.left.text = "rit."
-ace = \once \override TextSpanner.bound-details.left.text = "accel."
-acepoc = \once \override TextSpanner.bound-details.left.text = "accelerando poco a poco"
-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" ) )
-
-
-U = \change Staff = "u"
-D = \change Staff = "d"
-
-
-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