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 "Forever" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Chris Tomlin/Jesse Reeves" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " }
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 = #'()
45 \once \override TextScript #'padding = #2.0
46 s1*0^\markup { \large \bold { 8th Note Rock } }
48 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
71 s1*4 \bar "||" % 22-25
75 \mark \markup { \override #'(font-family . sans) { \box { B } } }
80 \mark \markup { \override #'(font-family . sans) { \box { C } } }
85 \mark \markup { \override #'(font-family . sans) { \box { D } } }
92 \mark \markup { \override #'(font-family . sans) { \box { E } } }
98 \mark \markup { \override #'(font-family . sans) { \box { F } } }
100 % s1*0^\markup { \large \bold { "Repeat at [D], end at [F]" } }
101 \mark \markup { \large \bold { "Repeat at [D], end at [F]" } }
103 % \once \override Score.RehearsalMark #'self-alignment-X = #right
110 LeadVox = \relative c'
112 % \set Staff.instrument = #"Lead vox"
114 \override Staff.TimeSignature #'style = #'()
116 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
131 b8 d d d ~ d d4 e8 ~ | % 9
132 e8 d4 d8 ~ d4 r8 d8 | % 10
133 b'4 b b a8 a ( | % 11
134 g8 ) g ~ g2 g8 g | % 12
135 e8 g4 g8 ~ g g g g | % 13
136 a8 b4 g8 ~ g4 r8 d8 | % 14
137 b'4 b b a8 a ( | % 15
138 g8 ) g ~ g2 g4 | % 16
155 d8 b4 a8 ~ a g4 a8 ~ | % 26
156 a8 b2 ~ b8 d8 d ~ | % 27
157 d8 b4 a8 ~ a b4 g8 ~ | % 28
159 d8 b4 a g a8 ~ | % 30
160 a8 b ~ b2 a8 a ( | % 31
168 b8 d d d ~ d d4 e8 ~ | % 36
169 e8 d4 d8 ~ d4 r8 d8 | % 37
170 b'4 b b a8 a ( | % 38
171 g8 ) g ~ g2 g8 g | % 39
172 e8 g4 g8 ~ g g g g | % 40
173 a8 b4 g8 ~ g4 r8 d8 | % 41
174 b'4 b b a8 a ( | % 42
175 g8 ) g ~ g2 g4 | % 43
190 d8 b4 a8 ~ a g4 a8 ~ | % 52
191 a8 b2 ~ b8 d8 d ~ | % 53
192 d8 b4 a8 ~ a b4 g8 ~ | % 54
194 d8 b4 a g a8 ~ | % 56
195 a8 b ~ b2 a8 a ( | % 57
203 b'4 b b a8 a ( | % 62
204 g8 ) g ~ g2 r8 d | % 63
205 b'4 b b a8 a ( | % 64
206 g8 ) g ~ g2 r8 d | % 65
207 b'4 b b a8 a ( | % 66
208 g8 ) g ~ g2 r8 d | % 67
209 b'4 b b a8 a ( | % 68
210 g8 ) g ~ g2 g4 | % 69
215 LeadVoxText = \lyricmode
217 Give thanks to the Lord, _ our God _ and King, _
218 His love en -- dures for -- e -- _ ver _
219 For _ he is good, _ he is a -- bove all things, _
220 His love en -- dures for -- e -- _ ver _
222 Sing praise, __ _ _ sing praise __ _
227 Sing praise, __ _ _ sing praise __ _
229 For -- e -- _ ver God _ is faith -- _ ful _
230 For -- e -- _ ver God _ is strong _
231 For -- e -- _ ver God is with _ us _
235 From the ris -- ing _ to _ the set -- _ ting sun, _
236 His love en -- dures for -- e -- _ ver _
237 By the grace of God, _ we will car -- _ ry on, _
238 His love en -- dures for -- e -- _ ver _
240 Sing praise, __ _ _ sing praise __ _ _
241 Sing praise, __ _ _ sing praise __ _
243 For -- e -- _ ver God _ is faith -- _ ful _
244 For -- e -- _ ver God _ is strong _
245 For -- e -- _ ver God is with _ us _
249 His love en -- dures for -- e -- _ ver _
250 His love en -- dures for -- e -- _ ver _
251 His love en -- dures for -- e -- _ ver _
252 His love en -- dures for -- e -- _ ver _
257 LeadVoxTextB = \lyricmode
259 _ might -- y _ hand _ and out -- _ stretched arm, _
260 His love en -- dures for -- e -- _ ver _
261 _ _ For the life _ _ _ that’s been re -- born, _
262 His love en -- dures for -- e -- _ ver _
265 LeadVoxTextC = \lyricmode
270 Riffs = \relative c''
274 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
290 %Bah, can't we set this globally?
387 % Use a RhythmicStaff on the chords instead of this?
388 % It almost works, but not quite. Doesn't collapse chords above to single notes...
392 %% \set Voice.autoBeaming = ##f
393 %% \set Staff.instrument = #"Rhythm"
394 \override Staff.TimeSignature #'style = #'()
395 \override NoteHead #'style = #'slash
423 s4_\markup { \italic { snare pat. } } s2 | % 1
424 s4_\markup { \italic { simile } } s2 | % 2
426 s4_\markup { \italic { spacey } } s2 | % 22
430 s4_\markup { \italic { Last time } } s2 | % 51
438 \set Score.skipBars = ##t
439 \set Score.melismaBusyProperties = #'()
443 \new ChordNames \Chords
445 % \new ChordNames \transpose b g \Chords
446 % \new RhythmicStaff << \Rhythm \Dynamics >>
451 \Global % The "roadmap" that everything else depends on
452 \new Voice = "lead" \LeadVox
454 \new Lyrics \lyricsto "lead" \LeadVoxText
455 \new Lyrics \lyricsto "lead" \LeadVoxTextB
456 % \new Lyrics \lyricsto "lead" \LeadVoxTextC
457 % \new Lyrics \lyricsto "lead" \LeadVoxTextD
465 #(define fonts (make-pango-font-tree
471 % Spread staves vertically across last page (default: t)
472 ragged-last-bottom = ##f
473 % Don't spread staves vertically across the page (default: f)
474 % ragged-bottom = ##t
475 % Allow partial line for last stave (default: f)
478 % To find out what's eating the space at the top...
479 % annotate-spacing = ##t
480 %let's try this: [It works! Huzzah!]
481 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)