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 % \mark \markup { \override #'(font-family . sans) { \box { A } } }
56 \once \override Score.RehearsalMark #'self-alignment-X = #left
57 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
62 \once \override Score.RehearsalMark #'self-alignment-X = #left
63 \mark \markup { \override #'(font-family . sans) \hspace #1.0 \raise #2.0 \musicglyph #"scripts.coda" { \bold { To CODA } } }
78 \mark \markup { \override #'(font-family . sans) { \box { B } } }
80 s1*0^\markup { \large \bold \italic { Solos } }
81 s1*2 \bar "||" % 23-24
94 \once \override Score.RehearsalMark #'self-alignment-X = #right
95 \mark \markup { \bold { D.S. al Coda } }
101 % blank measure between last measure and coda
102 \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
103 % \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
105 \set Score.currentBarNumber = #39
107 \once \override Score.RehearsalMark #'self-alignment-X = #left
108 \mark \markup { { \musicglyph #"scripts.coda" } { \bold { Coda } } }
112 s2. s4^\markup { \large \bold \italic { Free Time } } | % 39
113 s1*3 \bar "|." % 40-42
120 LeadVox = \relative c'
122 % \set Staff.instrument = #"Lead vox"
124 \override Staff.TimeSignature #'style = #'()
126 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
141 e4 r16 e d e ~ e g8.-> b,8 d | % 9
142 e4 r16 e d e-. r4 e8-- ( b'-- ) | % 10
143 a4 r16 a g a ~ a ( g8.-> ) e8 d | % 11
144 e8 b e16 b d e-. r8. d16 \override Glissando #'style = #'zigzag e8 \glissando b' | % 12
145 %\override Glissando #'style = #'zigzag
147 a8 r r16 a g a ~ a ( g8. ) e8 d | % 13
148 e8-- e-- e-- d16 e-^ r4 b8 d | % 14
150 e8 r e16 b d e ~ e g8. e8 d16 e ~ | % 15
151 e8 r e g16 a ~ a8 r g a16 b ~ | % 16
152 b8 a g e16 a ~ a g8. e8 d16 e ~ | % 17
183 % Blank measure, for Coda
189 b8 a g e a g e-> d-> | % 40
195 LeadVoxText = \lyricmode
204 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
209 % \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4
232 e4.:sus4.7 e8:sus4.7/a s4.. e16:sus4.7 | % 9
233 s2. s8. e16:m7/a | % 10
234 s4. a8:9 s4.. e16:sus4.7 | % 11
235 s2. s8. e16:m7/a | % 12
236 s4. a8:9 s4.. e16:sus4.7 | % 13
237 s2. ef8.:m9 d16:m9 | % 14
239 s4.. g2:13.9- c16:maj9 | % 15
240 s4.. f2:maj7 fs16:m7.5- | % 16
241 s4.. b16:7 s4 b8.:aug7.9+ e16:m9 | % 17
242 s4.. a2:13 e16:m9 | % 18
243 s4.. a16:13 s4 b8.:aug7.9+ e16:m9 | % 19
244 s4.. a16:13 s4.. e16:m9 | % 20
246 s4.. a16:13 s2 | % 21
248 s4.. a16:13 s4 ef:sus4.7 | % 22
252 e4.:sus4.7 a8:5.9 s2 | % 23
253 e4.:m9 a8:9 s2 | % 24
255 e4.:m9 a8:9 s2 | % 25
256 e4.:m9 a8:9 s2 | % 26
260 e2:m9 a4:9 ef8.:m9 d16:m9 | % 30
261 s4.. g2:13.9- c16:maj9 | % 31
262 s4.. f2:maj7 fs16:m7.5- | % 32
263 s4.. b2:aug7.9+ e16:m9 | % 33
264 s4.. a2:13 e16:m9 | % 34
265 s4.. a2:13 e16:m9 | % 35
266 s4.. a2:13 e16:m9 | % 36
268 s4.. a2:13 s16 | % 37
270 s4.. a2:13 s16 | % 38
272 % Blank measure, for Coda
277 e4..:m9 a2:13 s16 | % 39
278 fs2:m7.5- b:aug7.9+ | % 40
287 % Use a RhythmicStaff on the chords instead of this?
288 % It almost works, but not quite. Doesn't collapse chords above to single notes...
292 %% \set Voice.autoBeaming = ##f
293 %% \set Staff.instrument = #"Rhythm"
294 \override Staff.TimeSignature #'style = #'()
295 \override NoteHead #'style = #'slash
353 % Blank measure, for Coda
369 % s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
376 \set Score.skipBars = ##t
377 \set Score.melismaBusyProperties = #'()
381 \new ChordNames \Chords
383 % \new ChordNames \transpose b g \Chords
384 \new RhythmicStaff << \Rhythm \Dynamics >>
389 \Global % The "roadmap" that everything else depends on
390 \new Voice = "lead" \LeadVox
392 % \new Lyrics \lyricsto "lead" \LeadVoxText
400 #(define fonts (make-pango-font-tree
406 % Spread staves vertically across last page (default: t)
407 ragged-last-bottom = ##f
408 % Don't spread staves vertically across the page (default: f)
409 % ragged-bottom = ##t
410 % Allow partial line for last stave (default: f)
413 % To find out what's eating the space at the top...
414 % annotate-spacing = ##t
415 %let's try this: [It works! Huzzah!]
416 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)