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 "Show Me Your Glory" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Third Day" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Let's try a chord dictionary
22 % subtitle = \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "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 = #'()
45 \once \override TextScript #'padding = #2.0
46 s1*0^\markup { \large \bold { Lite perc groove w/synth colors, bass tacet } }
48 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
57 \mark \markup { \override #'(font-family . sans) { \box { A } } }
60 \mark \markup { \override #'(font-family . sans) { \box { B } } }
77 \mark \markup { \override #'(font-family . sans) { \box { C } } }
83 \mark \markup { \override #'(font-family . sans) { \box { D } } }
96 s1*3 \bar "|." % 38-40
103 LeadVox = \relative c''
105 % \set Staff.instrument = #"Lead vox"
107 \override Staff.TimeSignature #'style = #'()
109 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
116 r4 r8 b16 b b8 a g g | % 5
117 fs4 r8 d16 e fs8 e16 e ~ e fs8 d16 ~ | % 6
118 d4 r16 b'16 b8 b a16 a ~ a4 | % 7
119 fs8 fs16 a ~ a d, e8 ~ e4 r | % 8
120 r4 r8 b'16 b b8 a16 a ~ a g g fs ~ | % 9
121 fs4 r8. fs16 fs8 e16 e ~ e fs d8 ~ | % 10
122 d4 r16 d b'8 a4 r8 \parenthesize <fs>16 fs16 | % 11
123 b8 b16 b ~ b a cs8 ( ~ cs4. d8 ~ | % 12
125 d4 ) r a8 d a e' ( | % 13
126 d8 ) d ~ d4 r2 | % 14
127 r8 d d d16 d ( ~ d b ) a8 r8. a16 | % 15
128 d16 d d8 d e ( ~ e d16 cs ~ cs8 d ~ | % 16
129 d4 ) r a8 d a e' ( | % 17
130 d8 ) d ~ d4 r2 | % 18
131 d8 d d d ~ d cs16 b ~ b a ( b8 ) | % 19
132 r8 d d d d cs16 b ~ b a8. | % 20
139 b2 b16 a ~ a8 ~ a g16 fs ~ | % 24
146 r2 a8 d a e' ( | % 29
147 d8 ) d ~ d4 r2 | % 30
148 r8 d d d16 d ( ~ d b ) a8 r8. a16 | % 31
149 d16 d d8 d e ( ~ e d16 cs ~ cs8 d ~ | % 32
150 d4 ) r a8 d a e' ( | % 33
151 d8 ) d ~ d4 r2 | % 34
152 d8 d d d ~ d cs16 b ~ b a ( b8 ) | % 35
154 r8 d d d e fs16 e ~ e d8. | % 36
156 r8 d d d d cs16 b ~ b a8. | % 37
163 LeadVoxText = \lyricmode
165 Caught a glimpse of your splen -- dor
166 in the cor -- ner of _ my eye _
167 The most beau -- ti -- ful _ thing I’d e -- _ ver seen _
168 It was like a flash _ of light -- ning _
169 re -- flect -- ed off _ the sky _
170 and I know _ I’ll ne -- ver be _ the same __ _ _ _
172 Show me your glo -- _ ry, _
173 send down your pre -- _ _ sence,
174 I wan -- na see your face. __ _ _ _ _ _ _
175 Show me your glo -- _ ry, _
176 ma -- jes -- ty shines _ a -- bout _ you, _
177 I can’t go on with -- out _ you, Lord.
179 Lord. __ _ No, __ _ _ _ _ _ _
181 Show me your glo -- _ ry, _
182 send down your pre -- _ _ sence,
183 I wan -- na see your face. __ _ _ _ _ _ _
184 Show me your glo -- _ ry, _
185 ma -- jes -- ty shines _ a -- bout _ you, _
186 I can’t go on with -- out _ you.
187 I can’t go on with -- out _ you, Lord.
190 LeadVoxTextB = \lyricmode
192 When I climb down the mount -- tain
193 _ and get back to _ my life _
194 I won’t set -- tle for _ or -- din -- ar -- _ y things _
195 gon -- na fol -- low _ you for -- e -- ver _
196 and for all of _ my days _
197 I won’t rest ’til I see you _ _ a -- gain __ _ _
204 \override NoteHead #'style = #'cross
206 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
211 \stemDown e8[ r e] r e[ r e] r | % 1
212 e8[ r e] r e[ r e] r \stemNeutral | % 2
213 << \override NoteHead #'style = #'cross { r8 b'[ r b] r b[ r b] } \\ \override NoteHead #'style = #'cross { e,8[ r e] r e[ r e] r } >> | % 3
214 << { r8 b'[ r b] r b[ r b] } \\ { e,8[ r e] r e[ r e] r } >> | % 4
281 % Use a RhythmicStaff on the chords instead of this?
282 % It almost works, but not quite. Doesn't collapse chords above to single notes...
286 %% \set Voice.autoBeaming = ##f
287 %% \set Staff.instrument = #"Rhythm"
288 \override Staff.TimeSignature #'style = #'()
289 \override NoteHead #'style = #'slash
293 c4 c c8. c16 ~ c8 c ~ | % 2
295 c4 c c8. c16 ~ c8 c ~ | % 4
298 c4 c c8. c16 ~ c8 c ~ | % 6
302 c4 c c8. c16 ~ c8 c ~ | % 10
316 c4 c c8. c16 ~ c8 c ~ | % 22
340 c4 c c8. c16 ~ c8 c ~ | % 39
347 s4_\markup { \italic { Ac. gtr } } s2. | % 1
349 s4_\markup { \italic { bass in; 1X sus, 2X groove } } s2. | % 13
351 s4_\markup { \italic { Ac. gtr cont. rhy } } s2. | % 21
352 s2 s4_\markup { \italic \bold { BIG! Full band } } s4 | % 22
354 s4_\markup { \italic { Solos - open } } s2. | % 25
356 s4_\markup { \italic { Chorus - repeat until tired } } s2. | % 29
358 s4_\markup { \italic { Ac. gtr cont. rhy } } s2. | % 38
359 s2 s4_\markup { \italic \bold { Full band } } s4 | % 39
360 s4_\markup { \italic \teeny { *You just got to sing along with Third Day! } } s2. | % 40
367 \set Score.skipBars = ##t
368 \set Score.melismaBusyProperties = #'()
372 \new ChordNames \Chords
374 % \new ChordNames \transpose b g \Chords
375 \new RhythmicStaff << \Rhythm \Dynamics >>
380 \Global % The "roadmap" that everything else depends on
381 \new Voice = "lead" \LeadVox
383 \new Lyrics \lyricsto "lead" \LeadVoxText
384 \new Lyrics \lyricsto "lead" \LeadVoxTextB
392 #(define fonts (make-pango-font-tree
398 % Spread staves vertically across last page (default: t)
399 ragged-last-bottom = ##f
400 % Don't spread staves vertically across the page (default: f)
402 % Allow partial line for last stave (default: f)
405 % To find out what's eating the space at the top...
406 % annotate-spacing = ##t
407 %let's try this: [It works! Huzzah!]
408 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)