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 "There Is A Rock" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Tommy Walker" }
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 { Unison } }
48 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
57 \mark \markup { \override #'(font-family . sans) { \box { A } } }
60 \mark \markup { \override #'(font-family . sans) { \box { B } } }
61 s1*8 \bar "||" % 13-20
63 \mark \markup { \override #'(font-family . sans) { \box { C } } }
73 \mark \markup { \override #'(font-family . sans) { \box { D } } }
81 \mark \markup { \override #'(font-family . sans) { \box { E } } }
89 \mark \markup { \override #'(font-family . sans) { \box { F } } }
114 LeadVox = \relative c'
116 % \set Staff.instrument = #"Lead vox"
118 \override Staff.TimeSignature #'style = #'()
120 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
128 r4. \teeny e8 \normalsize \times 2/3 { e4 fs g } | % 5
129 fs4. \teeny fs8 \normalsize \times 2/3 { fs4 g a } | % 6
130 g2 \times 2/3 { g4 a b } | % 7
131 b4 a8 a ~ a g4 e8 ~ | % 8
132 e4. e8 \times 2/3 { e4 fs g } | % 9
133 fs4. fs8 \times 2/3 { fs4 g a } | % 10
134 g4. \teeny g8 \normalsize \times 2/3 { g4 a b } | % 11
135 b4 a8 a ~ a g4 e8 ~ | % 12
139 e4. e8 \times 2/3 { e4 fs g } | % 13
140 g4. fs8 ~ fs4 r | % 14
141 r4 r8 fs \times 2/3 { fs4 g a } | % 15
142 a4 g8 g ~ g fs4 e8 ~ | % 16
143 e4. e8 \times 2/3 { e4 fs g } | % 17
144 g4. fs8 ~ fs4. a8 ~ | % 18
145 a8 g a4 a a8 ( g ) | % 19
150 r4 b a b8. b16 | % 21
151 r4 b a b8. b16 | % 22
153 c4 b a b8. b16 | % 24
154 r4 b a b8. b16 | % 25
155 r4 b a b8. b16 | % 26
157 c4 b a b8. b16 | % 28
159 r4 b a b8. b16 | % 29
160 r4 b a b8. b16 | % 30
162 c4 b a b8. b16 | % 32
163 r4 b a b8. b16 | % 33
164 r4 b a b8. b16 | % 34
166 c4 b a b8. b16 | % 36
188 r4 b a b8. b16 | % 49
189 r4 b a b8. b16 | % 50
191 c4 b a b8. b16 | % 52
192 r4 b a b8. b16 | % 53
193 r4 b a b8. b16 | % 54
196 c4 b a b8. b16 | % 56
198 c4 b a b8. b16 | % 57
210 LeadVoxText = \lyricmode
212 _ Light of the world, _ light of all truth,
213 sal -- va -- tion comes from on -- _ ly you. _
214 Our shel -- ter and strength, through all a -- ges past,
215 _ your awe -- some pow -- er has _ been seen. _
217 The na -- tions are search -- ing _
218 for some -- thing that’s ab -- so -- lute -- _ ly true. _
219 So we now de -- clare it: _
220 Je -- _ sus all truth is _ found in you.
222 There is a rock, a sol -- id rock,
223 a rock we’ve built our lives u -- pon.
224 There is a hope, a bless -- ed hope,
225 so we now shout it to the world.
227 There is a rock, a sol -- id rock,
228 a rock we’ve built our lives u -- pon.
229 There is a hope, a bless -- ed hope,
230 so we now shout it to the world.
232 There is a rock, a sol -- id rock,
233 a rock we’ve built our lives u -- pon.
234 There is a hope, a bless -- ed hope,
235 so we now shout it to the world.
237 shout it to the world.
240 LeadVoxTextB = \lyricmode
242 Re -- ject -- ed by men but cho -- sen by God,
243 you are the pre -- cious cor -- _ ner -- stone. _
244 You’re build -- ing your church through -- out all the earth,
245 for -- e -- ver it’s pow -- er will _ be shown. _
253 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
258 r16 d8 ds16 ~ ds e r8 d ds e r | % 1
259 r16 g8 gs16 ~ gs a r8 g gs a r | % 2
260 r16 e8 f16 ~ f fs r8 e f fs r | % 3
261 r16 a8 bf16 ~ bf b r8 a bf b r | % 4
265 r16 d,8 ds16 ~ ds e r8 d ds e r | % 37
266 r16 g8 gs16 ~ gs a r8 g gs a r | % 38
267 r16 e8 f16 ~ f fs r8 e f fs r | % 39
268 r16 a8 bf16 ~ bf b r8 a bf b r | % 40
272 r16 d,8 ds16 ~ ds e r8 d ds e r | % 58
273 r16 g8 gs16 ~ gs a r8 g gs a r | % 59
274 r16 e8 f16 ~ f fs r8 e f fs r | % 60
275 r16 a8 bf16 ~ bf b r8 a bf b r | % 61
306 d4.:sus4 d2 ef8:dim | % 14
308 e4:m7 d4.:sus4 d4 c8 | % 16
310 d4.:sus4 d2 fs8:m7.5- | % 18
312 b2..:7.5+.9+ s16 e:m7 | % 20
317 s2.. s16 fs:m7.5- | % 22
319 b2..:7 s16 e:m7 | % 24
321 s2.. s16 fs:m7.5- | % 26
323 b2..:7 s16 e:m7 | % 28
326 s2.. s16 fs:m7.5- | % 30
328 b2..:7 s16 e:m7 | % 32
330 s2.. s16 fs:m7.5- | % 34
351 s2.. s16 fs:m7.5- | % 46
353 b2..:7 s16 e:m7 | % 48
358 s2.. s16 fs:m7.5- | % 50
360 b2..:7 s16 e:m7 | % 52
362 s2.. s16 fs:m7.5- | % 54
383 % Use a RhythmicStaff on the chords instead of this?
384 % It almost works, but not quite. Doesn't collapse chords above to single notes...
388 %% \set Voice.autoBeaming = ##f
389 %% \set Staff.instrument = #"Rhythm"
390 \override Staff.TimeSignature #'style = #'()
391 \override NoteHead #'style = #'slash
417 c4 c4. c4 c8 ~ | % 16
421 c2.. ~ c16 c ~ | % 20
425 c4 c c c8. c16 ~ | % 21
426 c4 c c c8. c16 ~ | % 22
428 c4 c c c8. c16 ~ | % 24
429 c4 c c c8. c16 ~ | % 25
430 c4 c c c8. c16 ~ | % 26
432 c4 c c c8. c16 ~ | % 28
434 c4 c c c8. c16 ~ | % 29
435 c4 c c c8. c16 ~ | % 30
437 c4 c c c8. c16 ~ | % 32
438 c4 c c c8. c16 ~ | % 33
439 c4 c c c8. c16 ~ | % 34
459 c4 c c c8. c16 ~ | % 45
460 c4 c c c8. c16 ~ | % 46
462 c4 c c c8. c16 ~ | % 48
466 c4 c c c8. c16 ~ | % 49
467 c4 c c c8. c16 ~ | % 50
469 c4 c c c8. c16 ~ | % 52
470 c4 c c c8. c16 ~ | % 53
471 c4 c c c8. c16 ~ | % 54
474 c4 c c c8. c16 ~ | % 56
476 c4 c c c8. c16 ~ | % 57
483 r2. r8 r16 c ~ | % 61
492 s4_\markup { \italic { snare pat. } } s2 | % 1
493 s4_\markup { \italic { simile } } s2 | % 2
495 s4_\markup { \italic { spacey } } s2 | % 22
499 s4_\markup { \italic { Last time } } s2 | % 51
502 s4_\markup { \bold { Guitar solo } } s2. | % 41
504 s4_\markup { \bold { Sax solo } } s2. | % 45
511 \set Score.skipBars = ##t
512 \set Score.melismaBusyProperties = #'()
516 \new ChordNames \Chords
518 % \new ChordNames \transpose b g \Chords
519 \new RhythmicStaff << \Rhythm \Dynamics >>
524 \Global % The "roadmap" that everything else depends on
525 \new Voice = "lead" \LeadVox
527 \new Lyrics \lyricsto "lead" \LeadVoxText
528 \new Lyrics \lyricsto "lead" \LeadVoxTextB
536 #(define fonts (make-pango-font-tree
542 % Spread staves vertically across last page (default: t)
543 ragged-last-bottom = ##f
544 % Don't spread staves vertically across the page (default: f)
545 % ragged-bottom = ##t
546 % Allow partial line for last stave (default: f)
549 % To find out what's eating the space at the top...
550 % annotate-spacing = ##t
551 %let's try this: [It works! Huzzah!]
552 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)