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 "We Are One In The Spirit" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Let's try a chord dictionary
22 % subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } }
25 % Useful tweak abbreviations (hn = harmony note)
27 hn = #(define-music-function (parser location arg) (ly:music?)
28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
30 (set! (ly:music-property arg 'tweaks)
31 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
40 \override Staff.TimeSignature #'style = #'()
43 \once \override TextScript #'padding = #2.0
44 s1*0^\markup { \large \bold { Funk } }
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
55 \once \override Score.RehearsalMark #'self-alignment-X = #left
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
59 \mark \markup { \override #'(font-family . sans) { \box { B } } }
76 \mark \markup { \override #'(font-family . sans) { \box { C } } }
78 s1*0^\markup { \large \bold \italic { Solos } }
84 s2. s4^\markup { \large \bold \italic { Free Time } } | % 39
85 s1*3 \bar "|." % 40-42
92 LeadVox = \relative c'
94 % \set Staff.instrument = #"Lead vox"
96 \override Staff.TimeSignature #'style = #'()
98 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
113 e4 e8 d e g b, d | % 9
114 e4 e8 d e r e b' | % 10
115 a4 a8 g a g e d | % 11
116 e4 e8 b d r e b' | % 12
117 a4 a8 g a g e d | % 13
118 e8 e e d e r b d | % 14
120 e4 e8 b e g b, d | % 15
121 e4 e8 g a r g a | % 16
122 b8 ( a ) g e a g e d | % 17
139 b8 a g e a g e-> d-> | % 40
145 LeadVoxText = \lyricmode
147 We are one in the spi -- rit,
148 we are one in the Lord.
149 We are one in the spi -- rit,
150 we are one in the Lord.
151 And we pray that all un -- i -- ty
152 may one day be re -- stored.
153 And they’ll know we are Christ -- ians
154 by our love, by our love,
155 yes they’ll know _ we are Christ -- ians by our love.
160 LeadVoxTextB = \lyricmode
162 _ _ work with each oth -- er,
163 We will work side by side.
164 We will work with each oth -- er,
165 We will work side by side.
166 And we’ll guard each one’s dig -- ni -- ty
167 And save _ each one’s pride.
169 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
174 LeadVoxTextC = \lyricmode
176 _ _ walk with each oth -- er,
177 We will walk hand in hand.
178 We will walk with each oth -- er,
179 We will walk hand in hand.
180 And to -- ge -- ther we’ll spread the news
181 that God is in our land.
189 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
194 % \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4
217 e4.:sus4.7 e8:sus4.7/a s4.. e16:sus4.7 | % 9
218 s2. s8. e16:m7/a | % 10
219 s4. a8:9 s4.. e16:sus4.7 | % 11
220 s2. s8. e16:m7/a | % 12
221 s4. a8:9 s4.. e16:sus4.7 | % 13
222 s2. ef8.:m9 d16:m9 | % 14
224 s4.. g2:13.9- c16:maj9 | % 15
225 s4.. f2:maj7 fs16:m7.5- | % 16
226 s4.. b16:7 s4 b8.:aug7.9+ e16:m9 | % 17
227 s4.. a2:13 e16:m9 | % 18
228 s4.. a16:13 s4 b8.:aug7.9+ e16:m9 | % 19
229 s4.. a16:13 s4.. e16:m9 | % 20
231 s4.. a16:13 s2 | % 21
233 s4.. a16:13 s2 | % 22
237 e4.:m9 a8:5.9 s2 | % 23
238 e4.:m9 a8:9 s2 | % 24
242 e4..:m9 a2:13 s16 | % 39
243 fs2:m7.5- b:aug7.9+ | % 40
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 %% \set Voice.autoBeaming = ##f
258 %% \set Staff.instrument = #"Rhythm"
259 \override Staff.TimeSignature #'style = #'()
260 \override NoteHead #'style = #'slash
314 s4_\markup { \bold \italic { Drums In } } s2. | % 3
316 s4_\markup { \bold \italic { Band In } } s2. | % 5
323 \set Score.skipBars = ##t
324 \set Score.melismaBusyProperties = #'()
328 \new ChordNames \Chords
330 % \new ChordNames \transpose b g \Chords
331 \new RhythmicStaff << \Rhythm \Dynamics >>
336 \Global % The "roadmap" that everything else depends on
337 \new Voice = "lead" \LeadVox
339 \new Lyrics \lyricsto "lead" \LeadVoxText
340 \new Lyrics \lyricsto "lead" \LeadVoxTextB
341 \new Lyrics \lyricsto "lead" \LeadVoxTextC
349 #(define fonts (make-pango-font-tree
355 % Spread staves vertically across last page (default: t)
356 ragged-last-bottom = ##f
357 % Don't spread staves vertically across the page (default: f)
358 % ragged-bottom = ##t
359 % Allow partial line for last stave (default: f)
362 % To find out what's eating the space at the top...
363 % annotate-spacing = ##t
364 %let's try this: [It works! Huzzah!]
365 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)