From: tuckerajohnsonmusic@gmail.com <tuckerajohnsonmusic@gmail.com>
Date: Tue, 17 Jan 2023 14:06:49 +0000 (-0500)
Subject: work
X-Git-Url: https://git.newer.systems/?a=commitdiff_plain;h=fa13e578285bd8c95b247fea5ba3d3a91dd80f1d;p=for-me-the-cowbell.git

work
---

diff --git a/manuscripts/manuscript.ly b/manuscripts/manuscript.ly
index 16bd5d6..e738fd6 100644
--- a/manuscripts/manuscript.ly
+++ b/manuscripts/manuscript.ly
@@ -1,27 +1,45 @@
 %cowbell project
 
 \new Staff \with {
-   \override NoteHead.no-ledgers = ##t
+  instrumentName = "g1 "
+  shortInstrumentName = "g1 "
+  \override NoteHead.no-ledgers = ##t
+  \override DynamicLineSpanner.staff-padding = \phds
 }
 \relative {
-  \numericTimeSignature
-  \override Staff.StaffSymbol.line-positions = #'(6 -6)
+  \dtim
+  \override Staff.StaffSymbol.line-positions = #'(4.5 -4.5)
+  \override Staff.Stem.stemlet-length = #0.75
+  \override Rest.staff-position = #0
   \clef percussion
-  \time 2/4
-  \tmark
-  g4-+\pp b8-+ d8-+ | r16 f8[-+
-  g,16]-+ r4 | \time 5/16 r8 d'16[-+ b8-+] | \time 2/4 f'16-+
-  d8.-+ g,16-+ f'8.-+ | c4-+
-   |
-
-
+  \time 4/4
+  \sectionLabel \markup { \sans \box "Recitative" }
+  \tempo "Allegro moderato" 4=98
+  \tuplet 5/4 { g8->\mf\>^\markup { \smaller \italic "cantabile" } g g g\pp g } r4 \tuplet 3/2 { b8(\< d8 f8)-+\mp } \mark \markup { \musicglyph "scripts.ushortfermata" } |
+  \tuplet 5/4 { g,8->\mf\> g g16\pp_+ } \override Staff.Beam.positions = #'(-4.6 . -4.6) r8[ r32 \buzz g'16.]~->\f\> \buzz g4 r16[ b,16-+\p r32 d16.]-+ \mark \markup { \musicglyph "scripts.ushortfermata" } |
+  \revert Staff.Beam.positions \once \override TupletNumber.text = #(tuplet-number::fraction-with-notes (ly:make-duration 4 ) (ly:make-duration 4))
+  \tuplet 6/5 { a8[(\<  c8 e8] } \buzz g8.~ \buzz g4~\fp \buzz g4) \mark \markup { \musicglyph "scripts.ushortfermata" } |
+  b,8.\mf\> 16~ 8 16-+\p f'16->\f\> \tuplet 3/2 { 8-> 8 8 } \tuplet 3/2 { 8 16_+\pp } f,16_+ d'16_+ \mark \markup { \musicglyph "scripts.ushortfermata" } |
+  f,8[(\< f' b,] \buzzd c8~\mp \buzzd c2) \mark \markup { \musicglyph "scripts.ushortfermata" } |
+  e32(\f c32 \buzzdd b8.~\> \buzzd b4) \override Staff.Beam.positions = #'(4 . 4) b32[(\p g32) r16 r8] r4 \mark \markup { \musicglyph "scripts.ushortfermata" } |
+  \revert Staff.Beam.positions
+  b8.\mf\> 16~ 8 16-+\p f'\f \override Staff.Beam.positions = #'(2.5 . 2.5) r8[ g,8]_+\p \override Staff.Beam.positions = #'(-4 . -4) r16[ d'8.]\mf \mark \markup { \musicglyph "scripts.ushortfermata" } |
+  \revert Staff.Beam.positions
+  d4\< <g, b> f'\f <g, b>\mp\fermata
+  \bh
+  \set Staff.shortInstrumentName = \markup { \right-column { "g2 " \line { "g3 " } \line { "g4 " } } }
+  \stopStaff
+  \section \sectionLabel \markup { \sans \box "Serenade" }
+  \override Staff.StaffSymbol.line-positions = #'(9 3 -3 -9)
+  \startStaff r4^\markup { \smaller \italic "quasi chitarra" } r4 r4 r4 | r4 r4 r4 r4 | r4 r4 r4 r4 | r4 r4 r4 r4 |
 
    }
 %\midi { }
 \layout {
 \context {
-\Score
-\override BarNumber.font-size = #1
-\override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
+  \Score
+    \override RehearsalMark.break-visibility = #begin-of-line-invisible
+    \override BarNumber.font-size = #1
+    \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/20)
 }
 }
diff --git a/manuscripts/manuscript.pdf b/manuscripts/manuscript.pdf
index e83abf6..8609857 100644
Binary files a/manuscripts/manuscript.pdf and b/manuscripts/manuscript.pdf differ
diff --git a/variables/program notes.ly b/variables/program notes.ly
index 5d0f61d..ac9c598 100644
--- a/variables/program notes.ly	
+++ b/variables/program notes.ly	
@@ -1,4 +1,4 @@
 %cowbell project
 
 xpnote = \markup { \override #'(line-width . 90) \justify {
-Jo Kondo }}
+\null }}
diff --git a/variables/variables.ly b/variables/variables.ly
index fc7b10a..bdfc71f 100644
--- a/variables/variables.ly
+++ b/variables/variables.ly
@@ -39,3 +39,43 @@ dtwo = \change Staff = "di2"
 
 U = \change Staff = "u"
 D = \change Staff = "d"
+
+
+buzzSymbol = \markup \path #0.25
+#(let ((x 3/6) (y 2/5))
+  `((moveto ,x ,(- y)) (lineto ,(- x) ,(- y))
+    (lineto ,x ,y) (lineto ,(- x) ,y)))
+
+applyBuzzSymbol = #(grob-transformer 'stencil
+  (lambda (grob orig)
+   (let ((dir (ly:grob-property grob 'direction))
+         (sten (grob-interpret-markup grob buzzSymbol)))
+    (ly:stencil-add orig
+	 (ly:stencil-translate-axis sten (* 0.1 dir) Y)))))
+
+applyBuzzuSymbol = #(grob-transformer 'stencil
+  (lambda (grob orig)
+   (let ((dir (ly:grob-property grob 'direction))
+         (sten (grob-interpret-markup grob buzzSymbol)))
+    (ly:stencil-add orig
+	 (ly:stencil-translate-axis sten (* 1.6 dir) Y)))))
+
+applyBuzzdSymbol = #(grob-transformer 'stencil
+  (lambda (grob orig)
+   (let ((dir (ly:grob-property grob 'direction))
+         (sten (grob-interpret-markup grob buzzSymbol)))
+    (ly:stencil-add orig
+	 (ly:stencil-translate-axis sten (* 1.6 dir) Y)))))
+
+applyBuzzddSymbol = #(grob-transformer 'stencil
+  (lambda (grob orig)
+   (let ((dir (ly:grob-property grob 'direction))
+         (sten (grob-interpret-markup grob buzzSymbol)))
+    (ly:stencil-add orig
+	 (ly:stencil-translate-axis sten (* 2.1 dir) Y)))))
+
+
+buzz = \tweak Stem.stencil \applyBuzzSymbol \etc
+buzzu = \tweak Stem.stencil \applyBuzzuSymbol \etc
+buzzd = \tweak Stem.stencil \applyBuzzdSymbol \etc
+buzzdd = \tweak Stem.stencil \applyBuzzddSymbol \etc