2 \include "pop-chords.ly"
5 % Good sizes are 16, 18, & 20
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
15 %Let's bump up the title size and switch to the chord font. :-)
17 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "You Have Been Good" }
19 % subtitle = \markup { \fret-diagram #"6-3;5-x;4-2;3-o;2-3;1-3;" " - " \fret-diagram-terse #"3-(;6;;5;4;3-);" }
20 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Twila Paris" }
21 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
22 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
32 \override Staff.TimeSignature #'style = #'()
46 \mark \markup { \override #'(font-family . sans) { \box { A } } }
60 \once \override Score.RehearsalMark #'self-alignment-X = #left
61 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
81 s2. s4. s8^\markup { \hspace #4.0 \raise #1.0 \bold { D.S. } } s s \bar "||" % 22
100 LeadVox = \relative c'
103 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
114 d2. ~ d4. d8 d a' | % 5
115 a2. ~ a4. d,8 e fs | % 6
116 e4. d ~ d4 d8 d e fs | % 7
119 d2. ~ d4. d8 d a' | % 9
120 a2. ~ a4. d,8 e fs | % 10
121 e4. d ~ d4 d8 d e fs | % 11
122 e4. d r d8 fs a | % 12
126 b2. ~ b4. cs,8 e a | % 13
127 a2. ~ a4. d,8 e fs | % 14
128 e4. d ~ d b8 d e | % 15
133 d2. ~ d4. d8 d a' | % 17
134 a2. ~ a4. d,8 e fs | % 18
135 e4. d ~ d d8 fs e | % 19
140 d2. r4. d8 fs a | % 22
142 d,2. r4. d8 e fs | % 23
146 e4. d r d8 fs e | % 24
147 d2. r4. d8 e fs | % 25
148 e4. d r d8 fs e | % 26
152 LeadVoxText = \lyricmode
154 O Lord, _ you have been good, _
155 you have been faith -- ful _ to all gen -- e -- ra -- tions.
156 O Lord, _ your stead -- fast love _
157 and ten -- der mer -- cy _ have been our sal -- va -- tion.
159 For by your hand, _ we have been fed _
160 And by your spi -- rit, _ we have been led
161 O Lord, _ you have been good, _
162 you have been faith -- ful, _ you have been good.
168 you have been faith -- ful, you have been good.
169 you have been faith -- ful, you have been good.
172 LeadVoxTextB = \lyricmode
175 _ _ _ _ _ _ _ _ _ _ _ _
176 O Lord, _ Al -- migh -- ty God, _
177 Fa -- ther un -- chang -- ing, _ _ up -- right and ho -- ly.
186 \repeat "percent" 3 { <d a fs>4. <d a g> <d a fs> << \tiny d \\ \tiny { b8 a g } >> } | % 1 - 3
197 %Bah, can't we set this globally?
205 d4. d:sus4 d g/a | % 4
210 fs2.:m7 b4.:m7 b:m7/a | % 6
212 e4.:m7/d d g2./a | % 8
215 fs2.:m7 b4.:m7 b:m7/a | % 10
217 e4.:m7/d d2. d4./fs | % 12
222 fs2.:m7 b4.:m7 b:m7/a | % 14
228 d4. d:sus4 d2. | % 17
229 fs2.:m7 b4.:m7 b:m7/a | % 18
232 d4. d:sus4 d g | % 20
233 d4. d:sus4 d g/a | % 21
235 d4. d:sus4 d d/fs | % 22
237 d4. d:sus4 d d/fs | % 23
242 d4. d:sus4 d d/fs | % 25
252 % Use a RhythmicStaff on the chords instead of this?
253 % It almost works, but not quite. Doesn't collapse chords above to single notes...
257 \override Staff.TimeSignature #'style = #'()
258 \override NoteHead #'style = #'slash
309 s4._\markup { \dynamic mf \italic { piano only, rolling } } s s s | % 1
313 s4._\markup { \italic { add bass & drum colors } } s s s | % 3
317 s4._\markup { \dynamic mf \italic { 1st X stick, 2nd X snare } } s s s | % 5
321 s4. s s \< s \! | % 12
322 s4._\markup { \dynamic f \italic { snare } } s s s | % 13
326 s4. s s \> s \! | % 21
327 s4. s s \< s \! | % 22
331 s4._\markup { \italic { rit. } } s s2. | % 26
339 \Global % The "roadmap" that everything else depends on
343 \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
344 \new Lyrics \lyricsto "lead" \LeadVoxText
345 \new Lyrics \lyricsto "lead" \LeadVoxTextB
350 \new ChordNames \Chords
351 \new RhythmicStaff << \Rhythm \Dynamics >>
354 \set Score.skipBars = ##t
355 \set Score.melismaBusyProperties = #'()
362 #(define fonts (make-pango-font-tree
368 % Spread staves vertically across last page (default: t)
369 ragged-last-bottom = ##f
370 % Spread staves vertically across the page (default: f)
371 % ragged-bottom = ##t
372 % Allow partial line for last stave (default: f)
375 % To find out what's eating the space at the top...
376 % annotate-spacing = ##t
377 %let's try this: [It works! Huzzah!]
378 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)