]> git.newer.systems Git - blood-meridian.git/commitdiff
reformat
authorTucker Johnson <tucker@newer.systems>
Thu, 19 Mar 2026 02:40:13 +0000 (22:40 -0400)
committerTucker Johnson <tucker@newer.systems>
Thu, 19 Mar 2026 02:40:13 +0000 (22:40 -0400)
66 files changed:
bloodMeridianSketch.ly [deleted file]
evenings-in-the-west.ly [new file with mode: 0644]
general/aliases.ly [deleted file]
general/info.ly
general/partLayout.ly [new file with mode: 0644]
general/partPaper.ly [new file with mode: 0644]
general/scoreLayout.ly [new file with mode: 0644]
general/scorePaper.ly [new file with mode: 0644]
general/scripts.ly [deleted file]
general/umbel.ly [deleted file]
lib/dynamics.ly [new file with mode: 0644]
lib/formatting.ly [new file with mode: 0644]
lib/load.ly [new file with mode: 0644]
lib/matter.ly [new file with mode: 0644]
lib/notes.ly [new file with mode: 0644]
lib/spanners.ly [new file with mode: 0644]
lib/text.ly [new file with mode: 0644]
manuscripts/baritone.ly
manuscripts/bass.ly
manuscripts/bassoon1.ly [new file with mode: 0644]
manuscripts/bassoon2.ly [new file with mode: 0644]
manuscripts/bassoonI.ly [deleted file]
manuscripts/bassoonII.ly [deleted file]
manuscripts/cello.ly
manuscripts/clarinet1.ly [new file with mode: 0644]
manuscripts/clarinet2.ly [new file with mode: 0644]
manuscripts/clarinetI.ly [deleted file]
manuscripts/clarinetII.ly [deleted file]
manuscripts/flute1.ly [new file with mode: 0644]
manuscripts/flute2.ly [new file with mode: 0644]
manuscripts/fluteI.ly [deleted file]
manuscripts/fluteII.ly [deleted file]
manuscripts/horn1.ly [new file with mode: 0644]
manuscripts/horn2.ly [new file with mode: 0644]
manuscripts/horn3.ly [new file with mode: 0644]
manuscripts/horn4.ly [new file with mode: 0644]
manuscripts/hornI-III.ly [deleted file]
manuscripts/hornII-IV.ly [deleted file]
manuscripts/oboe1.ly [new file with mode: 0644]
manuscripts/oboe2.ly [new file with mode: 0644]
manuscripts/oboeI.ly [deleted file]
manuscripts/oboeII.ly [deleted file]
manuscripts/percI.ly [deleted file]
manuscripts/percII.ly [deleted file]
manuscripts/percussion1.ly [new file with mode: 0644]
manuscripts/percussion2.ly [new file with mode: 0644]
manuscripts/tempoMap.ly [new file with mode: 0644]
manuscripts/timpani.ly
manuscripts/trombone1.ly [new file with mode: 0644]
manuscripts/trombone2.ly [new file with mode: 0644]
manuscripts/tromboneI.ly [deleted file]
manuscripts/tromboneII.ly [deleted file]
manuscripts/trumpet1.ly [new file with mode: 0644]
manuscripts/trumpet2.ly [new file with mode: 0644]
manuscripts/trumpet3.ly [new file with mode: 0644]
manuscripts/trumpetI.ly [deleted file]
manuscripts/trumpetII.ly [deleted file]
manuscripts/trumpetIII.ly [deleted file]
manuscripts/tuba.ly
manuscripts/viola.ly
manuscripts/violin1.ly [new file with mode: 0644]
manuscripts/violin2.ly [new file with mode: 0644]
manuscripts/violinI.ly [deleted file]
manuscripts/violinII.ly [deleted file]
parts/parts_evenings-in-the-west.ly [new file with mode: 0644]
solo/soloClarinet_tiny-cartel.ly [new file with mode: 0644]

