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 "I See The Lord" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Chris Falson" }
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-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 { Moderately } }
48 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
58 \mark \markup { \override #'(font-family . sans) { \box { A } } }
61 s1*8 \bar "||" % 13-20
65 \mark \markup { \override #'(font-family . sans) { \box { B } } }
81 s1*15 \bar "|." % 38-52
88 LeadVox = \relative c'
90 % \set Staff.instrument = #"Lead vox"
92 \override Staff.TimeSignature #'style = #'()
94 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
105 e8 e e fs ~ fs4 r | % 5
106 a4 a8 gs ~ gs e4 cs8 ~ | % 6
108 e4. ( fs8 ) fs4 r8 b,16 b | % 8
109 e8 e e fs ~ fs2 | % 9
110 a4 a8 gs ~ gs fs e4 | % 10
114 b'4. gs8 ~ gs e4 fs8 ~ | % 13
116 b'4. gs8 ~ gs e4 fs8 ~ | % 15
118 b'4. a8 ~ a gs4 fs8 ( | % 17
125 <e \hn b \hn gs>4. <e \hn b \hn gs>8 ~ <e \hn b \hn gs>2 | % 21
126 <fs \hn cs \hn a>4. <fs \hn cs \hn a>8 ~ <fs \hn cs \hn a>2 | % 22
127 <gs \hn e \hn b>4. <gs \hn e \hn b>8 ~ <gs \hn e \hn b>2 | % 23
128 <a \hn fs \hn cs>4. <a \hn fs \hn cs>8 ~ <a \hn fs \hn cs>2 | % 24
129 b4. ( e,8 ) e2 | % 25
134 <e \hn b \hn gs>4. <e \hn b \hn gs>8 ~ <e \hn b \hn gs>2 | % 29
135 <fs \hn cs \hn a>4. <fs \hn cs \hn a>8 ~ <fs \hn cs \hn a>2 | % 30
136 <gs \hn e \hn b>4. <gs \hn e \hn b>8 ~ <gs \hn e \hn b>2 | % 31
137 <a \hn fs \hn cs>4. <a \hn fs \hn cs>8 ~ <a \hn fs \hn cs>2 | % 32
138 b4. ( e,8 ) e2 | % 33
146 <e \hn b \hn gs>4. <e \hn b \hn gs>8 ~ <e \hn b \hn gs>2 | % 38
147 <fs \hn cs \hn a>4. <fs \hn cs \hn a>8 ~ <fs \hn cs \hn a>2 | % 39
148 <gs \hn e \hn b>4. <gs \hn e \hn b>8 ~ <gs \hn e \hn b>2 | % 40
149 <a \hn fs \hn cs>4. <a \hn fs \hn cs>8 ~ <a \hn fs \hn cs>2 | % 41
150 b4. ( e,8 ) e2 | % 42
155 <e \hn b \hn gs>4. <e \hn b \hn gs>8 ~ <e \hn b \hn gs>2 | % 46
156 <fs \hn cs \hn a>4. <fs \hn cs \hn a>8 ~ <fs \hn cs \hn a>2 | % 47
157 <gs \hn e \hn b>4. <gs \hn e \hn b>8 ~ <gs \hn e \hn b>2 | % 48
158 <a \hn fs \hn cs>4. <a \hn fs \hn cs>8 ~ <a \hn fs \hn cs>2 | % 49
159 b4. ( e,8 ) e2 | % 50
164 LeadVoxText = \lyricmode
166 I see the Lord, _ seat -- ed on _ the throne, _
168 and the train of his robe, _ fills the tem -- _ ple
171 And the whole earth _ is filled, _
172 and the whole earth _ is filled, _
173 and the whole earth _ is filled _
176 Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _
177 Ho -- _ ly is the Lord, _
178 Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _
179 Ho -- _ ly is _ the Lord.
183 Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _
184 Ho -- _ ly is the Lord, _
185 Ho -- ly, _ Ho -- ly, _ Ho -- ly, _ Ho -- ly, _
186 Ho -- _ ly is _ the Lord.
194 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
199 \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4
212 s4. fs8:m7/e s2 | % 2
214 s4. fs8:m7/e s2 | % 4
219 fs4.:m7 e2/gs a8 | % 6
223 fs4.:m7 e8/gs s2 | % 10
227 e2../b fs8:m7/b | % 13
229 e2../b fs8:m7/b | % 15
231 e4./gs cs2:m7 a8 | % 17
243 fs2.:m7 cs4:m7 | % 26
255 fs4.:m7 a8/b s2 | % 36
266 fs2.:m7 cs4:m7 | % 43
283 % Use a RhythmicStaff on the chords instead of this?
284 % It almost works, but not quite. Doesn't collapse chords above to single notes...
288 %% \set Voice.autoBeaming = ##f
289 %% \set Staff.instrument = #"Rhythm"
290 \override Staff.TimeSignature #'style = #'()
291 \override NoteHead #'style = #'slash
304 c4. c8 ~ c4. c8 ~ | % 6
312 c4. c8 ~ c4. c8 ~ | % 13
314 c4. c8 ~ c4. c8 ~ | % 15
316 c4. c8 ~ c4. c8 ~ | % 17
369 s4_\markup { \italic { snare pat. } } s2 | % 1
370 s4_\markup { \italic { simile } } s2 | % 2
372 s4_\markup { \italic { spacey } } s2 | % 22
376 s4_\markup { \italic { Last time } } s2 | % 51
384 \set Score.skipBars = ##t
385 \set Score.melismaBusyProperties = #'()
389 \new ChordNames \Chords
391 % \new ChordNames \transpose b g \Chords
392 \new RhythmicStaff << \Rhythm \Dynamics >>
397 \Global % The "roadmap" that everything else depends on
398 \new Voice = "lead" \LeadVox
400 \new Lyrics \lyricsto "lead" \LeadVoxText
408 #(define fonts (make-pango-font-tree
414 % Spread staves vertically across last page (default: t)
415 ragged-last-bottom = ##f
416 % Don't spread staves vertically across the page (default: f)
417 % ragged-bottom = ##t
418 % Allow partial line for last stave (default: f)
421 % To find out what's eating the space at the top...
422 % annotate-spacing = ##t
423 %let's try this: [It works! Huzzah!]
424 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)