2 \include "pop-chords.ly"
5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
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 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "We Are One In The Spirit" }
16 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Useful tweak abbreviations (hn = harmony note)
23 hn = #(define-music-function (parser location arg) (ly:music?)
24 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
26 (set! (ly:music-property arg 'tweaks)
27 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
39 \once \override TextScript #'padding = #2.0
40 s1*0^\markup { \large \bold { Funk } }
42 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
47 s1*4 \bar ".|:-||" % 5-8
51 \once \override Score.RehearsalMark #'self-alignment-X = #left
52 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
57 \once \override Score.RehearsalMark #'self-alignment-X = #left
58 \mark \markup { \override #'(font-family . sans) \hspace #1.0 \raise #2.0 \musicglyph #"scripts.coda" { \bold { To CODA } } }
73 \mark \markup { \override #'(font-family . sans) { \box { B } } }
75 s1*0^\markup { \large \bold \italic { Solos } }
76 s1*2 \bar "||" % 23-24
89 \once \override Score.RehearsalMark #'self-alignment-X = #right
90 \mark \markup { \bold { D.S. al Coda } }
96 % blank measure between last measure and coda
97 \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
98 % \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
100 \set Score.currentBarNumber = #39
102 \once \override Score.RehearsalMark #'self-alignment-X = #left
103 \mark \markup { { \musicglyph #"scripts.coda" } { \bold { Coda } } }
107 s2. s4^\markup { \large \bold \italic { Free Time } } | % 39
108 s1*3 \bar "|." % 40-42
115 LeadVox = \relative c'
130 e4 r16 e d e ~ e g8.-> b,8 d | % 9
131 e4 r16 e d e-. r4 e8-- ( b'-- ) | % 10
132 a4 r16 a g a ~ a ( g8.-> ) e8 d | % 11
133 e8 b e16 b d e-. r8. d16 \override Glissando #'style = #'zigzag e8 \glissando b' | % 12
134 %\override Glissando #'style = #'zigzag
136 a8 r r16 a g a ~ a ( g8. ) e8 d | % 13
137 e8-- e-- e-- d16 e-^ r4 b8 d | % 14
139 e8 r e16 b d e ~ e g8. e8 d16 e ~ | % 15
140 e8 r e g16 a ~ a8 r g a16 b ~ | % 16
141 b8 a g e16 a ~ a g8. e8 d16 e ~ | % 17
172 % Blank measure, for Coda
178 b8 a g e a g e-> d-> | % 40
184 LeadVoxText = \lyricmode
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 s4 ef:sus4.7 | % 22
237 e4.:sus4.7 a8:3.5.9 s2 | % 23
238 e4.:m9 a8:9 s2 | % 24
240 e4.:m9 a8:9 s2 | % 25
241 e4.:m9 a8:9 s2 | % 26
245 e2:m9 a4:9 ef8.:m9 d16:m9 | % 30
246 s4.. g2:13.9- c16:maj9 | % 31
247 s4.. f2:maj7 fs16:m7.5- | % 32
248 s4.. b2:aug7.9+ e16:m9 | % 33
249 s4.. a2:13 e16:m9 | % 34
250 s4.. a2:13 e16:m9 | % 35
251 s4.. a2:13 e16:m9 | % 36
253 s4.. a2:13 s16 | % 37
255 s4.. a2:13 s16 | % 38
257 % Blank measure, for Coda
262 e4..:m9 a2:13 s16 | % 39
263 fs2:m7.5- b:aug7.9+ | % 40
274 \numericTimeSignature
275 \override NoteHead #'style = #'slash
331 % Blank measure, for Coda
347 % s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
354 \set Score.skipBars = ##t
355 \set Score.melismaBusyProperties = #'()
359 \new ChordNames \Chords
360 \new RhythmicStaff << \Rhythm \Dynamics >>
365 \Global % The "roadmap" that everything else depends on
366 \new Voice = "lead" \LeadVox
374 #(define fonts (make-pango-font-tree
380 % Spread staves vertically across last page (default: t)
381 ragged-last-bottom = ##f
382 % Don't spread staves vertically across the page (default: f)
383 % ragged-bottom = ##t
384 % Allow partial line for last stave (default: f)
387 % To find out what's eating the space at the top...
388 % annotate-spacing = ##t