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 "There’s A Sweet, Sweet Spirit" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Doris Akers" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
23 % Useful tweak abbreviations (hn = harmony note)
25 hn = #(define-music-function (parser location arg) (ly:music?)
26 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
28 (set! (ly:music-property arg 'tweaks)
29 (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
38 \override Staff.TimeSignature #'style = #'()
43 % \once \override TextScript #'padding = #2.0
44 % s1*0^\markup { \large \bold { Moderately fast pop } }
46 %% s1*0^\markup { \large \bold { Moderately fast pop "(*** CAPO 3 ***)" } }
47 % s1*13 \bar "||:" % 1-13
55 \mark \markup { \override #'(font-family . sans) { \box { A } } }
59 s2 s^\markup { \fret-diagram-terse #"x;2;3;2;3;x;" }
68 \mark \markup { \override #'(font-family . sans) { \box { B } } }
78 LeadVox = \relative c'
81 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
94 g8 ( e ) d4 fs8 ( g ) a4 | % 7
103 g8 ( e ) d4 fs8 ( g ) a4 | % 15
115 b8 a g4 b8 ( a ) g4 | % 24
122 b4 a8 g ~ g e g a | % 30
123 b4 a8 g ~ g4 a4 | % 31
129 LeadVoxText = \lyricmode
131 There’s a sweet, sweet spir -- it in this place, _
132 And I know that it’s the spir -- _ it of _ the Lord; _
133 There are sweet ex -- pres -- sions on each face, _
134 And I know they feel the pres -- _ ense of _ the Lord. _
136 Sweet Ho -- ly Spir -- it, Sweet hea -- ven -- ly dove,
137 Stay right here with _ us, Fill -- ing us with _ your love;
138 And for these bless -- ings We lift our hearts in praise; _
139 With -- out a doubt we’ll know _
140 that we have been re -- vived, _
141 When we shall leave this place. _
146 LeadVoxTextB = \lyricmode
150 bless -- ings you can -- not re -- ceive _
151 ’Til you know him in his full -- _ ness and _ be -- lieve; _
152 You’re the one to prof -- it when you say, _
153 “I am going to walk with Je -- _ sus all _ the way.” _
156 _ _ _ _ _ _ _ _ _ _ _ _ _
157 _ _ _ _ _ _ _ _ _ _ _ _
165 LeadVoxTextC = \lyricmode
169 say he saved you from your sin, _
170 Now you’re weak you’re bound and can -- _ not en -- _ ter in; _
171 You can make it right if you will yield, _
172 You’ll en -- joy the Ho -- ly Spir -- _ it that _ we feel.
179 Riffs = \relative c''
197 d8 ef4 f8 ~ f4 bf-. | % 12
203 r8 df df df df ( c ) bf4 | % 83
215 %Bah, can't we set this globally?
228 a2:m a4:m/b a:m/c | % 6
237 a2:m a4:m/b a:m/c | % 14
269 % Use a RhythmicStaff on the chords instead of this?
270 % It almost works, but not quite. Doesn't collapse chords above to single notes...
274 \override Staff.TimeSignature #'style = #'()
275 \override NoteHead #'style = #'slash
316 c4 c8 c ~ c4 c | % 30
317 c4 c8 c ~ c4 c | % 31
327 s4_\markup { \italic { Ac. gtr only } } s2. | % 1
331 s4_\markup { \italic { Band in } } s2. | % 5
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
346 \new Lyrics \lyricsto "lead" \LeadVoxTextC
351 \new ChordNames \Chords
353 % \new ChordNames \transpose f d \Chords
354 \new RhythmicStaff << \Rhythm \Dynamics >>
357 \set Score.skipBars = ##t
358 \set Score.melismaBusyProperties = #'()
365 #(define fonts (make-pango-font-tree
371 % Spread staves vertically across last page (default: t)
372 % ragged-last-bottom = ##f
373 % Don't spread staves vertically across the page (default: f)
374 % ragged-bottom = ##t
375 % Allow partial line for last stave (default: f)
378 % To find out what's eating the space at the top...
379 % annotate-spacing = ##t
380 %let's try this: [It works! Huzzah!]
381 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)