diff --git a/bloodMeridianSketch.ly b/bloodMeridianSketch.ly
deleted file mode 100644 (file)
index 6e3687f..0000000
+++ /dev/null
@@ -1,316 +0,0 @@
-\version "2.24.4"
-
-\include "general/info.ly"
-\include "general/aliases.ly"
-\include "general/scripts.ly"
-\include "general/umbel.ly"
-
-\paper {
-  line-width = 120
-  first-page-number = -1
-  #(include-special-characters)
-  footnote-separator-markup = \markup { \left-column { \vspace #0.5 \draw-line #'(6 . 0) } }
-  print-page-number = ##f
-  #(set-paper-size "tabloid")
-  print-all-headers = ##f
-  %ragged-last = ##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 "classico"))
-  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))
-  oddHeaderMarkup = \markup {
-    \concat { \if \on-page #5 \oddhead }
-    \concat { \if \on-page #7 \evhead }
-  }
-  evenHeaderMarkup = \markup {
-    \concat { \if \on-page #4 \evhead }
-    \concat { \if \on-page #6 \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 }
-  }
-  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 \fill-line { \null \concat { \char ##x2767 " " \tiny \typewriter \longHash " " \char ##x2619 } \null } }
-  }
-
-}
-
-\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 #28
-            \line { \fontsize #12 \bold \underline \xtitle }
-      \vspace #0.1
-            \line { \fontsize #5.5 \sans \xcomp }
-      \vspace #3
-      \line { \fontsize #4 \sans \concat { "for " \xinst } }
-      }
-    }
-    \vspace #36
-    \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 #20
-            \line { \hbracket \fontsize #15 \number 2025 }
-            \vspace #6
-            \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 " [2025]" }
-        \line { \xinst " | " \sans 5 minutes }
-        \line { \xcomp }
-        \vspace #25
-      }
-      \center-column {
-        \vspace #5
-        \left-column {  }
-        \vspace #0.5
-        \left-column {
-          \override #'(line-width . 100)
-          \line { \hspace #100 }
-          \vspace #-1
-          \wordwrap { \char ##x10AF1 \hspace #0.5 \large \bold \sans "program notes" }
-        }
-        \vspace #0.5
-        \left-column {
-          \override #'(line-width . 90)
-          \justify {
-           Blood Meridian Sketch
-          }
-        }
-        \vspace #2.5
-        \left-column {
-          \override #'(line-width . 100)
-          \line { \hspace #100 }
-          \vspace #-1
-          \wordwrap { \char ##x10AF1 \hspace #0.5 \large \bold \sans "performance notes" }
-          \vspace #0.5
-          \wordwrap { &sect; \hspace #3.5 \sans \bold \italic "interpreting notations" }
-        }
-        \left-column {
-          \override #'(line-width . 90)
-          \line { \hspace #90 }
-          \justify { \sans \italic 1. \hspace #1 Accidentals carry through each bar &ndash; cautionary accidentals are not supplied. }
-          \justify { \sans \italic 2. \hspace #1 Two fermata notations are used: a \italic short fermata ( \musicglyph "scripts.ushortfermata" ) and a \italic long fermata ( \musicglyph "scripts.ufermata" ). }
-          \override #'(line-width . 90)
-          \justify {
-            \sans \italic 3. \hspace #1 Harmonics are notated with diamond noteheads
-            ( \override #'(style . harmonic-mixed) \note-by-number #2 #0 #0.8 /
-            \override #'(style . harmonic-mixed) \note-by-number #1 #0 #0.8 )
-            to indicate the touched node. Artificial harmonics are notated
-            with two noteheads, a normal notehead for the stopped position and
-            a diamond for the node.
-          }
-          \vspace #0.4
-          \override #'(line-width . 90)
-          \justify {
-            \sans \italic 4. \hspace #1 Dotted slurs are used to indicate phrasing that may not be clear through dynamics and other notations. }
-        }
-        \vspace #0.5
-        \left-column {
-          \override #'(line-width . 100)
-          \line { \hspace #100 }
-          \wordwrap { &sect; \hspace #3.5 \sans \bold \italic "interpreting techniques" }
-        }
-        \left-column {
-          \override #'(line-width . 90)
-          \line { \hspace #90 }
-          \override #'(line-width . 90)
-          \justify {
-            \sans \italic 1. \hspace #1 Bow position indications such as \italic "sul pont"
-            and \italic "sul tasto" should be interpreted generously &ndash; i.e. almost
-            \italic "molto sul pont/tasto."
-          }
-          \vspace #0.3
-          \override #'(line-width . 90)
-          \justify {
-            \sans \italic 2. \hspace #1 Portamento/glissando notations should be
-            interpreted somewhere between a romantic-style \italic portamento
-            &ndash; the sliding motion happening toward the very end of the
-            note &ndash; and a more contemporary \italic glissando &ndash;
-            sliding over the full duration of the note evenly. The sliding
-            motion should be exponential over the durations of the note &ndash;
-            begin at the start of the note, but the bulk of the motion should
-            happen towards the end of the note.
-          }
-        }
-        \vspace #2.5
-        \line { \char ##x2042 }
-      }
-
-      \right-column {
-        \vspace #-0.2
-        \right-column \fontsize #-1 {
-          \line { \fontsize #-2 \typewriter { \shortHash - \subject } }
-          \vspace #-0.4
-          \line { \fontsize #-2 \typewriter { \commitDate } }
-          \vspace #-0.4
-          \line { \fontsize #-2 \typewriter { "branch:" \branchName } }
-        }
-        \vspace #2
-      }
-    }
-  }
-
-  \pageBreak
-
-  \bookpart {
-    \header {
-      title = \markup { \fontsize #1 \xtitle }
-      arranger = \xcomp
-      poet = \markup { Transposed Score }
-      meter = \markup { Cormac McCarthy }
-    }
-    \score {
-      <<
-        \new StaffGroup
-        <<
-          \include "manuscripts/fluteI.ly"
-          \include "manuscripts/fluteII.ly"
-          \include "manuscripts/oboeI.ly"
-          \include "manuscripts/oboeII.ly"
-          \include "manuscripts/clarinetI.ly"
-          \include "manuscripts/clarinetII.ly"
-          \include "manuscripts/bassoonI.ly"
-          \include "manuscripts/bassoonII.ly"
-        >>
-        \new StaffGroup
-        <<
-          \include "manuscripts/hornI-III.ly"
-          \include "manuscripts/hornII-IV.ly"
-          \include "manuscripts/trumpetI.ly"
-          \include "manuscripts/trumpetII.ly"
-          \include "manuscripts/trumpetIII.ly"
-          \include "manuscripts/tromboneI.ly"
-          \include "manuscripts/tromboneII.ly"
-          \include "manuscripts/tuba.ly"
-        >>
-        \new StaffGroup
-        <<
-          \include "manuscripts/percI.ly"
-          \include "manuscripts/percII.ly"
-          \include "manuscripts/timpani.ly"
-        >>
-        \include "manuscripts/baritone.ly"
-        \new StaffGroup
-        <<
-          \include "manuscripts/violinI.ly"
-          \include "manuscripts/violinII.ly"
-          \include "manuscripts/viola.ly"
-          \include "manuscripts/cello.ly"
-          \include "manuscripts/bass.ly"
-        >>
-      >>
-      %\midi { }
-      \layout {
-        #(layout-set-staff-size 14)
-        \context {
-          \Score
-          \override RehearsalMark.break-visibility = #begin-of-line-invisible
-          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/30)
-          \override Hairpin.to-barline = ##f
-          \overrideTimeSignatureSettings 4/4 1/4 1,1,1,1 #'()
-          \overrideTimeSignatureSettings 3/4 1/4 1,1,1 #'()
-          \overrideTimeSignatureSettings 5/8 1/8 2,3 #'()
-          \override BarNumber.font-name = "classico"
-          \phrasingSlurDashPattern #0.5 #2.0
-          \override PhrasingSlur.thickness = 0.00
-          \override StaffSymbol.layer = #4
-          \override Stem.layer = #4
-          \override Beam.layer = #4
-          \override Tie.layer = #4
-          \override Hairpin.layer = #4
-          \override TimeSignature.layer = #2
-          \override Tie.layer = #1
-          \override TupletBracket.layer = #2
-          \override StringNumber.layer = #2
-          \override TextSpanner.layer = #3
-          \override NoteHead.layer = #4
-          \override Accidental.layer = #4
-          \override TimeSignature.whiteout = 2
-          \override StringNumber.whiteout = 6
-          \override StringNumber.avoid-slur = #'ignore
-          \override TextScript.padding = 1
-          \override TextScript.layer = #4
-          \numericTimeSignature
-          \romanStringNumbers
-          \override StringNumber.padding = 1
-          \override StringNumber.font-size = -3
-          \override TupletNumber.layer = 4
-          \override TupletNumber.font-shape = #'upright
-        }
-      }
-    }
-  }
-
-  \pageBreak
-  \markup {
-    \fill-line {
-      \center-column {
-        \vspace #24 \xumbel
-        \vspace #0.3
-        \line { \with-url #"https://www.jwpepper.com/myscore/umbel-press" \fontsize #-3 \hbracket \sans \bold "  https://www.jwpepper.com/myscore/umbel-press  " }
-      }
-    }
-  }
-}
diff --git a/evenings-in-the-west.ly b/evenings-in-the-west.ly
new file mode 100644 (file)
index 0000000..028bf10
--- /dev/null
@@ -0,0 +1,125 @@
+\version "2.24.4"
+
+\include "general/info.ly"
+\include "lib/load.ly"
+\include "general/scorePaper.ly"
+\include "general/scoreLayout.ly"
+
+\include "manuscripts/tempoMap.ly"
+\include "manuscripts/flute1.ly"
+\include "manuscripts/flute2.ly"
+\include "manuscripts/oboe1.ly"
+\include "manuscripts/oboe2.ly"
+\include "manuscripts/clarinet1.ly"
+\include "manuscripts/clarinet2.ly"
+\include "manuscripts/bassoon1.ly"
+\include "manuscripts/bassoon2.ly"
+\include "manuscripts/horn1.ly"
+\include "manuscripts/horn3.ly"
+\include "manuscripts/horn2.ly"
+\include "manuscripts/horn4.ly"
+\include "manuscripts/trumpet1.ly"
+\include "manuscripts/trumpet2.ly"
+\include "manuscripts/trumpet3.ly"
+\include "manuscripts/trombone1.ly"
+\include "manuscripts/trombone2.ly"
+\include "manuscripts/tuba.ly"
+\include "manuscripts/percussion1.ly"
+\include "manuscripts/percussion2.ly"
+\include "manuscripts/timpani.ly"
+\include "manuscripts/baritone.ly"
+\include "manuscripts/violin1.ly"
+\include "manuscripts/violin2.ly"
+\include "manuscripts/viola.ly"
+\include "manuscripts/cello.ly"
+\include "manuscripts/bass.ly"
+
+\book {
+  \markuplist #(outside-cover-markuplist 40.5)
+  \pageBreak
+  \markup { \vspace #5 }
+  \pageBreak
+  \markuplist #(inside-cover-markuplist)
+  \pageBreak
+  \markuplist { %Front Matter
+    \fill-line {
+      #(info-matter-markuplist)
+      \center-column {
+        \vspace #5
+        #(toc-markuplist)
+        #(program-notes-markuplist #{ \programNotes #})
+        #(performance-notes-markuplist #{ \performanceNotes  #})
+        \line { \char ##x2042 }
+      }
+      #(git-matter-markuplist)
+    }
+  }
+  \pageBreak
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { transposed score }
+      meter = \markup { "Cormac McCarthy" }
+      arranger = \markup { \tiny \typewriter \shortHash }
+    }
+    \score {
+      <<
+        \new StaffGroup
+        <<
+          \fluteONEStaff <<
+            \removeWithTag #'part \tempoMap
+            \removeWithTag #'part { \killCues \fluteONEMusic }
+          >>
+          \fluteTWOStaff \removeWithTag #'part { \killCues \fluteTWOMusic }
+          \oboeONEStaff \removeWithTag #'part { \killCues \oboeONEMusic }
+          \oboeTWOStaff \removeWithTag #'part { \killCues \oboeTWOMusic }
+          \clarinetONEStaff \removeWithTag #'part { \killCues \clarinetONEMusic }
+          \clarinetTWOStaff \removeWithTag #'part { \killCues \clarinetTWOMusic }
+          \bassoonONEStaff \removeWithTag #'part { \killCues \bassoonONEMusic }
+          \bassoonTWOStaff \removeWithTag #'part { \killCues \bassoonTWOMusic }
+        >>
+        \new StaffGroup
+        <<
+          \hornONETHREEStaff <<
+            \partCombine \removeWithTag #'part { \killCues \hornONEMusic } \removeWithTag #'part { \killCues \hornTHREEMusic }
+          >>
+          \hornTWOFOURStaff <<
+            \partCombine \removeWithTag #'part { \killCues \hornTWOMusic } \removeWithTag #'part { \killCues \hornFOURMusic }
+          >>
+          \trumpetsStaff <<
+            \customPartCombineUp \removeWithTag #'part { \killCues \trumpetONEMusic } \removeWithTag #'part { \killCues \trumpetTWOMusic }
+            \new Voice { \voiceTwo \removeWithTag #'part { \killCues \trumpetTHREEMusic } }
+          >>
+          \trombonesStaff <<
+            \partCombine \removeWithTag #'part { \killCues \tromboneONEMusic } \removeWithTag #'part { \killCues \tromboneTWOMusic }
+          >>
+          \tubaStaff \removeWithTag #'part { \killCues \tubaMusic }
+        >>
+        \new StaffGroup
+        <<
+          \percussionONEStaff \removeWithTag #'part { \killCues \percussionONEMusic }
+          \percussionTWOStaff \removeWithTag #'part { \killCues \percussionTWOMusic }
+          \timpaniStaff \removeWithTag #'part { \killCues \timpaniMusic }
+        >>
+        \new StaffGroup \with {
+          systemStartDelimiter = #'SystemStartSquare
+        }
+        <<
+          \override StaffGroup.SystemStartSquare.collapse-height = 4
+          \override Score.SystemStartBar.collapse-height = 4
+          \baritoneStaff << \removeWithTag #'part \tempoMap \removeWithTag #'part { \killCues \baritoneMusic } >>
+        >>
+        \new StaffGroup
+        <<
+          \violinONEStaff \removeWithTag #'part { \killCues \violinONEMusic }
+          \violinTWOStaff \removeWithTag #'part { \killCues \violinTWOMusic }
+          \violaStaff \removeWithTag #'part { \killCues \violaMusic }
+          \celloStaff \removeWithTag #'part { \killCues \celloMusic }
+          \bassStaff \removeWithTag #'part { \killCues \bassMusic }
+        >>
+      >>
+    }
+  }
+}
diff --git a/general/aliases.ly b/general/aliases.ly
deleted file mode 100644 (file)
index 398a0d6..0000000
+++ /dev/null
@@ -1,63 +0,0 @@
-U = \change Staff = "u"
-D = \change Staff = "d"
-
-%spacing
-ds = #2.5
-sods = #3.4
-phds = #3.9
-
-%notation marks
-pizz = ^\markup { "pizz" }
-arco = ^\markup { "arco" }
-pont = ^\markup { \italic "sul pont" }
-tasto = ^\markup { \italic "sul tasto" }
-ord = ^\markup { \italic "ord" }
-
-sD = \stemDown
-sU = \stemUp
-sN = \stemNeutral
-
-twoWayFermata = {
-  \once \set Staff.caesuraType = #'((underlying-bar-line . "."))
-  \once \set Staff.caesuraTypeTransform = ##f
-  \caesura ^\shortfermata _\shortfermata
-}
-
-glissandoSkipOn = {
-  \override NoteColumn.glissando-skip = ##t
-  \hide NoteHead
-  \override NoteHead.no-ledgers = ##t
-}
-
-glissandoSkipOff = {
-  \revert NoteColumn.glissando-skip
-  \undo \hide NoteHead
-  \revert NoteHead.no-ledgers
-}
-
-\defineBarLine "|" #'(#t #f " ")
-
-ffsempre =
-    #(make-dynamic-script (markup #:combine #:transparent "f" "ff" #:combine
-#:transparent "f" #:normal-text #:italic "sempre" ) )
-
-psempre =
-#(make-dynamic-script
-   (markup "p" #: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" ) )
-
-
-niente = #(make-dynamic-script (markup (#:normal-text #:abs-fontsize 10 #:bold "n")))
-
-harm = \once \override Staff.NoteHead.style = #'harmonic-mixed
index f07b3c4b9dd669fa32eebaddeefca3343574c028..2c36e56e88457a2e2fe2f6ce9a4f48bde5ea3530 100644 (file)
-xtitle = \markup { It was still dark }
-xsub = \markup { \null }
-xcomp = \markup { Tucker Johnson }
-xinst = \markup  { Baritone & Orchestra }
-xdur = \markup { \null }
-xcr = \markup \tiny { Copyright Tucker Johnson 2025. All Rights Reserved (ASCAP) }
-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 { \tiny \char ##x1F661 " " \sans \fromproperty #'page:page-number-string " " \tiny \char ##x1F663 } } \null } }
-evfoot = \markup { \fill-line { \null \center-column { " " \concat { \tiny \char ##x1F661 " " \sans \fromproperty #'page:page-number-string " " \tiny \char ##x1F663 } } \null } }
+xtitle =    \markup { Evenings in the West }
+xsub =      \markup {  }
+xcomp =     \markup { Tucker Johnson }
+xinst =     \markup  { Baritone & Orchestra }
+xdur =      \markup { \sans "~2 minutes" }
+xyear =     \markup { 2026 }
+xcr =       \markup \tiny { Copyright Umbel Press \concat { \sans \xyear "." } All Rights Reserved (ASCAP) }
+
+
+programNotes =
+\markuplist { \justify {
+  ""
+} }
+
+percOneSetup =
+\markup{
+  \score {
+    \new Staff \with { \magnifyStaff #(magstep -4) }
+    \relative {
+      \omit Score.TimeSignature \omit Score.Stem \omit Score.Beam
+      \time 20/4 \clef percussion \omit Score.Flag
+      g4\offset X-offset -0.7 _\markup \rotate #-45 { "kick drum" }
+      b4\offset X-offset -0.7 _\markup \rotate #-45 { "low tom" }
+      d4\offset X-offset -0.7 _\markup \rotate #-45 { "med tom" }
+      f4\offset X-offset -0.7 _\markup \rotate #-45 { "high tom" }
+      e8(\offset X-offset -0.7 _\markup \rotate #-45 { "caxixi" }
+      g8)
+      \clef treble
+      s4\offset X-offset -0.7 _\markup \rotate #-45 { "vibraphone" }
+    }
+  }
+}
+
+percTwoSetup =
+\markup{
+  \score {
+    \new Staff \with { \magnifyStaff #(magstep -4) }
+    \relative {
+      \omit Score.TimeSignature \omit Score.Stem \omit Score.Beam
+      \time 20/4 \clef percussion \omit Score.Flag \omit Score.Dots
+      d'4\offset X-offset -0.7 _\markup \rotate #-45 { "snare drum" }
+      e4\offset X-offset -0.7 _\markup \rotate #-45 { "tambourine" }
+      \xNotesOn
+      g4.\offset X-offset -0.7 _\markup \rotate #-45 { "ride cymbal" }
+      a8(\offset X-offset -0.7 _\markup \rotate #-45 { "hi-hat" }
+      e,4)
+      \xNotesOff
+      \clef treble
+      s4.\offset X-offset -0.7 _\markup \rotate #-45 { "marimba" }
+      s4\offset X-offset -0.7 _\markup \rotate #-45 { "tubular bells" }
+    }
+  }
+}
+
+performanceNotes =
+\markuplist {
+        \left-column {
+          \override #'(line-width . 100)
+          \line { \hspace #100 }
+          \wordwrap { &sect; \hspace #3.5 \sans \bold \italic "interpreting notations" }
+        }
+        \left-column {
+          \override #'(line-width . 90)
+          \line { \hspace #90 }
+          \justify {
+            \sans \italic 1. \hspace #1 Accidentals carry through each
+            bar &ndash; cautionary accidentals added for clarification.
+          }
+          \override #'(line-width . 90)
+          \justify {
+            \sans \italic 2. \hspace #1 Two fermata notations are used: a
+            \italic short fermata ( \musicglyph "scripts.ushortfermata" ) and a
+            \italic long fermata ( \musicglyph "scripts.ufermata" ).
+          }
+          \override #'(line-width . 90)
+          \justify {
+            \sans \italic 3. \hspace #1 Dotted slurs are used to indicate phrasing that may not be clear through dynamics and other notations.
+          }
+          \override #'(line-width . 90)
+          \justify {
+            \sans \italic 4. \hspace #1 Clusters should contain all of the
+            chromatic notes between the upper and lower limit of the
+            cluster-span.
+          }
+          \override #'(line-width . 90)
+          \justify {
+            \sans \italic 5. \hspace #1 Cadenza notation should be interpreted
+            freely, though music should be continuous between breath marks and
+            rests. Breath marks indicate a short break, while rests are longer.
+          }
+        }
+        \left-column {
+          \override #'(line-width . 100)
+          \line { \hspace #100 }
+          \wordwrap { &sect; \hspace #3.5 \sans \bold \italic "percussion set-up" }
+        }
+        \vspace #0.25
+        \override #'(line-width . 90)
+        \fill-line { \null  \bold { "Percussion I" } \bold { "Percussion II" } \null }
+        \override #'(line-width . 90)
+        \fill-line { \null \percOneSetup \percTwoSetup \null }
+        \vspace #2.5
+}
diff --git a/general/partLayout.ly b/general/partLayout.ly
new file mode 100644 (file)
index 0000000..52bf488
--- /dev/null
@@ -0,0 +1,74 @@
+\layout {
+  \context {
+    \Score
+    \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
+    \override InstrumentName.self-alignment-X = 1
+    \override RehearsalMark.break-visibility = #begin-of-line-invisible
+    \override Hairpin.to-barline = ##f
+    \overrideTimeSignatureSettings 4/4 1/4 1,1,1,1 #'()
+    \overrideTimeSignatureSettings 3/4 1/4 1,1,1 #'()
+    \overrideTimeSignatureSettings 5/8 1/8 2,3 #'()
+    \override BarNumber.font-name = "classico"
+    \phrasingSlurDashPattern #0.5 #2.0
+    \override PhrasingSlur.thickness = 0.5
+    \override StaffSymbol.layer = #4
+    \override Stem.layer = #4
+    \override Beam.layer = #4
+    \override Hairpin.layer = #4
+    \override TimeSignature.layer = #2
+    \override Tie.layer = #1
+    \override TupletBracket.layer = #2
+    \override StringNumber.layer = #2
+    \override TextSpanner.layer = #3
+    \override NoteHead.layer = #4
+    \override Accidental.layer = #4
+    \override TimeSignature.whiteout = 2
+    \override Fermata.outside-staff-priority = 200
+    \numericTimeSignature
+    \romanStringNumbers
+    \override TupletNumber.layer = 4
+    \override TupletNumber.font-shape = #'upright
+    rehearsalMarkFormatter = #rounded-measure-number-mark
+    \remove Text_mark_engraver
+    \remove Mark_engraver
+    \remove Metronome_mark_engraver
+    \remove Instrument_name_engraver
+    \override MultiMeasureRest.expand-limit = 1
+    \override RehearsalMark.break-visibility = #(vector #f #t #t)
+    quotedCueEventTypes = #'(note-event rest-event tie-event beam-event tuplet-span-event)
+
+    %\override PaperColumn.show-horizontal-skylines = ##t
+    %\override NonMusicalPaperColumn.show-horizontal-skylines = ##t
+    %\override VerticalAxisGroup.show-vertical-skylines = ##t
+    %\override System.show-vertical-skylines = ##t
+    %\override PaperColumn.show-horizontal-skylines = ##t
+    %\override VerticalAlignment.show-vertical-skylines = ##t
+
+  }
+  \context {
+    \Staff
+    \consists Page_turn_engraver
+    minimumPageTurnLength = #(ly:make-moment 5/2)
+    \consists Metronome_mark_engraver
+    \remove Instrument_name_engraver
+    \consists Text_mark_engraver
+    pedalSustainStyle = #'bracket
+  }
+  \context {
+    \OneStaff
+    \remove Instrument_name_engraver
+    \consists Time_signature_engraver
+    \remove Clef_engraver
+  }
+  \context {
+    \GrandStaff
+    \remove Instrument_name_engraver
+    \override StaffGrouper.staff-staff-spacing = #'(
+                            (basic-distance . 3)
+                            (padding . 2))
+  }
+  \context {
+    \Voice
+    \remove Instrument_name_engraver
+  }
+}
diff --git a/general/partPaper.ly b/general/partPaper.ly
new file mode 100644 (file)
index 0000000..0e6a7ef
--- /dev/null
@@ -0,0 +1,117 @@
+\paper {
+  line-width = 120
+  #(include-special-characters)
+  footnote-separator-markup = \markup { \left-column { \vspace #0.5 \draw-line #'(6 . 0) } }
+  print-page-number = ##f
+  page-breaking = #ly:page-turn-breaking
+  #(set-paper-size "arch a")
+  print-all-headers = ##f
+  top-margin = 0.5\in
+  bottom-margin = 0.5\in
+  left-margin = 0.625\in
+  right-margin = 0.625\in
+  indent = 0.75\in
+  short-indent = 0\cm
+  ragged-last = ##t
+  #(define fonts (set-global-fonts #:music "scorlatti" #:brace "scorlatti" #:roman "Junicode" #:sans "sans"))
+  max-systems-per-page = #8
+  min-systems-per-page = #2
+  markup-system-spacing = #'((basic-distance . 2) (minimum-distance . 1) (padding . 2))
+  system-system-spacing = #'((basic-distance . 5) (minimum-distance . 3) (padding . 8))
+  score-markup-spacing = #'((basic-distance . 4) (minimum-distance . 3) (padding . 4))
+  score-system-spacing = #'((basic-distance . 0) (minimum-distance . 0) (padding . 0))
+  last-bottom-spacing = #'((basic-distance . 4) (minimum-distance . 2) (padding . 5))
+  tocTitleMarkup = \markup {  }
+  tocItemMarkup = \markup \fill-line {
+    \fill-with-pattern #1.5 #CENTER .
+    \line {
+      \fromproperty #'toc:indent \fromproperty #'toc:text
+    }
+    \sans \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 #13 \oddhead }
+    \concat { \if \on-page #15 \oddhead }
+    \concat { \if \on-page #19 \oddhead }
+    \concat { \if \on-page #21 \oddhead }
+    \concat { \if \on-page #23 \oddhead }
+    \concat { \if \on-page #25 \oddhead }
+    \concat { \if \on-page #27 \oddhead }
+    \concat { \if \on-page #29 \oddhead }
+    \concat { \if \on-page #31 \oddhead }
+    \concat { \if \on-page #33 \oddhead }
+    \concat { \if \on-page #35 \oddhead }
+    \concat { \if \on-page #37 \oddhead }
+    \concat { \if \on-page #39 \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 #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 }
+    \concat { \if \on-page #24 \evhead }
+    \concat { \if \on-page #26 \evhead }
+    \concat { \if \on-page #28 \evhead }
+    \concat { \if \on-page #30 \evhead }
+    \concat { \if \on-page #32 \evhead }
+    \concat { \if \on-page #34 \evhead }
+    \concat { \if \on-page #36 \evhead }
+    \concat { \if \on-page #38 \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 #11 \oddfoot }
+    \concat { \if \on-page #13 \oddfoot }
+    \concat { \if \on-page #15 \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 }
+    \concat { \if \on-page #27 \fill-line { \null \concat { \char ##x2767 " " \tiny \typewriter \longHash " " \char ##x2619 } \null } }
+    \concat { \if \on-page #29 \oddfoot }
+    \concat { \if \on-page #31 \oddfoot }
+    \concat { \if \on-page #33 \oddfoot }
+    \concat { \if \on-page #35 \oddfoot }
+    \concat { \if \on-page #37 \oddfoot }
+    \concat { \if \on-page #39 \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 }
+    \concat { \if \on-page #24 \evfoot }
+    \concat { \if \on-page #26 \evfoot }
+    \concat { \if \on-page #28 \evfoot }
+    \concat { \if \on-page #30 \evfoot }
+    \concat { \if \on-page #32 \evfoot }
+    \concat { \if \on-page #34 \evfoot }
+    \concat { \if \on-page #36 \evfoot }
+    \concat { \if \on-page #38 \evfoot }
+  }
+}
diff --git a/general/scoreLayout.ly b/general/scoreLayout.ly
new file mode 100644 (file)
index 0000000..565915a
--- /dev/null
@@ -0,0 +1,81 @@
+% root = ../evenings-in-the-west.ly
+\layout {
+  #(layout-set-staff-size 14)
+  \context {
+    \Score
+    \override MetronomeMark.font-size = #3
+    \override RehearsalMark.font-size = #4
+    \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/20)
+    \override InstrumentName.self-alignment-X = 1
+    \override RehearsalMark.break-visibility = #begin-of-line-invisible
+    \override Hairpin.to-barline = ##f
+    \overrideTimeSignatureSettings 4/4 1/4 1,1,1,1 #'()
+    \overrideTimeSignatureSettings 3/4 1/4 1,1,1 #'()
+    \overrideTimeSignatureSettings 5/8 1/8 2,3 #'()
+    \override CenteredBarNumber.font-name = "classico"
+    \phrasingSlurDashPattern #0.5 #2.0
+    \override PhrasingSlur.thickness = 0.5
+    \override StaffSymbol.layer = #4
+    \override Stem.layer = #4
+    \override Beam.layer = #4
+    \override Hairpin.layer = #4
+    \override TimeSignature.layer = #2
+    \override Tie.layer = #1
+    \override TupletBracket.layer = #2
+    \override StringNumber.layer = #2
+    \override TextSpanner.layer = #3
+    \override NoteHead.layer = #4
+    \override Accidental.layer = #4
+    \override TimeSignature.whiteout = 2
+    \override TextScript.padding = 1
+    \override TextScript.layer = #4
+    \override TextScript.whiteout = 2
+    \override Fermata.outside-staff-priority = 200
+    \numericTimeSignature
+    \romanStringNumbers
+    \override TupletNumber.layer = 4
+    \override TupletNumber.font-shape = #'upright
+    centerBarNumbers = ##t
+    barNumberVisibility = #all-bar-numbers-visible
+    rehearsalMarkFormatter = #rounded-measure-number-mark
+    \override RehearsalMark.break-visibility = #(vector #f #t #t)
+    \override SectionLabel.break-visibility = #(vector #f #t #t)
+    \override CenteredBarNumber.stencil = #(make-stencil-boxer 0.1 0.25 ly:text-interface::print)
+    \override CenteredBarNumberLineSpanner.direction = #DOWN
+    \remove Text_mark_engraver
+    \remove Mark_engraver
+    \remove Metronome_mark_engraver
+
+    %\override PaperColumn.show-horizontal-skylines = ##t
+    %\override NonMusicalPaperColumn.show-horizontal-skylines = ##t
+    %\override VerticalAxisGroup.show-vertical-skylines = ##t
+    %\override System.show-vertical-skylines = ##t
+    %\override PaperColumn.show-horizontal-skylines = ##t
+    %\override VerticalAlignment.show-vertical-skylines = ##t
+
+  }
+  \context {
+    \Staff
+    \consists Metronome_mark_engraver
+    \consists Text_mark_engraver
+    pedalSustainStyle = #'bracket
+    soloText = #"I"
+    soloIIText = #"II"
+    \accepts "VoiceBox"
+  }
+  \context {
+    \OneStaff
+    \consists Instrument_name_engraver
+    \consists Time_signature_engraver
+  }
+  \context {
+    \Voice
+  }
+  \context {
+    \name "VoiceBox"
+    \type "Engraver_group"
+    \defaultchild "Voice"
+    \accepts "Voice"
+    \accepts "NullVoice"
+  }
+}
diff --git a/general/scorePaper.ly b/general/scorePaper.ly
new file mode 100644 (file)
index 0000000..d824d30
--- /dev/null
@@ -0,0 +1,130 @@
+\paper {
+  line-width = 120
+  first-page-number = -1
+  #(include-special-characters)
+  footnote-separator-markup = \markup { \left-column { \vspace #0.5 \draw-line #'(6 . 0) } }
+  print-page-number = ##f
+  #(set-paper-size "tabloid")
+  print-all-headers = ##f
+  top-margin = 0.5\in
+  bottom-margin = 0.5\in
+  left-margin = 0.9\in
+  right-margin = 0.9\in
+  ragged-last = ##t
+  indent = 0.75\in
+  short-indent = 0\cm
+  #(define fonts (set-global-fonts #:music "scorlatti" #:brace "scorlatti" #:roman "Junicode" #:sans "sans"))
+  max-systems-per-page = #1
+  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 {  }
+  tocItemMarkup = \markup \fill-line {
+    \fill-with-pattern #1.5 #CENTER .
+    \line {
+      \fromproperty #'toc:indent \fromproperty #'toc:text
+    }
+    \sans \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 }
+    \concat { \if \on-page #23 \oddhead }
+    \concat { \if \on-page #25 \oddhead }
+    \concat { \if \on-page #27 \oddhead }
+    \concat { \if \on-page #29 \oddhead }
+    \concat { \if \on-page #31 \oddhead }
+    \concat { \if \on-page #33 \oddhead }
+    \concat { \if \on-page #35 \oddhead }
+    \concat { \if \on-page #37 \oddhead }
+    \concat { \if \on-page #39 \oddhead }
+    \concat { \if \on-page #41 \oddhead }
+    \concat { \if \on-page #43 \oddhead }
+    \concat { \if \on-page #45 \oddhead }
+    \concat { \if \on-page #47 \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 }
+    \concat { \if \on-page #24 \evhead }
+    \concat { \if \on-page #26 \evhead }
+    \concat { \if \on-page #28 \evhead }
+    \concat { \if \on-page #30 \evhead }
+    \concat { \if \on-page #32 \evhead }
+    \concat { \if \on-page #34 \evhead }
+    \concat { \if \on-page #36 \evhead }
+    \concat { \if \on-page #38 \evhead }
+    \concat { \if \on-page #40 \evhead }
+    \concat { \if \on-page #42 \evhead }
+    \concat { \if \on-page #44 \evhead }
+    \concat { \if \on-page #46 \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 \oddfoot }
+    \concat { \if \on-page #27 \oddfoot }
+    \concat { \if \on-page #29 \oddfoot }
+    \concat { \if \on-page #31 \oddfoot }
+    \concat { \if \on-page #33 \oddfoot }
+    \concat { \if \on-page #35 \oddfoot }
+    \concat { \if \on-page #37 \oddfoot }
+    \concat { \if \on-page #39 \oddfoot }
+    \concat { \if \on-page #41 \oddfoot }
+    \concat { \if \on-page #43 \oddfoot }
+    \concat { \if \on-page #45 \oddfoot }
+    \concat { \if \on-page #47 \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 }
+    \concat { \if \on-page #24 \evfoot }
+    \concat { \if \on-page #26 \evfoot }
+    \concat { \if \on-page #28 \evfoot }
+    \concat { \if \on-page #30 \evfoot }
+    \concat { \if \on-page #32 \evfoot }
+    \concat { \if \on-page #34 \evfoot }
+    \concat { \if \on-page #36 \evfoot }
+    \concat { \if \on-page #38 \evfoot }
+    \concat { \if \on-page #40 \evfoot }
+    \concat { \if \on-page #42 \evfoot }
+    \concat { \if \on-page #44 \evfoot }
+    \concat { \if \on-page #46 \evfoot }
+    \concat { \if \on-page #48 \fill-line { \null \concat { \char ##x2767 " " \tiny \typewriter \longHash " " \char ##x2619 } \null } }
+  }
+}
diff --git a/general/scripts.ly b/general/scripts.ly
deleted file mode 100644 (file)
index baa38a7..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-timeSpanner =
-  #(define-music-function (left) (string?)
-    #{
-      \once {
-        \override TextSpanner.staff-padding = 5
-        \override TextSpanner.outside-staff-priority = 1000
-        \override TextSpanner.style = #'dashed-line
-        \override TextSpanner.dash-period = 3
-        \override TextSpanner.dash-fraction = 0.25
-        \override TextSpanner.font-size = #1
-        \override TextSpanner.font-shape = #'upright
-        \override TextSpanner.bound-details.left.text = \markup { \bold \roman $left }
-        \override TextSpanner.bound-details.left-broken.text = ##f
-        \override TextSpanner.bound-details.right-broken.text = ##f
-        \override TextSpanner.bound-details.right.padding = #-1
-      }
-    #})
-
-markSpanner =
-  #(define-music-function (left right) (string? string?)
-    #{
-      \once {
-        \override TextSpanner.style = #'dashed-line
-        \override TextSpanner.outside-staff-priority = 550
-        \override TextSpanner.dash-period = 2
-        \override TextSpanner.dash-fraction = 0.5
-        \override TextSpanner.font-size = #0.25
-        %\override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
-        %\override TextSpanner.bound-details.right.stencil-align-dir-y = #CENTER
-        \override TextSpanner.bound-details.left.text =
-        \markup { \general-align #Y #0 { $left \hspace #0.25 } }
-        \override TextSpanner.bound-details.right.text =
-          \markup { \general-align #Y #0 { \arrow-head #X #RIGHT ##f $right } }
-        \override TextSpanner.bound-details.left-broken.text = ##f
-        \override TextSpanner.bound-details.right-broken.text = ##f
-        \override TextSpanner.bound-details.right.padding = #1
-      }
-    #})
-
-stringNumberSpanner =
-  #(define-music-function (StringNumber) (string?)
-    #{
-      \once {
-        \override TextSpanner.style = #'solid
-        \override TextSpanner.outside-staff-priority = 150
-        \override TextSpanner.font-size = #-3
-        \override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
-        \override TextSpanner.bound-details.left.text = \markup { $StringNumber \hspace #0.25 }
-        \override TextSpanner.bound-details.right.text = \markup { \draw-line #'(0 . -1) }
-        \override TextSpanner.bound-details.right-broken.text = ##f
-        \override TextSpanner.avoid-slur = #'ignore
-        \override TextSpanner.bound-details.right.padding = #-2
-      }
-    #})
-
-instrumentChange =
-  #(define-music-function (instrument) (string?) #{ ^\markup { \bold \box $instrument }  #})
diff --git a/general/umbel.ly b/general/umbel.ly
deleted file mode 100644 (file)
index 506584b..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-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
-         }
-       }
diff --git a/lib/dynamics.ly b/lib/dynamics.ly
new file mode 100644 (file)
index 0000000..70d597d
--- /dev/null
@@ -0,0 +1,54 @@
+ffsempre =
+#(make-dynamic-script
+  (markup
+    #:combine
+    #:transparent "f" "ff"
+    #:combine
+    #:transparent "f"
+    #:normal-text
+    #:italic "sempre" ))
+
+psempre =
+#(make-dynamic-script
+  (markup
+    "p"
+    #: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" ))
+
+niente =
+#(make-dynamic-script
+  (markup
+    (#:normal-text #:bold #:italic "n")))
+
+%spacing
+ds = #2.5
+sods = #3.4
+phds = #3.9
diff --git a/lib/formatting.ly b/lib/formatting.ly
new file mode 100644 (file)
index 0000000..c23cef7
--- /dev/null
@@ -0,0 +1,109 @@
+pseudoIndents = % inline alternative to a new \score, also with right-indent
+#(define-music-function (name-tweaks left-indent right-indent)
+  ((markup-list? '()) number? number?)
+  (define (warn-stretched p1 p2) (ly:input-warning (*location*) (G_
+    " pseudoIndents ~s ~s is stretching staff; expect distorted layout") p1 p2))
+  (let* (
+    (narrowing (+ left-indent right-indent)) ; of staff implied by args
+
+    (set-staffsymbol! (lambda (staffsymbol-grob) ; change staff to new width
+      (let* (
+        (left-bound (ly:spanner-bound staffsymbol-grob LEFT))
+        (left-moment (ly:grob-property left-bound 'when))
+        (capo? (moment<=? left-moment ZERO-MOMENT)) ; in first system of score
+        (layout (ly:grob-layout staffsymbol-grob))
+        (lw (ly:output-def-lookup layout 'line-width)) ; debugging info
+        (indent (ly:output-def-lookup layout (if capo? 'indent 'short-indent)))
+        (old-stil (ly:staff-symbol::print staffsymbol-grob))
+        (staffsymbol-x-ext (ly:stencil-extent old-stil X))
+        ;; >=2.19.16's first system has old-stil already narrowed [2]
+        ;; compensate for this (ie being not pristine) when calculating
+        ;; - old leftmost-x (its value is needed when setting so-called 'width)
+        ;; - the new width and position (via local variable narrowing_)
+        (ss-t (ly:staff-symbol-line-thickness staffsymbol-grob))
+        (pristine? (<= 0 (car staffsymbol-x-ext) ss-t)) ; would expect half
+        (leftmost-x (+ indent (if pristine? 0 narrowing)))
+        (narrowing_ (if pristine? narrowing 0)) ; uses 0 if already narrowed
+        (old-width (+ (interval-length staffsymbol-x-ext) ss-t))
+        (new-width (- old-width narrowing_))
+        (new-rightmost-x (+ leftmost-x new-width)) ; and set! this immediately
+        (junk (ly:grob-set-property! staffsymbol-grob 'width new-rightmost-x))
+        (in-situ-stil (ly:staff-symbol::print staffsymbol-grob))
+        (new-stil (ly:stencil-translate-axis in-situ-stil narrowing_ X))
+       ;(new-stil (stencil-with-color new-stil red)) ; for when debugging
+        (new-x-ext (ly:stencil-extent new-stil X)))
+      (ly:grob-set-property! staffsymbol-grob 'stencil new-stil)
+      (ly:grob-set-property! staffsymbol-grob 'X-extent new-x-ext)
+      )))
+
+    (set-X-offset! (lambda (margin-grob) ; move grob across to line start
+      (let* (
+        (old (ly:grob-property-data margin-grob 'X-offset))
+        (new (lambda (grob) (+ (if (procedure? old) (old grob) old) narrowing))))
+      (ly:grob-set-property! margin-grob 'X-offset new))))
+
+    (tweak-text! (lambda (i-name-grob mkup) ; tweak both instrumentname texts
+      (if (and (markup? mkup) (not (string=? (markup->string mkup) "*")))
+      (begin
+        (ly:grob-set-property! i-name-grob 'long-text mkup)
+        (ly:grob-set-property! i-name-grob 'text mkup)
+        )))) ; else retain existing text
+
+    (install-narrowing (lambda (leftedge-grob) ; on staves, + adapt left margin
+      (let* (
+        (sys (ly:grob-system leftedge-grob))
+        (all-grobs (ly:grob-array->list (ly:grob-object sys 'all-elements)))
+        (grobs-named (lambda (name)
+          (filter (lambda (x) (eq? name (grob::name x))) all-grobs)))
+        (first-leftedge-grob (list-ref (grobs-named 'LeftEdge) 0))
+        (relsys-x-of (lambda (g) (ly:grob-relative-coordinate g sys X)))
+        (leftedge-x (relsys-x-of first-leftedge-grob))
+        (leftedged? (lambda (g) (= (relsys-x-of g) leftedge-x)))
+        (leftedged-ss (filter leftedged? (grobs-named 'StaffSymbol))))
+      (if (eq? leftedge-grob first-leftedge-grob) ; ignore other leftedges [1]
+       (begin
+         (for-each set-staffsymbol! leftedged-ss)
+         (for-each set-X-offset! (grobs-named 'SystemStartBar))
+         (for-each set-X-offset! (grobs-named 'InstrumentName))
+         (for-each tweak-text! (grobs-named 'InstrumentName) name-tweaks)
+       ))))))
+
+  (if (negative? narrowing) (warn-stretched left-indent right-indent))
+  #{ % and continue anyway
+    % ensure that these overrides are applied only at begin-of-line
+    \break % (but this does not exclude unsupported multiple application)
+    % give the spacing engine notice regarding the loss of width for music
+    \once \override Score.LeftEdge.X-extent = #(cons narrowing narrowing)
+    % discard line start region of staff and reassemble left-margin elements
+    \once \override Score.LeftEdge.after-line-breaking = #install-narrowing
+    % shift the system to partition the narrowing between left and right
+    \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details
+    .X-offset #(- right-indent)
+    % prevent a leftmost barnumber entering a stretched staff
+    \once \override Score.BarNumber.horizon-padding = #(max 1 (- 1 narrowing))
+  #}))
+
+pseudoIndent = % for changing just left-indent
+#(define-music-function (name-tweaks left-indent)
+  ((markup-list? '()) number?)
+  #{
+    \pseudoIndents $name-tweaks $left-indent 0
+  #})
+
+
+customPartCombineUp =
+#(define-music-function (part1 part2) (ly:music? ly:music?)
+  "Make an up-stem `VoiceBox` context that combines PART1 and PART2.
+
+The context is called 'Up'; internally, the function calls
+`\\partCombineUp`."
+  #{
+    \new VoiceBox = "Up" <<
+      \context Voice = "one" { \voiceOne }
+      \context Voice = "two" { \voiceThree }
+      \context Voice = "shared" { \voiceOne }
+      \context Voice = "solo" { \voiceOne }
+      \context NullVoice = "null" {}
+      \partCombine #part1 #part2
+    >>
+  #})
diff --git a/lib/load.ly b/lib/load.ly
new file mode 100644 (file)
index 0000000..338be5c
--- /dev/null
@@ -0,0 +1,6 @@
+\include "dynamics.ly"
+\include "formatting.ly"
+\include "notes.ly"
+\include "spanners.ly"
+\include "text.ly"
+\include "matter.ly"
diff --git a/lib/matter.ly b/lib/matter.ly
new file mode 100644 (file)
index 0000000..3e32105
--- /dev/null
@@ -0,0 +1,225 @@
+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
+  }
+}
+
+#(define (outside-cover-markuplist bottom-space)
+   #{
+     \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 #25
+           \line { \fontsize #8 \bold \underline \xtitle }
+           \vspace #-0.1
+           \line { \fontsize #3 \sans \xcomp }
+           \vspace #3
+           \line { \fontsize #2 \sans \concat { "for " \xinst } }
+         }
+       }
+       \vspace #bottom-space
+       \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 }
+       }
+     }
+   #})
+
+#(define (inside-cover-markuplist)
+   #{
+      \markuplist {
+        \fill-line {
+          \line { \null }
+          \center-column {
+            \vspace #10
+            \line { \hbracket \fontsize #10 \number \xyear }
+            \vspace #4
+            \line { \xcomp  }
+            \vspace #1
+            \line { \fontsize #5 \bold  \xtitle }
+            \line { \italic \xsub }
+            \vspace #4
+          }
+          \right-column { \line { \null }
+        }
+      }
+    }
+  #})
+
+#(define (info-matter-markuplist)
+  #{
+    \markuplist {
+      \left-column {
+        \line { \bold \xtitle \concat { " [" \sans \xyear "]" } }
+        \line { \xinst " | " \xdur }
+        \line { \xcomp }
+        \vspace #25
+      }
+    }
+  #})
+
+#(define (git-matter-markuplist)
+  #{
+    \markuplist {
+      \right-column {
+        \vspace #-0.5
+        \right-column \fontsize #-1 {
+          \line { \fontsize #-2 \typewriter { \shortHash - \subject } }
+          \vspace #-0.4
+          \line { \fontsize #-2 \typewriter { \commitDate } }
+          \vspace #-0.4
+          \line { \fontsize #-2 \typewriter { \branchName } }
+        }
+        \vspace #2
+      }
+    }
+  #})
+
+#(define (rear-cover-markuplist top-space)
+  #{
+    \markuplist {
+      \fill-line {
+        \center-column {
+          \vspace #top-space
+          \xumbel
+          \vspace #0.3
+          \line { \with-url #"https://www.jwpepper.com/myscore/umbel-press" \fontsize #-3 \hbracket \sans \bold "  https://www.jwpepper.com/myscore/umbel-press  " }
+        }
+      }
+    }
+  #})
+
+#(define (toc-markuplist)
+  #{
+    \markuplist {
+      \left-column {
+        \override #'(line-width . 100)
+        \line { \hspace #100 }
+        \vspace #-1
+        \wordwrap { \char ##x10AF1 \hspace #0.5 \large \bold \sans "contents" }
+      }
+      \vspace #0.5
+      \left-column {
+        \override #'(line-width . 90)
+        \table-of-contents
+      }
+      \vspace #2.5
+    }
+  #})
+
+#(define (program-notes-markuplist notes-markup)
+  #{
+    \markuplist {
+      \left-column {
+        \override #'(line-width . 100)
+        \line { \hspace #100 }
+        \vspace #-1
+        \wordwrap { \char ##x10AF1 \hspace #0.5 \large \bold \sans "program notes" }
+      }
+      \vspace #0.5
+      \left-column {
+        \override #'(line-width . 90)
+        \justify { #notes-markup }
+      }
+      \vspace #2.5
+    }
+  #})
+
+#(define (performance-notes-markuplist notes-markup)
+  #{
+    \markuplist {
+      \left-column {
+        \override #'(line-width . 100)
+        \line { \hspace #100 }
+        \vspace #-1
+        \wordwrap { \char ##x10AF1 \hspace #0.5 \large \bold \sans "performance notes" }
+      }
+      #notes-markup
+    }
+  #})
+
+
+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 { \tiny \char ##x1F661 " " \sans \fromproperty #'page:page-number-string " " \tiny \char ##x1F663 }
+    }
+    \null
+  }
+}
+evfoot =
+\markup {
+  \fill-line {
+    \null
+    \center-column {
+      " "
+      \concat { \tiny \char ##x1F661 " " \sans \fromproperty #'page:page-number-string " " \tiny \char ##x1F663 }
+    }
+    \null
+  }
+}
diff --git a/lib/notes.ly b/lib/notes.ly
new file mode 100644 (file)
index 0000000..ec824ae
--- /dev/null
@@ -0,0 +1,43 @@
+harm =
+\once \override Staff.NoteHead.style = #'harmonic-mixed
+
+glissandoSkipOn =
+{
+  \override NoteColumn.glissando-skip = ##t
+  \hide NoteHead
+  \override NoteHead.no-ledgers = ##t
+}
+
+glissandoSkipOff =
+{
+  \revert NoteColumn.glissando-skip
+  \undo \hide NoteHead
+  \revert NoteHead.no-ledgers
+}
+
+circle = \tweak NoteHead.stencil
+  #(lambda (grob)
+    (let* ((note (ly:note-head::print grob))
+           (combo-stencil (ly:stencil-add
+               note
+               (circle-stencil note 0.1 0.8))))
+          (ly:make-stencil (ly:stencil-expr combo-stencil)
+            (ly:stencil-extent note X)
+            (ly:stencil-extent note Y))))
+  \etc
+
+#(define (circular-arrow-script grob)
+   (let* ((circle
+           (ly:stencil-circle 0.7 0.12 #f))
+          (arrow
+           (ly:stencil-rotate
+            (ly:make-stencil
+             '((moveto 0 0)
+               (lineto 0.35 0.18)
+               (lineto 0.35 -0.18)
+               (closepath))
+             '(0 . 0) '(0 . 0))
+            (* pi 1.25))))
+     (ly:stencil-add
+      circle
+      (ly:stencil-translate arrow '(0.35 . 0.35)))))
diff --git a/lib/spanners.ly b/lib/spanners.ly
new file mode 100644 (file)
index 0000000..dd1af81
--- /dev/null
@@ -0,0 +1,71 @@
+timeSpanner =
+#(define-music-function (left) (string?)
+  #{
+    \once {
+      \override TextSpanner.staff-padding = 2
+      \override TextSpanner.outside-staff-priority = 1000
+      \override TextSpanner.style = #'dashed-line
+      \override TextSpanner.dash-period = 3
+      \override TextSpanner.dash-fraction = 0.25
+      \override TextSpanner.font-size = #1
+      \override TextSpanner.font-shape = #'upright
+      \override TextSpanner.bound-details.left.text = \markup { \magnify #1 \bold \roman $left }
+      \override TextSpanner.bound-details.left-broken.text = ##f
+      \override TextSpanner.bound-details.right-broken.text = ##f
+      \override TextSpanner.bound-details.right.padding = #-1
+    }
+  #})
+
+markSpanner =
+#(define-music-function (left right) (string? string?)
+  #{
+    \once {
+      \override TextSpanner.style = #'dashed-line
+      \override TextSpanner.outside-staff-priority = 550
+      \override TextSpanner.dash-period = 2
+      \override TextSpanner.dash-fraction = 0.5
+      \override TextSpanner.font-size = #0.25
+      \override TextSpanner.bound-details.left.text =
+      \markup { \general-align #Y #0 { $left \hspace #0.25 } }
+      \override TextSpanner.bound-details.right.text =
+      \markup { \general-align #Y #0 { \arrow-head #X #RIGHT ##f $right } }
+      \override TextSpanner.bound-details.left-broken.text = ##f
+      \override TextSpanner.bound-details.right-broken.text = ##f
+      \override TextSpanner.bound-details.right.padding = #1
+    }
+  #})
+
+stringNumberSpanner =
+#(define-music-function (StringNumber) (string?)
+  #{
+    \once {
+      \override TextSpanner.style = #'solid
+      \override TextSpanner.outside-staff-priority = 150
+      \override TextSpanner.font-size = #-3
+      \override TextSpanner.bound-details.left.stencil-align-dir-y = #CENTER
+      \override TextSpanner.bound-details.left.text = \markup { $StringNumber \hspace #0.25 }
+      \override TextSpanner.bound-details.right.text = \markup { \draw-line #'(0 . -1) }
+      \override TextSpanner.bound-details.right-broken.text = ##f
+      \override TextSpanner.avoid-slur = #'ignore
+      \override TextSpanner.bound-details.right.padding = #-2
+    }
+  #})
+
+sustainGradual =
+-\tweak edge-height #'(0 . 1)
+-\tweak self-alignment-Y #DOWN
+-\tweak style #'dashed-line
+-\tweak stencil
+#(lambda (grob)
+  (let* (
+      (sten (ly:piano-pedal-bracket::print grob))
+      (xex (ly:stencil-extent sten X))
+      (yex (ly:stencil-extent sten Y))
+      (cresc? (eqv? (ly:grob-property grob 'grow-direction) LEFT)))
+    (ly:line-interface::line grob
+      (car xex) (if cresc? (car yex) (cdr yex))
+      (cdr xex) (if cresc? (cdr yex) (car yex)))))
+\etc
+
+sustainGradualOn = -\sustainGradual \<
+sustainGradualOff = -\sustainGradual \>
diff --git a/lib/text.ly b/lib/text.ly
new file mode 100644 (file)
index 0000000..87f1649
--- /dev/null
@@ -0,0 +1,21 @@
+pizz =      ^\markup { "pizz" }
+arco =      ^\markup { "arco" }
+colLegno =  ^\markup { "col legno" }
+conSord =   ^\markup { "con sord." }
+senSord =   ^\markup { "senza sord." }
+pont =      ^\markup { \italic "sul pont." }
+tasto =     ^\markup { \italic "sul tasto" }
+ord =       ^\markup { \italic "ord." }
+flautando = ^\markup { \italic "flautando" }
+
+#(define (rounded-measure-number-mark mark context)
+  (let ((bar (ly:context-property context 'currentBarNumber)))
+    (markup
+      #:rounded-box
+      #:bold
+      #:sans
+      (number->string bar))))
+
+instrumentChange =
+  #(define-music-function (instrument) (string?)
+    #{ ^\markup { \bold \box $instrument } #})
index 7212343dccfbab9194ce5a3207a51dfbf762d227..6e90c2da38be1d549a71aebd97f02f85f1f7dbcb 100644 (file)
@@ -1,42 +1,48 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { baritone }
-  shortInstrumentName = \markup { b }
-  \consists Text_mark_engraver
-}
+% root = ../evenings-in-the-west.ly
+baritoneMusic =
 \relative {
   \clef bass
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
+  R1 |
   R1 |
   R1 |
   \dynamicUp
-  \time 3/4 r4 \tuplet 3/2 { r8 r8 cis8(\mp\< } \tuplet 3/2 { fis) e a8~ }\! |
-  \time 4/4 a2 r8 bes\< bes16 f8. |
-  \time 3/4 c'2.\! |
-  \time 2/4 \tuplet 3/2 { g4\mf\< c d } |
-  \time 4/4 dis(\f fis,4~ fis2)\fermata |
+  r4 \tuplet 3/2 { r8 r8 cis8(\mp\< } \tuplet 3/2 { fis) e a8~ }\! |
+  a2 r8 bes\< bes16 f8. |
+  c'2.\! |
+  \tuplet 3/2 { g4\mf\< c d } |
+  dis(\f fis,4~ fis2)\fermata |
   r2 r4 b4~\mf\> |
   b2~ b8 gis4\! r8 |
   r8 bes8~(\mp\> bes4~ \tuplet 3/2 { bes4 g ges) } |
   f2\! r2 |
   r2 r2\fermata |
   r2 \tuplet 3/2 { r8 c8\mp\< des8 } \tuplet 3/2 { g8( f8) e8 } |
-  \time 5/4 a4.\mf a8~ a2 r8 bes8\< |
-  \time 2/4 \tuplet 3/2 { g4( c4) d4} |
-  \time 4/4 dis4(\f fis,4~ fis2)\fermata |
+  a4.\mf a8~ a2 r8 bes8\< |
+  \tuplet 3/2 { g4( c4) d4} |
+  dis4(\f fis,4~ fis2)\fermata |
   r2 r8 b8\mf b4~\> |
   b2~ b8 gis4\! r8 |
   r4  r8 bes8~\mp\> bes2~ |
-  \time 2/4 bes4~ bes8 g8~\! |
-  \time 4/4 \tuplet 3/2 { g4 ges4(\< f4) } d4 cis |
-  b1\mf\fermata \bar "|."
+  bes4~ bes8 g8~\! |
+  \tuplet 3/2 { g4 ges4(\< f4) } d4 cis |
+  b1\mf\fermata |
 }
 \addlyrics {
   Light --  ning stood __ in rag -- ged chains __ far to the south __
   sil -- ent, sil -- ent
   the stac -- ca -- to mount -- ains bes -- pok -- en blue __
   and barr -- en, barr -- en out of the void.
-
 }
+
+baritoneStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "baritone"
+    \with {
+      instrumentName = \markup { "baritone " }
+      shortInstrumentName = \markup { "b " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
index d2bd28eb02e6b0d7902b4e31330dbb465a36964a..0724e60c0e173df1b14d579445864f0c58c58ffe 100644 (file)
@@ -1,21 +1,13 @@
-% root = ../bloodMeridianSketch.ly
-\new Staff \with {
-  instrumentName = \markup { bass }
-  shortInstrumentName = \markup { "db " }
-  \consists Text_mark_engraver
-  \consists Merge_rests_engraver
-}
+% root = ../evenings-in-the-west.ly
+bassMusic =
 \relative {
   \clef bass
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
+  R1*3 |
+  R1*3/4 |
   R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
   r8 a,8~\pp^"solo" a4~ a2~ |
   a1~ |
   a~ |
     \new Voice {
       \voiceTwo
       r8 ees8~_\arco\p ees2 d4 |
-      fis1~\< fis8 b,8\mp |
+      fis1~(\< fis8 b,8)\mp |
     }
   >>
   \oneVoice
-  \time 2/4 \tuplet 3/2 { r4 r4 bes'4 } |
-  \time 4/4 f'4(\> fis,4~\p fis2)\fermata |
+  \tuplet 3/2 { r4 r4 bes'4 } |
+  f'4(\> fis,4~\p fis2)\fermata |
   <<
     {
       \voiceTwo
       r8 a,8~\p^"solo" a4~ a2~ |
       a1~ |
       a1~ |
-      \time 2/4 a2~\> |
-      \time 4/4 a2\pp
+      a2~\> |
+      a2\pp
     }
     \new Voice {
       \voiceOne
   b,1\fermata
 
 }
+
+bassStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "bass"
+    \with {
+      instrumentName = \markup { "bass " }
+      shortInstrumentName = \markup { "db " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/bassoon1.ly b/manuscripts/bassoon1.ly
new file mode 100644 (file)
index 0000000..787b917
--- /dev/null
@@ -0,0 +1,45 @@
+% root = ../evenings-in-the-west.ly
+bassoonONEMusic =
+\relative {
+  \clef bass
+  R1*3 |
+  r4 r4 d,4(\p |
+  fis2~ fis8) fis'4( f8~ |
+  f2.) |
+  \tuplet 3/2 { b,4\pp\< ais' b\p } |
+  f4--\> fis,4~\pp fis2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
+  R1*2/4 |
+  a'1\pp |
+  ais1\fermata
+}
+
+bassoonONEStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "bassoonONE" \with {
+      instrumentName = \markup { "bassoon I " }
+      shortInstrumentName = \markup { "bsn I " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    << $music >>
+  #})
+
+bassoonsStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "bassoons"
+    \with {
+      instrumentName = \markup { "bassoon (I, II) " }
+      shortInstrumentName = \markup { "bsn " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    \transpose bes c' << $music >>
+  #})
diff --git a/manuscripts/bassoon2.ly b/manuscripts/bassoon2.ly
new file mode 100644 (file)
index 0000000..d1bbe16
--- /dev/null
@@ -0,0 +1,32 @@
+% root = ../evenings-in-the-west.ly
+bassoonTWOMusic =
+\relative {
+  \clef bass
+  R1*3 |
+  R1*3/4 |
+  r2 r8 fis,4(\p f8~ |
+  f2.) |
+  g'2~\pp\< |
+  g4\p r4 r2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
+
+bassoonTWOStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "bassoonTWO" \with {
+      instrumentName = \markup { "bassoon II " }
+      shortInstrumentName = \markup { "bsn II " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/bassoonI.ly b/manuscripts/bassoonI.ly
deleted file mode 100644 (file)
index 3ed2beb..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { bassoon \bold "I" }
-  shortInstrumentName = \markup { bsn \bold "I " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef bass
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
-  R1 |
-  \time 3/4 r4 r4 d,4(\p |
-  \time 4/4 fis2~ fis8) fis'4( f8~ |
-  \time 3/4 f2.) |
-  \time 2/4 \tuplet 3/2 { b,4\pp\< ais' b\p } |
-  \time 4/4 f4--\> fis,4~\pp fis2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 a'1\pp |
-  ais1\fermata
-
-}
diff --git a/manuscripts/bassoonII.ly b/manuscripts/bassoonII.ly
deleted file mode 100644 (file)
index 306bf41..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { bassoon \bold "II" }
-  shortInstrumentName = \markup { bsn \bold "II " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef bass
-  \tempo Rubato 4=64
-  \time 4/4
-  R1 |
-  R1 |
-  R1 |
-  \time 3/4
-  R1*3/4 |
-  \time 4/4
-  r2 r8 fis,4(\p f8~ |
-  \time 3/4
-  f2.) |
-  \time 2/4
-  \after 4. \p g'2\pp\< |
-  \time 4/4
-  f4--\> fis,4~\ppp fis2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata
-}
index 1d1b21826f86b99eaa89ebfdf2ae60f1f82372e5..eebe0ca5f7e40a4331109d026ef01ac5b94c9a13 100644 (file)
@@ -1,45 +1,47 @@
-% root = ../bloodMeridianSketch.ly
-\new Staff \with {
-  instrumentName = \markup { cello }
-  shortInstrumentName = \markup { "vc " }
-  \consists Text_mark_engraver
-  \consists Merge_rests_engraver
-}
+% root = ../evenings-in-the-west.ly
+celloMusic =
 \relative {
   \clef bass
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
-  R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
+  R1*3 |
+  R1*3/4 |
   R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*4 |
   r2 r2\fermata |
   r8 ees8~\p ees2 d4 |
   <<
     {
       \voiceOne
-      \time 5/4 a'1~\<^"div." a8 bes8\mp |
-      \time 2/4 \tuplet 3/2 { g2 ees4 } |
+      a'1~\<^"div." a8 bes8\mp |
+      \tuplet 3/2 { g2 ees4 } |
     }
     \new Voice {
       \voiceTwo
-      \time 5/4 fis,1~ fis8 r8 |
-      \time 2/4 \tuplet 3/2 { g'2 bes,4 } |
+      fis,1~ fis8 r8 |
+      \tuplet 3/2 { g'2 bes,4 } |
     }
   >>
   \oneVoice
-  \time 4/4 f'4(\> fis4~\p fis2)\fermata |
+  f'4(\> fis4~\p fis2)\fermata |
   r8 a,8~\p^"solo" a2 r4 |
   r2 r8 a8~ a4~ |
   a4 r4 r2 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 a2 d2\pp^"all" |
+  R1*2/4 |
+  a2 d2\pp^"all" |
   <b fis'>1\fermata
 }
+
+celloStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "cello"
+    \with {
+      instrumentName = \markup { "cello " }
+      shortInstrumentName = \markup { "vc " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/clarinet1.ly b/manuscripts/clarinet1.ly
new file mode 100644 (file)
index 0000000..88ad990
--- /dev/null
@@ -0,0 +1,48 @@
+% root = ../evenings-in-the-west.ly
+clarinetONEMusic =
+\relative {
+  ees''1~\mp\> |
+  ees16\niente r8. r4 r2 |
+  r4 r8 ees8~\mp\> ees4~ ees16\niente r8. |
+  ees4.\mp\> cis8~(\p cis4 |
+  a2.~ a8 e8) |
+  a2. |
+  \tuplet 3/2 { fis4\pp\< e d\p } |
+  ees4--\> cis4~\ppp cis2\fermata |
+  R1*3 |
+  r4 r8 d'8~\p d2~ |
+  d8 cis8~ cis4 b2~\fermata |
+  b8 r8 r4 r2 |
+  R1*5/4 |
+  \tuplet 3/2 { a4(\pp\< e4) d4\mp } |
+  ees4(\> cis4~\pp cis2)\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata |
+}
+
+clarinetONEStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "clarinetONE"
+    \with {
+      instrumentName = \markup { "clarinet I " }
+      shortInstrumentName = \markup { "cl I " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    \transpose bes c' << $music >>
+  #})
+
+clarinetsStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "clarinets"
+    \with {
+      instrumentName = \markup { "clarinet (I, II) " }
+      shortInstrumentName = \markup { "cl " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    \transpose bes c' << $music >>
+  #})
diff --git a/manuscripts/clarinet2.ly b/manuscripts/clarinet2.ly
new file mode 100644 (file)
index 0000000..af3cecb
--- /dev/null
@@ -0,0 +1,37 @@
+% root = ../evenings-in-the-west.ly
+clarinetTWOMusic =
+\relative {
+  \clef treble
+  f'1~\mp\> |
+  f16\niente r8. r4 r2 |
+  r4 r8 f8~\mp\> f4~ f16\niente r8. |
+  f2\mp\> e4(\p |
+  fis2.~ fis8 e8) |
+  a2 bes,4\pp |
+  \tuplet 3/2 { b4\< c b\p } |
+  ees4--\> cis4~\ppp cis2\fermata |
+  R1*3 |
+  r4 r8 d'8~\p d2~ |
+  d8 cis8~ cis4 b2~\fermata |
+  b8 r8 r4 r2 |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*2 |
+  a,1~\p |
+  a2~ |
+  a2 c2 |
+  fis,1\fermata |
+}
+
+clarinetTWOStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "clarinetTWO"
+    \with {
+      instrumentName = \markup { "clarinet II " }
+      shortInstrumentName = \markup { "cl II " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    \transpose bes c' << $music >>
+  #})
diff --git a/manuscripts/clarinetI.ly b/manuscripts/clarinetI.ly
deleted file mode 100644 (file)
index 69d090c..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { clarinet \bold I }
-  shortInstrumentName = \markup { cl \bold "I " }
-  \consists Text_mark_engraver
-}
-\transpose bes c'
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 ees''1~\mp\> |
-  ees16\niente r8. r4 r2 |
-  r4 r8 ees8~\mp\> ees4~ ees16\niente r8. |
-  \time 3/4 ees4.\mp\> cis8~(\p cis4 |
-  \time 4/4 a2.~ a8 e8) |
-  \time 3/4 a2. |
-  \time 2/4 \tuplet 3/2 { fis4\pp\< e d\p } |
-  \time 4/4
-  ees4--\> cis4~\ppp cis2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  r4 r8 d'8~\p d2~ |
-  d8 cis8~ cis4 b2~\fermata |
-  b8 r8 r4 r2 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 \tuplet 3/2 { a4(\pp\< e4) d4\mp } |
-  \time 4/4 ees4(\> cis4~\pp cis2)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata |
-
-}
diff --git a/manuscripts/clarinetII.ly b/manuscripts/clarinetII.ly
deleted file mode 100644 (file)
index 114a57c..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { clarinet \bold II }
-  shortInstrumentName = \markup { cl \bold "II " }
-  \consists Text_mark_engraver
-}
-\transpose bes c'
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 f'1~\mp\> |
-  f16\niente r8. r4 r2 |
-  r4 r8 f8~\mp\> f4~ f8\niente r8 |
-  \time 3/4 f2\mp\> e4(\p |
-  \time 4/4 fis2.~ fis8 e8) |
-  \time 3/4 a2 bes,4\pp |
-  \time 2/4 \tuplet 3/2 { b4\< c b\p } |
-  \time 4/4 ees4--\> cis4~\ppp cis2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  r4 r8 d'8~\p d2~ |
-  d8 cis8~ cis4 b2~\fermata |
-  b8 r8 r4 r2 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  a,1~\p |
-  \time 2/4 a2~ |
-  \time 4/4 a2 c2 |
-  fis,1\fermata |
-
-}
diff --git a/manuscripts/flute1.ly b/manuscripts/flute1.ly
new file mode 100644 (file)
index 0000000..4ae82ac
--- /dev/null
@@ -0,0 +1,50 @@
+% root = ../evenings-in-the-west.ly
+fluteONEMusic =
+\relative {
+  \clef treble
+  des''1~\mp\> |
+  des16\niente r8. r4 ees2~\mp\> |
+  ees16\niente r8. r8 des8~\mp\> des4~ des16\niente r8. |
+  des2\mp r4 |
+  r2 r8 aes'4(\p g8 |
+  aes2.) |
+  R1*2/4 |
+  g4--\< e,4~\mf e2\fermata |
+  R1*3 |
+  r4 r8 \pitchedTrill c''8~\startTrillSpan d c2~ |
+  c8\stopTrillSpan \pitchedTrill des8~\startTrillSpan ees des4\stopTrillSpan \pitchedTrill b2~\fermata\startTrillSpan c |
+  b8\stopTrillSpan r8 r4 r2 |
+  R1*5/4 |
+  R1*2/4 |
+  ees,,4(\< e4~\mf e2)\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata |
+}
+\addQuote "fluteONE" { \removeWithTag #'score \fluteONEMusic }
+
+fluteONEStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "fluteONE"
+    \with {
+      instrumentName = \markup { "flute I " }
+      shortInstrumentName = \markup { "fl I " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    << $music >>
+  #})
+
+flutesStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "flutes"
+    \with {
+      instrumentName = \markup { "flute (I, II) " }
+      shortInstrumentName = \markup { "fl " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/flute2.ly b/manuscripts/flute2.ly
new file mode 100644 (file)
index 0000000..56ae242
--- /dev/null
@@ -0,0 +1,37 @@
+% root = ../evenings-in-the-west.ly
+fluteTWOMusic =
+\relative {
+  \clef treble
+  R1 |
+  r2 des''2~\mp\> |
+  des16\niente r8. r4 r2 |
+  R1*3/4 |
+  R1 |
+  R1*3/4 |
+  \tuplet 3/2 { r4 r4 cis4\p } |
+  d4--\< cis,4~\mf cis2\fermata |
+  R1*3 |
+  r4 r8 \pitchedTrill a''8~\p\startTrillSpan c a2~ |
+  a8\stopTrillSpan \pitchedTrill a8~\startTrillSpan bes a4\stopTrillSpan \pitchedTrill a2~\fermata\startTrillSpan bes |
+  a8\stopTrillSpan r8 r4 r2 |
+  R1*5/4 |
+  R1*2/4 |
+  ees,4(\< e4~\mf e2)\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata |
+}
+\addQuote "fluteTWO" { \removeWithTag #'score \fluteTWOMusic }
+
+fluteTWOStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "fluteTWO"
+    \with {
+      instrumentName = \markup { "flute II " }
+      shortInstrumentName = \markup { "fl II " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/fluteI.ly b/manuscripts/fluteI.ly
deleted file mode 100644 (file)
index adb8dc8..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { flute \bold I }
-  shortInstrumentName = \markup { fl \bold "I " }
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 des''1~\mp\> |
-  des16\niente r8. r4 ees2~\mp\> |
-  ees16\niente r8. r8 des8~\mp\> des4~ des16\niente r8. |
-  \time 3/4 des2\mp r4 |
-  \time 4/4 r2 r8 aes'4(\p aes8 |
-  \time 3/4 aes2.) |
-  \time 2/4 R1*2/4 |
-  \time 4/4 g4--\< e,4~\mf e2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  r4 r8 \pitchedTrill c''8~\startTrillSpan d c2~ |
-  c8\stopTrillSpan \pitchedTrill des8~\startTrillSpan ees des4\stopTrillSpan \pitchedTrill b2~\fermata\startTrillSpan c |
-  b8\stopTrillSpan r8 r4 r2 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 ees,,4(\< e4~\mf e2)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata |
-
-}
diff --git a/manuscripts/fluteII.ly b/manuscripts/fluteII.ly
deleted file mode 100644 (file)
index ce8f76a..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { flute \bold II }
-  shortInstrumentName = \markup { fl \bold "II " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  r2 des''2~\mp\> |
-  des16\niente r8. r4 r2 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 \tuplet 3/2 { r4 r4 cis4\p } |
-  \time 4/4 d4--\< cis,4~\mf cis2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  r4 r8 \pitchedTrill a''8~\p\startTrillSpan c a2~ |
-  a8\stopTrillSpan \pitchedTrill a8~\startTrillSpan bes a4\stopTrillSpan \pitchedTrill a2~\fermata\startTrillSpan bes |
-  a8\stopTrillSpan r8 r4 r2 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 ees,4(\< e4~\mf e2)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata |
-
-
-}
diff --git a/manuscripts/horn1.ly b/manuscripts/horn1.ly
new file mode 100644 (file)
index 0000000..3766501
--- /dev/null
@@ -0,0 +1,47 @@
+% root = ../evenings-in-the-west.ly
+hornONEMusic =
+\relative {
+  \clef treble
+  R1 |
+  r2 f'2~-+\mp\> |
+  f16\niente r8. r4 r2 |
+  R1*3/4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  dis4\<\halfopen\glissando e4~\f\open e2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  dis4\<\halfopen\glissando e4~\f\open e2\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
+
+hornStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "horn"
+    \with {
+      instrumentName = \markup { "horn in F " }
+      shortInstrumentName = \markup { "hn " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    \transpose f c' << $music >>
+  #})
+
+hornONETHREEStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "horn"
+    \with {
+      instrumentName = \markup { "horn in F I-III " }
+      shortInstrumentName = \markup { "hn I-III" }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    \transpose f c' << $music >>
+  #})
diff --git a/manuscripts/horn2.ly b/manuscripts/horn2.ly
new file mode 100644 (file)
index 0000000..05a480a
--- /dev/null
@@ -0,0 +1,35 @@
+% root = ../evenings-in-the-west.ly
+hornTWOMusic =
+\relative {
+  \set Staff.soloText = #"II"
+  \set Staff.soloIIText = #"IV"
+  \clef treble
+  R1*3 |
+  R1*3/4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r4 cis'4~\f cis2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  r4 cis4~\f cis2\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
+
+hornTWOFOURStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "horn"
+    \with {
+      instrumentName = \markup { "horn in F II-IV " }
+      shortInstrumentName = \markup { "hn II-IV" }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    \transpose f c' << $music >>
+  #})
diff --git a/manuscripts/horn3.ly b/manuscripts/horn3.ly
new file mode 100644 (file)
index 0000000..a62fc06
--- /dev/null
@@ -0,0 +1,23 @@
+% root = ../evenings-in-the-west.ly
+hornTHREEMusic =
+\relative {
+  \clef treble
+  R1 |
+  r2 f'2~-+\mp\> |
+  f16\niente r8. r4 r2 |
+  R1*3/4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  f,4\halfopen\glissando fis4~\open fis2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  f4\halfopen\glissando fis4~\open fis2\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
diff --git a/manuscripts/horn4.ly b/manuscripts/horn4.ly
new file mode 100644 (file)
index 0000000..37e8abd
--- /dev/null
@@ -0,0 +1,22 @@
+% root = ../evenings-in-the-west.ly
+hornFOURMusic =
+\relative {
+  \clef treble
+  R1*3 |
+  R1*3/4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r4 fis,4~ fis2\fermata |
+  r8 a8~\p\> a4~ a2\pp |
+  R1*3 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  r4 fis4~ fis2\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
diff --git a/manuscripts/hornI-III.ly b/manuscripts/hornI-III.ly
deleted file mode 100644 (file)
index cd97c02..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-\new Staff \with {
-  instrumentName = \markup { horn \bold "I/III" }
-  shortInstrumentName = \markup { hn \bold "I/III " }
-  \consists Text_mark_engraver
-  \consists Merge_rests_engraver
-}
-\transpose f c'
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  r2 f'2~-+\mp\> |
-  f16\niente r8. r4 r2 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4
-  <<
-    {
-      \voiceOne
-      dis4\<\halfopen\glissando e4~\f\open e2\fermata |
-    }
-    \new Voice {
-      \voiceTwo
-      f,4\halfopen\glissando fis4~\open fis2\fermata |
-    }
-  >>
-  \oneVoice
-  R1 |
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4
-  <<
-    {
-      \voiceOne
-      dis'4\<\halfopen\glissando e4~\f\open e2\fermata |
-    }
-    \new Voice {
-      \voiceTwo
-      f,4\halfopen\glissando fis4~\open fis2\fermata |
-    }
-  >>
-  \oneVoice
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata
-}
diff --git a/manuscripts/hornII-IV.ly b/manuscripts/hornII-IV.ly
deleted file mode 100644 (file)
index eb1b488..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-\new Staff \with {
-  instrumentName = \markup { horn \bold "II/IV" }
-  shortInstrumentName = \markup { hn \bold "II/IV " }
-  \consists Text_mark_engraver
-  \consists Merge_rests_engraver
-}
-\transpose f c'
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
-  R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4
-  <<
-    {
-      \voiceOne
-      r4 cis'4~\f cis2\fermata |
-      R1 |
-    }
-    \new Voice {
-      \voiceTwo
-      r4 fis,,4~ fis2\fermata |
-      r8 a8~\p\> a4~ a2\pp |
-    }
-  >>
-  \oneVoice
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4
-  <<
-    {
-      \voiceOne
-      r4 cis'4~\f cis2\fermata |
-    }
-    \new Voice {
-      \voiceTwo
-      r4 fis,,4~ fis2\fermata |
-    }
-  >>
-  \oneVoice
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata
-}
diff --git a/manuscripts/oboe1.ly b/manuscripts/oboe1.ly
new file mode 100644 (file)
index 0000000..1029361
--- /dev/null
@@ -0,0 +1,47 @@
+% root = ../evenings-in-the-west.ly
+oboeONEMusic =
+\relative {
+  \clef treble
+  R1*3 |
+  R1*3/4 |
+  r2 r8 aes''4(\p g8 |
+  aes2.) |
+  \tuplet 3/2 { r4 r4 cis,4\p } |
+  d4--\> e,4~\ppp e2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  \tuplet 3/2 { c'4(\pp\< b4) cis4\p } |
+  d4(\> e,4~\pp e2)\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata |
+}
+\addQuote "oboeONE" { \removeWithTag #'score \oboeONEMusic }
+
+oboeONEStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "oboe"
+    \with {
+      instrumentName = \markup { "oboe I " }
+      shortInstrumentName = \markup { "ob I " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    << $music >>
+  #})
+
+oboesStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "oboes"
+    \with {
+      instrumentName = \markup { "oboe (I, II) " }
+      shortInstrumentName = \markup { "ob " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/oboe2.ly b/manuscripts/oboe2.ly
new file mode 100644 (file)
index 0000000..cb142f2
--- /dev/null
@@ -0,0 +1,34 @@
+% root = ../evenings-in-the-west.ly
+oboeTWOMusic =
+\relative {
+  \clef treble
+  R1*3 |
+  R1*3/4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  g'4--\p\> e4~\ppp e2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  g4(\p\> e4~\pp e2)\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata |
+}
+\addQuote "oboeTWO" { \removeWithTag #'score \oboeTWOMusic }
+
+oboeTWOStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "oboe2"
+    \with {
+      instrumentName = \markup { "oboe II " }
+      shortInstrumentName = \markup { "ob II " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/oboeI.ly b/manuscripts/oboeI.ly
deleted file mode 100644 (file)
index 2228c34..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { oboe \bold I }
-  shortInstrumentName = \markup { ob \bold "I " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
-  R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 r2 r8 aes''4(\p g8 |
-  \time 3/4 aes2.) |
-  \time 2/4 \tuplet 3/2 { r4 r4 cis,4\p } |
-  \time 4/4 d4--\> e,4~\ppp e2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/2 \tuplet 3/2 { c'4(\pp\< b4) cis4\p } |
-  \time 4/4 d4(\> e,4~\pp e2)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata |
-
-}
diff --git a/manuscripts/oboeII.ly b/manuscripts/oboeII.ly
deleted file mode 100644 (file)
index dcbd583..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { oboe \bold II }
-  shortInstrumentName = \markup { ob \bold "II " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
-  R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 g'4--\p\> e4~\ppp e2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 g4(\p\> e4~\pp e2)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata |
-
-
-}
diff --git a/manuscripts/percI.ly b/manuscripts/percI.ly
deleted file mode 100644 (file)
index d87d733..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { percussion \bold "I " }
-  shortInstrumentName = \markup { perc \bold "I " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 <des'' ees>1\f\laissezVibrer\arco\instrumentChange "vibraphone" |
-  r2 <des ees>2\laissezVibrer |
-  r4 r8 ees8~ ees2\laissezVibrer |
-  \time 3/4 des2\laissezVibrer r4 |
-  \time 4/4 R1^"take mallets" |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 <ees, g d'>4\(\arpeggio\mf <e cis fis,>4~\arpeggio\mp 2\)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  r4 r8 <d' a' c>8~\mp 2~ |
-  8 <cis a' bes ees>8~ 4 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 <ees, g d'>4\(\arpeggio\mf <e cis fis,>4~\arpeggio\mp 2\)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata |
-}
diff --git a/manuscripts/percII.ly b/manuscripts/percII.ly
deleted file mode 100644 (file)
index 4af61fd..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { percussion \bold "II " }
-  shortInstrumentName = \markup { perc \bold "II " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 <ees' des>1\f\laissezVibrer\arco\instrumentChange "crotales" |
-  r2 <ees des>2\laissezVibrer |
-  r4\instrumentChange "cymbal" r8 \xNotesOn \clef percussion b'8~\arco b2\laissezVibrer |
-  \time 3/4 b4\laissezVibrer \xNotesOff r4 r4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  r4\instrumentChange "crotales" r8 \clef treble d,8~\mf\arco d4\laissezVibrer r4 |
-  r8 <des ees>8~ <des ees>4 r2\fermata |
-  R1^"take mallets" |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  r8\instrumentChange "marimba" \clef bass a,8:32~\mp a4:32~ a2:32~  |
-  a1:32~ |
-  a1:32~ |
-  \time 2/4 a2:32~ |
-  \time 4/4 \after 4 \niente a2:32\> r2 |
-  R1\fermata
-}
diff --git a/manuscripts/percussion1.ly b/manuscripts/percussion1.ly
new file mode 100644 (file)
index 0000000..cae5a1f
--- /dev/null
@@ -0,0 +1,37 @@
+% root = ../evenings-in-the-west.ly
+percussionONEMusic =
+\relative {
+  <des'' ees>1\f\laissezVibrer\arco\instrumentChange "vibraphone" |
+  r2 <des ees>2\laissezVibrer |
+  r4 r8 ees8~ ees2\laissezVibrer |
+  des2\laissezVibrer r4 |
+  R1^"take mallets" |
+  R1*3/4 |
+  R1*2/4 |
+  <ees, g d'>4(\arpeggio\mf <e cis fis,>4~\arpeggio\mp 2)\fermata |
+  R1*3 |
+  r4 r8 <d' a' c>8~\mp 2~ |
+  8 <cis a' bes ees>8~ 4 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  <ees, g d'>4(\arpeggio\mf <e cis fis,>4~\arpeggio\mp 2)\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata |
+}
+
+
+percussionONEStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "percussionONE"
+    \with {
+      instrumentName = \markup { "percussion I " }
+      shortInstrumentName = \markup { "perc I " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/percussion2.ly b/manuscripts/percussion2.ly
new file mode 100644 (file)
index 0000000..208d8a2
--- /dev/null
@@ -0,0 +1,40 @@
+% root = ../evenings-in-the-west.ly
+percussionTWOMusic =
+\relative {
+  \clef treble
+  <ees' des>1\f\laissezVibrer\arco\instrumentChange "crotales" |
+  r2 <ees des>2\laissezVibrer |
+  r4\instrumentChange "cymbal" r8 \xNotesOn \clef percussion b'8~\arco b2\laissezVibrer |
+  b4\laissezVibrer \xNotesOff r4 r4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
+  r4\instrumentChange "crotales" r8 \clef treble d,8~\mf\arco d4\laissezVibrer r4 |
+  r8 <des ees>8~ <des ees>4 r2\fermata |
+  R1^"take mallets" |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  r8\instrumentChange "marimba" \clef bass a,8:32~\mp a4:32~ a2:32~  |
+  a1:32~ |
+  a1:32~ |
+  a2:32~ |
+  \after 4 \niente a2:32\> r2 |
+  R1\fermata
+}
+
+
+percussionTWOStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "percussionTWO"
+    \with {
+      instrumentName = \markup { "percussion II " }
+      shortInstrumentName = \markup { "perc II " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/tempoMap.ly b/manuscripts/tempoMap.ly
new file mode 100644 (file)
index 0000000..6d79f30
--- /dev/null
@@ -0,0 +1,25 @@
+% root = ../evenings-in-the-west.ly
+tempoMap =
+\new Voice \with {
+  \consists Mark_engraver
+  \remove Clef_engraver
+}
+{
+  \tocItem \markup { "IV. " \bold "It Was Still Dark" }
+  \mark \markup \box "IV. It Was Still Dark"
+  \tempo "Lontano, rubato" 4=64
+  \time 4/4 s1*3 |
+  \time 3/4 s1*3/4 |
+  \time 4/4 s1 |
+  \time 3/4 s1*3/4 |
+  \time 2/4 s1*2/4 |
+  \time 4/4 s1*6 |
+  \mark \default
+  \time 4/4 s1 |
+  \time 5/4 s1*5/4 |
+  \time 2/4 s1*2/4 |
+  \time 4/4 s1*4 |
+  \time 2/4 s1*2/4 |
+  \time 4/4 s1*2 \bar "|."
+
+}
index ed7cb92637279a04e4c6eba7bb02c9c79e424b4a..4e02e163a11a4283bb6364ca6fc544577d8c2549 100644 (file)
@@ -1,35 +1,40 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { timpani }
-  shortInstrumentName = \markup { "timp " }
-  \consists Text_mark_engraver
-}
+% root = ../evenings-in-the-west.ly
+timpaniMusic =
 \relative {
   \clef bass
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
+  R1*3 |
+  R1*3/4 |
   R1 |
-  R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
   r8 a,8:32~\p a4:32~ a2:32~ |
   a1:32~ |
   a:32~ |
   a4.:32\< a8->\mp r2 |
   r2 r2\fermata |
   R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
   r8 a8:32~\p a4:32~ a2:32~ |
   a1:32~ |
   a1:32~ |
-  \time 2/4 a2:32~\> |
-  \time 4/4 \after 4 \pp a2:32 a2\p |
+  a2:32~\> |
+  \after 4 \pp a2:32 a2\p |
   <b fis'>1\fermata |
-
 }
+
+
+timpaniStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "timpani"
+    \with {
+      instrumentName = \markup { "timpani " }
+      shortInstrumentName = \markup { "timp " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/trombone1.ly b/manuscripts/trombone1.ly
new file mode 100644 (file)
index 0000000..34673ae
--- /dev/null
@@ -0,0 +1,48 @@
+% root = ../evenings-in-the-west.ly
+tromboneONEMusic =
+\relative {
+  \clef bass
+  R1*3 |
+  R1*3/4 |
+  fis,2..\p f8~ |
+  f2. |
+  \tuplet 3/2 { b4 bes8( } ees8) r8 |
+  r2 r2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
+
+
+trombonesStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "trombones"
+    \with {
+      instrumentName = \markup { "trombones " }
+      shortInstrumentName = \markup { "tbn " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
+
+tromboneONEStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "tromboneONE"
+    \with {
+      instrumentName = \markup { "trombone I " }
+      shortInstrumentName = \markup { "tbn I " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/trombone2.ly b/manuscripts/trombone2.ly
new file mode 100644 (file)
index 0000000..5667381
--- /dev/null
@@ -0,0 +1,39 @@
+% root = ../evenings-in-the-west.ly
+tromboneTWOMusic =
+\relative {
+  \clef bass
+  R1*3 |
+  R1*3/4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  r8 a,8~\p\> a4~ a2~ |
+  a1~ |
+  a16\pp r8. r4 r2 |
+  R1 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  r2 r4 a4~\pp^"straight mute" |
+  a1 |
+  R1 |
+  R1*2/4 |
+  \after 2.. \pp a1\p\> |
+  R1\fermata
+}
+
+tromboneTWOStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "tromboneTWO"
+    \with {
+      instrumentName = \markup { "trombone II " }
+      shortInstrumentName = \markup { "tbn II " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/tromboneI.ly b/manuscripts/tromboneI.ly
deleted file mode 100644 (file)
index 9107c64..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { trombone \bold "I" }
-  shortInstrumentName = \markup { tbn \bold "I " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef bass
-  \tempo Rubato 4=64
-  \time 4/4
-  R1 |
-  R1 |
-  R1 |
-  \time 3/4
-  r4 r4 d,4(\p |
-  \time 4/4
-  fis2..) f8~ |
-  \time 3/4
-  f2. |
-  \time 2/4
-  \tuplet 3/2 { b4 bes8( } ees8) r8 |
-  \time 4/4
-  r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata
-}
diff --git a/manuscripts/tromboneII.ly b/manuscripts/tromboneII.ly
deleted file mode 100644 (file)
index 489cedb..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { trombone \bold "II" }
-  shortInstrumentName = \markup { tbn \bold "II " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef bass
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
-  R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  r8 a,8~\p\> a4~ a2~ |
-  a1~ |
-  a16\pp r8. r4 r2 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  r2 r4 a4~\pp^"straight mute" |
-  a1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 \after 2 \pp a2.\p\> r4 |
-  R1\fermata
-}
diff --git a/manuscripts/trumpet1.ly b/manuscripts/trumpet1.ly
new file mode 100644 (file)
index 0000000..56b3943
--- /dev/null
@@ -0,0 +1,54 @@
+% root = ../evenings-in-the-west.ly
+trumpetONEMusic =
+\relative {
+  \tag #'score {
+    \override Voice.TextScript.stencil = ##f
+    \override Voice.Hairpin.stencil = ##f
+    \override Voice.DynamicText.stencil = ##f
+  }
+  \clef treble
+  r2^"practice mute" ees''2~\ppp\< |
+  ees2~\mp ees16 r8. ees4~\ppp\< |
+  ees2\mp \breathe ees2~\ppp\< |
+  ees16\mp r8. r4 r4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
+
+trumpetsStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "trumpets"
+    \with {
+      instrumentName = \markup { "trumpets " }
+      shortInstrumentName = \markup { "tpt " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
+
+trumpetStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "trumpet"
+    \with {
+      instrumentName = \markup { "trumpet " }
+      shortInstrumentName = \markup { "tpt " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/trumpet2.ly b/manuscripts/trumpet2.ly
new file mode 100644 (file)
index 0000000..968e251
--- /dev/null
@@ -0,0 +1,28 @@
+% root = ../evenings-in-the-west.ly
+trumpetTWOMusic =
+\relative {
+  \tag #'score {
+    \override Voice.TextScript.stencil = ##f
+    \override Voice.Hairpin.stencil = ##f
+    \override Voice.DynamicText.stencil = ##f
+  }
+  \clef treble
+  r2^"practice mute" des''2~\ppp\< |
+  des~\mp des16 r8. des4~\ppp\< |
+  des2\mp \breathe des2~\ppp\< |
+  des16\mp r8. r4 r4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
diff --git a/manuscripts/trumpet3.ly b/manuscripts/trumpet3.ly
new file mode 100644 (file)
index 0000000..ebce37c
--- /dev/null
@@ -0,0 +1,23 @@
+% root = ../evenings-in-the-west.ly
+trumpetTHREEMusic =
+\relative {
+  \clef treble
+  r2^"practice mute" f'2~\ppp\< |
+  f2~\mp f16 r8. f4~\ppp\< |
+  f2\mp \breathe f2~\ppp\< |
+  f16\mp r8. r4 r4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*4 |
+  r2 r2\fermata |
+  R1 |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
diff --git a/manuscripts/trumpetI.ly b/manuscripts/trumpetI.ly
deleted file mode 100644 (file)
index d8ff7a4..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { trumpet \bold "I" }
-  shortInstrumentName = \markup { tpt \bold "I " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4
-  r2^"practice mute" ees''2~\ppp\< |
-  ees2~\mp ees16 r8. ees4~\ppp\< |
-  ees2\mp \breathe \after 4. \mp ees2~\ppp\< |
-  \time 3/4
-  ees16 r8. r4 r4 |
-  \time 4/4
-  R1 |
-  \time 3/4
-  R1*3/4 |
-  \time 2/4
-  R1*2/4 |
-  \time 4/4
-  r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata
-}
diff --git a/manuscripts/trumpetII.ly b/manuscripts/trumpetII.ly
deleted file mode 100644 (file)
index b86410f..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { trumpet \bold "II" }
-  shortInstrumentName = \markup { tpt \bold "II " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4
-  r2^"practice mute" des''2~\ppp\< |
-  des~\mp des16 r8. des4~\ppp\< |
-  des2\mp \breathe \after 4. \mp des2~\ppp\< |
-  \time 3/4
-  des16 r8. r4 r4 |
-  \time 4/4
-  R1 |
-  \time 3/4
-  R1*3/4 |
-  \time 2/4
-  R1*2/4 |
-  \time 4/4
-  r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata
-}
diff --git a/manuscripts/trumpetIII.ly b/manuscripts/trumpetIII.ly
deleted file mode 100644 (file)
index 7fc56e6..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { trumpet \bold "III" }
-  shortInstrumentName = \markup { tpt \bold "III " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4
-  r2^"practice mute" f'2\ppp\< |
-  f2~\mp f16 r8. f4~\ppp\< |
-  f2\mp \breathe \after 4. \mp f2~\ppp\< |
-  \time 3/4
-  f16 r8. r4 r4 |
-  \time 4/4
-  R1 |
-  \time 3/4
-  R1*3/4 |
-  \time 2/4
-  R1*2/4 |
-  \time 4/4
-  r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  R1 |
-  r2 r2\fermata |
-  R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata
-}
index 014273dbe8845630464b9f9d427da79090921733..6a2ab040442c97d380becb8ede968a9193cce93e 100644 (file)
@@ -1,33 +1,39 @@
-% root = ../bloodMeridianSketch.ly
-\new Staff \with {
-  instrumentName = \markup { tuba }
-  shortInstrumentName = \markup { "tb " }
-  \consists Text_mark_engraver
-}
+% root = ../evenings-in-the-west.ly
+tubaMusic =
 \relative {
   \clef bass
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
+  R1*3 |
+  R1*3/4 |
   R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
   r8 a,,8~\mp\> a4~ a2~ |
   a2\! r4 r8 a8~\p\> |
   a1~ |
   a2\pp r2 |
   r2 r2\fermata |
   R1 |
-  \time 5/4 R1*5/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
+  R1*5/4 |
+  R1*2/4 |
+  r2 r2\fermata |
   r8 a8~\mp\> a4~ \after 4 \pp a2 |
+  R1*2 |
+  R1*2/4 |
   R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
   R1\fermata
 }
+
+
+tubaStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "tuba"
+    \with {
+      instrumentName = \markup { "tuba " }
+      shortInstrumentName = \markup { "tba " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists Merge_rests_engraver
+    }
+    << $music >>
+  #})
index 1ee89c1299d69385f89d2c16397795402563f364..f24ad3b655b591ffbb8d3dc2fd65f582ccd4cfdf 100644 (file)
@@ -1,36 +1,34 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { viola }
-  shortInstrumentName = \markup { "vla " }
-  \consists Text_mark_engraver
-}
+% root = ../evenings-in-the-west.ly
+violaMusic =
 \relative {
   \clef alto
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
-  R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
+  R1*3 |
+  R1*3/4 |
   R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
   r4 r8 d''8~->\p 2~ |
   8 cis8~-> cis4 a2~->\fermata |
   a8 r8 r4 r2 |
-  \time 5/4 \tuplet 3/2 { e4\pp f8( } \tuplet 3/2 { e4) f8( } \tuplet 3/2 { e8 f8 e8\< } \tuplet 3/2 { f8 e8 f8 } e16 f) fis8\p |
-  \time 2/4 \tuplet 3/2 { g4(\< c,) d\mp } |
-  \time 4/4 cis4(\> d4~\p d2)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 d,4\pp cis |
+  \tuplet 3/2 { e4\pp f8( } \tuplet 3/2 { e4) f8( } \tuplet 3/2 { e8 f8 e8\< } \tuplet 3/2 { f8 e8 f8 } e16 f) fis8\p |
+  \tuplet 3/2 { g4(\< c,) d\mp } |
+  cis4(\> d4~\p d2)\fermata |
+  R1*3 |
+  R1*2/4 |
+  r2 d,4\pp cis |
   dis1\fermata
-
-
 }
+
+violaStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "viola"
+    \with {
+      instrumentName = \markup { "viola " }
+      shortInstrumentName = \markup { "vla " }
+      \override DynamicLineSpanner.staff-padding = \sods
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/violin1.ly b/manuscripts/violin1.ly
new file mode 100644 (file)
index 0000000..3123fef
--- /dev/null
@@ -0,0 +1,35 @@
+% root = ../evenings-in-the-west.ly
+violinONEMusic =
+\relative {
+  \clef treble
+  R1*3 |
+  R1*3/4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
+  r4 r8 <c''' c'>8~\p 2~ |
+  8 <bes bes'>8~ 4 <c c'>2~\fermata |
+  8 r8 r4 r2 |
+  \tuplet 3/2 { gis,4\pp ais8( } \tuplet 3/2 { gis4) ais8( } \tuplet 3/2 { gis8 ais gis\< } \tuplet 3/2 { ais gis ais } gis16 ais) bes8\p |
+  \tuplet 3/2 { c4(\< b) cis\mp } |
+  d4(\> e,4~\p e2)\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
+
+violinONEStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "violinONE"
+    \with {
+      instrumentName = \markup { "violin I " }
+      shortInstrumentName = \markup { "vln I " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists "Merge_rests_engraver"
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/violin2.ly b/manuscripts/violin2.ly
new file mode 100644 (file)
index 0000000..b0768d9
--- /dev/null
@@ -0,0 +1,35 @@
+% root = ../evenings-in-the-west.ly
+violinTWOMusic =
+\relative {
+  \clef treble
+  R1*3 |
+  R1*3/4 |
+  R1 |
+  R1*3/4 |
+  R1*2/4 |
+  r2 r2\fermata |
+  R1*3 |
+  r4 r8 <a'' a'>8~\p 2~ |
+  8 8~ 4 2~\fermata |
+  8 r8 r4 r2 |
+  \tuplet 3/2 { e,4\pp g8( } \tuplet 3/2 { e4) g8( } \tuplet 3/2 { e8 g8 e8\< } \tuplet 3/2 { g8 e8 g8 } e16 g16) bes8\p |
+  \tuplet 3/2 { a4(\< e4) d4\mp } |
+  g4(\> cis,~\p cis2)\fermata |
+  R1*3 |
+  R1*2/4 |
+  R1 |
+  R1\fermata
+}
+
+violinTWOStaff =
+#(define-music-function (music) (ly:music?)
+  #{
+    \new Staff = "violinTWO"
+    \with {
+      instrumentName = \markup { "violin II " }
+      shortInstrumentName = \markup { "vln II " }
+      \override DynamicLineSpanner.staff-padding = \sods
+      \consists "Merge_rests_engraver"
+    }
+    << $music >>
+  #})
diff --git a/manuscripts/violinI.ly b/manuscripts/violinI.ly
deleted file mode 100644 (file)
index 248ff71..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { violin \bold I }
-  shortInstrumentName = \markup { vn \bold "I " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
-  R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  r4 r8 <c''' c'>8~\p 2~ |
-  8 <bes bes'>8~ 4 <c c'>2~\fermata |
-  8 r8 r4 r2 |
-  \time 5/4 \tuplet 3/2 { gis,4\pp ais8( } \tuplet 3/2 { gis4) ais8( } \tuplet 3/2 { gis8 ais gis\< } \tuplet 3/2 { ais gis ais } gis16 ais) bes8\p |
-  \time 2/4 \tuplet 3/2 { c4(\< b) cis\mp } |
-  \time 4/4 d4(\> e,4~\p e2)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata
-}
diff --git a/manuscripts/violinII.ly b/manuscripts/violinII.ly
deleted file mode 100644 (file)
index 5fe6411..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-% root = ../bloodMeridianSketch.ly
-
-\new Staff \with {
-  instrumentName = \markup { violin \bold II }
-  shortInstrumentName = \markup { vn \bold "II " }
-  \consists Text_mark_engraver
-}
-\relative {
-  \clef treble
-  \tempo Rubato 4=64
-  \time 4/4 R1 |
-  R1 |
-  R1 |
-  \time 3/4 R1*3/4 |
-  \time 4/4 R1 |
-  \time 3/4 R1*3/4 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 r2 r2\fermata |
-  R1 |
-  R1 |
-  R1 |
-  r4 r8 <a'' a'>8~\p 2~ |
-  8 8~ 4 2~\fermata |
-  8 r8 r4 r2 |
-  \time 5/4 \tuplet 3/2 { e,4\pp g8( } \tuplet 3/2 { e4) g8( } \tuplet 3/2 { e8 g8 e8\< } \tuplet 3/2 { g8 e8 g8 } e16 g16) bes8\p |
-  \time 2/4 \tuplet 3/2 { a4(\< e4) d4\mp } |
-  \time 4/4 g4(\> cis,~\p cis2)\fermata |
-  R1 |
-  R1 |
-  R1 |
-  \time 2/4 R1*2/4 |
-  \time 4/4 R1 |
-  R1\fermata
-}
diff --git a/parts/parts_evenings-in-the-west.ly b/parts/parts_evenings-in-the-west.ly
new file mode 100644 (file)
index 0000000..57feb6f
--- /dev/null
@@ -0,0 +1,504 @@
+\version "2.24.4"
+
+\include "../general/info.ly"
+\include "../lib/load.ly"
+\include "../general/partPaper.ly"
+\include "../general/partLayout.ly"
+
+\include "../manuscripts/tempoMap.ly"
+\include "../manuscripts/flute1.ly"
+\include "../manuscripts/flute2.ly"
+\include "../manuscripts/oboe1.ly"
+\include "../manuscripts/oboe2.ly"
+\include "../manuscripts/clarinet1.ly"
+\include "../manuscripts/clarinet2.ly"
+\include "../manuscripts/bassoon1.ly"
+\include "../manuscripts/bassoon2.ly"
+\include "../manuscripts/horn1.ly"
+\include "../manuscripts/horn3.ly"
+\include "../manuscripts/horn2.ly"
+\include "../manuscripts/horn4.ly"
+\include "../manuscripts/trumpet1.ly"
+\include "../manuscripts/trumpet2.ly"
+\include "../manuscripts/trumpet3.ly"
+\include "../manuscripts/trombone1.ly"
+\include "../manuscripts/trombone2.ly"
+\include "../manuscripts/tuba.ly"
+\include "../manuscripts/percussion1.ly"
+\include "../manuscripts/percussion2.ly"
+\include "../manuscripts/timpani.ly"
+\include "../manuscripts/baritone.ly"
+\include "../manuscripts/violin1.ly"
+\include "../manuscripts/violin2.ly"
+\include "../manuscripts/viola.ly"
+\include "../manuscripts/cello.ly"
+\include "../manuscripts/bass.ly"
+
+#(define output-suffix "fluteI")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "flute I" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \fluteONEStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \fluteONEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "fluteII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "flute II" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \fluteTWOStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \fluteTWOMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "oboeI")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { oboe I }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \oboeONEStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \oboeONEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "oboeII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { oboe II }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \oboeTWOStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \oboeTWOMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "clarinetI")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { clarinet I (in \concat { B \flat ) } }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \clarinetONEStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \clarinetONEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "clarinetII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { clarinet II (in \concat { B \flat ) } }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \clarinetTWOStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \clarinetTWOMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "bassoonI")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { bassoon I }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \bassoonONEStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \bassoonONEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "bassoonII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { bassoon II }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \bassoonTWOStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \bassoonTWOMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "hornI")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { Horn I (in F) }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \hornStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \hornONEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "hornII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { Horn II (in F) }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \hornStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \hornTWOMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "hornIII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { Horn III (in F) }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \hornStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \hornTHREEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "hornIV")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { Horn IV (in F) }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \hornStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \hornFOURMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "trumpetI")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { trumpet I (in C) }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \trumpetStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \trumpetONEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "trumpetII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { trumpet II (in C) }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \trumpetStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \trumpetTWOMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "trumpetIII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { trumpet III (in C) }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \trumpetStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \trumpetTHREEMusic >>
+      >>
+    }
+  }
+}
+
+
+#(define output-suffix "tromboneI")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { trombone I }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \tromboneONEStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \tromboneONEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "tromboneII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "trombone II" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \tromboneTWOStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \tromboneTWOMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "tuba")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "tuba" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \tubaStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \tubaMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "percussionI")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "percussion I" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \percussionONEStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \percussionONEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "percussionII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "percussion II" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \percussionTWOStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \percussionTWOMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "timpani")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "timpani" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \timpaniStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \timpaniMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "violinI")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "violin I" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \violinONEStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \violinONEMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "violinII")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "violin II" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \violinTWOStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \violinTWOMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "viola")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "viola" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \violaStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \violaMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "cello")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "cello" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \celloStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \celloMusic >>
+      >>
+    }
+  }
+}
+
+#(define output-suffix "bass")
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { "bass" }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \bassStaff \compressMMRests << \removeWithTag #'score \tempoMap \removeWithTag #'score \bassMusic >>
+      >>
+    }
+  }
+}
diff --git a/solo/soloClarinet_tiny-cartel.ly b/solo/soloClarinet_tiny-cartel.ly
new file mode 100644 (file)
index 0000000..b15c26b
--- /dev/null
@@ -0,0 +1,210 @@
+\version "2.24.4"
+
+\include "../general/info.ly"
+\include "../lib/load.ly"
+
+\paper {
+  line-width = 120
+  #(include-special-characters)
+  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 = ##f
+  top-margin = 0.5\in
+  bottom-margin = 0.5\in
+  left-margin = 0.625\in
+  right-margin = 0.625\in
+  indent = 0.75\in
+  short-indent = 0\cm
+  ragged-last = ##t
+  #(define fonts (set-global-fonts #:music "scorlatti" #:brace "scorlatti" #:roman "Junicode" #:sans "sans"))
+  max-systems-per-page = #8
+  min-systems-per-page = #2
+  markup-system-spacing = #'((basic-distance . 2) (minimum-distance . 1) (padding . 2))
+  system-system-spacing = #'((basic-distance . 5) (minimum-distance . 3) (padding . 8))
+  score-markup-spacing = #'((basic-distance . 4) (minimum-distance . 3) (padding . 4))
+  score-system-spacing = #'((basic-distance . 0) (minimum-distance . 0) (padding . 0))
+  last-bottom-spacing = #'((basic-distance . 4) (minimum-distance . 2) (padding . 5))
+  tocTitleMarkup = \markup {  }
+  tocItemMarkup = \markup \fill-line {
+    \fill-with-pattern #1.5 #CENTER .
+    \line {
+      \fromproperty #'toc:indent \fromproperty #'toc:text
+    }
+    \sans \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 #13 \oddhead }
+    \concat { \if \on-page #15 \oddhead }
+    \concat { \if \on-page #19 \oddhead }
+    \concat { \if \on-page #21 \oddhead }
+    \concat { \if \on-page #23 \oddhead }
+    \concat { \if \on-page #25 \oddhead }
+    \concat { \if \on-page #27 \oddhead }
+    \concat { \if \on-page #29 \oddhead }
+    \concat { \if \on-page #31 \oddhead }
+    \concat { \if \on-page #33 \oddhead }
+    \concat { \if \on-page #35 \oddhead }
+    \concat { \if \on-page #37 \oddhead }
+    \concat { \if \on-page #39 \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 #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 }
+    \concat { \if \on-page #24 \evhead }
+    \concat { \if \on-page #26 \evhead }
+    \concat { \if \on-page #28 \evhead }
+    \concat { \if \on-page #30 \evhead }
+    \concat { \if \on-page #32 \evhead }
+    \concat { \if \on-page #34 \evhead }
+    \concat { \if \on-page #36 \evhead }
+    \concat { \if \on-page #38 \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 #11 \oddfoot }
+    \concat { \if \on-page #13 \oddfoot }
+    \concat { \if \on-page #15 \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 }
+    \concat { \if \on-page #27 \fill-line { \null \concat { \char ##x2767 " " \tiny \typewriter \longHash " " \char ##x2619 } \null } }
+    \concat { \if \on-page #29 \oddfoot }
+    \concat { \if \on-page #31 \oddfoot }
+    \concat { \if \on-page #33 \oddfoot }
+    \concat { \if \on-page #35 \oddfoot }
+    \concat { \if \on-page #37 \oddfoot }
+    \concat { \if \on-page #39 \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 }
+    \concat { \if \on-page #24 \evfoot }
+    \concat { \if \on-page #26 \evfoot }
+    \concat { \if \on-page #28 \evfoot }
+    \concat { \if \on-page #30 \evfoot }
+    \concat { \if \on-page #32 \evfoot }
+    \concat { \if \on-page #34 \evfoot }
+    \concat { \if \on-page #36 \evfoot }
+    \concat { \if \on-page #38 \evfoot }
+  }
+}
+
+
+\include "../manuscripts/tempoMap.ly"
+\include "../manuscripts/scorePages.ly"
+\include "../manuscripts/clarinetSolo.ly"
+\include "../manuscripts/flute.ly"
+\include "../manuscripts/oboe.ly"
+\include "../manuscripts/bassClarinet.ly"
+\include "../manuscripts/bassoon.ly"
+\include "../manuscripts/horn.ly"
+\include "../manuscripts/trumpet.ly"
+\include "../manuscripts/trombone.ly"
+\include "../manuscripts/perc1.ly"
+\include "../manuscripts/perc2.ly"
+\include "../manuscripts/pianoUp.ly"
+\include "../manuscripts/pianoDown.ly"
+\include "../manuscripts/violin1.ly"
+\include "../manuscripts/violin2.ly"
+\include "../manuscripts/viola.ly"
+\include "../manuscripts/cello.ly"
+\include "../manuscripts/bass.ly"
+
+\book {
+  \bookpart {
+    \header {
+      title = \markup { \fontsize #1 \xtitle }
+      subtitle = \markup { \medium \italic \xsub }
+      composer = \xcomp
+      poet = \markup { \concat { "clarinet in B" \flat } }
+      arranger = \markup { \tiny \typewriter { \shortHash - \branchName } }
+    }
+    \score {
+      <<
+        \clarinetStaff \compressMMRests << \removeWithTag #'part \tempoMap \removeWithTag #'score \clarinetMusic >>
+      >>
+      \layout {
+        \context {
+          \Score
+          \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
+          \override InstrumentName.self-alignment-X = 1
+          \override RehearsalMark.break-visibility = #begin-of-line-invisible
+          \override Hairpin.to-barline = ##f
+          \overrideTimeSignatureSettings 4/4 1/4 1,1,1,1 #'()
+          \overrideTimeSignatureSettings 3/4 1/4 1,1,1 #'()
+          \overrideTimeSignatureSettings 5/8 1/8 2,3 #'()
+          \override BarNumber.font-name = "classico"
+          \phrasingSlurDashPattern #0.5 #2.0
+          \override PhrasingSlur.thickness = 0.5
+          \override StaffSymbol.layer = #4
+          \override Stem.layer = #4
+          \override Beam.layer = #4
+          \override Hairpin.layer = #4
+          \override TimeSignature.layer = #2
+          \override Tie.layer = #1
+          \override TupletBracket.layer = #2
+          \override StringNumber.layer = #2
+          \override TextSpanner.layer = #3
+          \override NoteHead.layer = #4
+          \override Accidental.layer = #4
+          \override TimeSignature.whiteout = 2
+          \override Fermata.outside-staff-priority = 200
+          \numericTimeSignature
+          \romanStringNumbers
+          \override TupletNumber.layer = 4
+          \override TupletNumber.font-shape = #'upright
+          rehearsalMarkFormatter = #rounded-measure-number-mark
+          \remove Text_mark_engraver
+          \remove Mark_engraver
+          \remove Metronome_mark_engraver
+          \remove Instrument_name_engraver
+          \override MultiMeasureRest.expand-limit = 1
+          \override RehearsalMark.break-visibility = #(vector #f #t #t)
+          quotedCueEventTypes = #'(note-event rest-event tie-event beam-event tuplet-span-event)
+        }
+        \context {
+          \Staff
+          \consists Metronome_mark_engraver
+          \remove Instrument_name_engraver
+          \consists Text_mark_engraver
+          pedalSustainStyle = #'bracket
+        }
+        \context {
+          \Voice
+          \remove Instrument_name_engraver
+        }
+      }
+    }
+  }
+}