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 "Who Am I" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Mark Hall" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
23 % Useful tweak abbreviations (hn = harmony note)
25 hn = #(define-music-function (parser location arg) (ly:music?)
26 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
28 (set! (ly:music-property arg 'tweaks)
29 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
38 \override Staff.TimeSignature #'style = #'()
43 \once \override TextScript #'padding = #2.0
44 s1*0^\markup { \large \bold { Moderate pop } }
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
57 s1*16 \bar "||" % 10-25
61 \once \override Score.RehearsalMark #'self-alignment-X = #left
62 \mark \markup { \override #'(font-family . sans) { \box { A17 } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
63 s1*8 \bar "||" % 26-33
67 \mark \markup { \override #'(font-family . sans) { \box { B } } }
69 \once \override Score.RehearsalMark #'self-alignment-X = #left
70 \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } }
84 % Bridge (tricky timing!)
88 \mark \markup { \override #'(font-family . sans) { \box { C } } }
100 s1*4 \bar "||" % 67-70
101 \once \override Score.RehearsalMark #'self-alignment-X = #right
102 \mark \markup { \large \bold { D.S. al Coda } }
106 % blank measure between last measure and coda
107 % \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
108 \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
110 \set Score.currentBarNumber = #71
112 \once \override Score.RehearsalMark #'self-alignment-X = #left
113 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
115 s1*6 \bar "||" % 71-76
116 \mark \markup { \override #'(font-family . sans) { \box { D } } }
121 \mark \markup { \override #'(font-family . sans) { \box { E } } }
141 LeadVox = \relative c''
143 % \set Voice.autoBeaming = ##f
144 % \set Staff.instrument = #"Lead vox"
147 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
157 cs4 b8 as8 ~ as4 fs8 b ~ | % 11
159 cs'4 b8 as8 ~ as b4 b8 ( ~ | % 13
160 b8 as gs4 ) r4. cs,8 | % 14
161 as'4 as8 as ~ as b4 gs8 ~ | % 15
163 r2 r8 b as b ~ | % 17
166 cs4 b8 as8 ~ as4 fs8 b ~ | % 19
168 cs'4 b8 as8 ~ as b4 b8 ( ~ | % 21
169 b8 as gs4 ) r4 cs,8 b' | % 22
170 as4 as8 as ~ as b4 gs8 ( ~ | % 23
172 r2. gs8 as \bar "||" % 25
176 b4 as8 b ~ b b4 b8 ( ~ | % 26
177 b8 gs fs4 ) ~ fs gs8 as | % 27
178 b4 as8 b ~ b cs4 as8 ~ | % 28
180 b4 as8 b ~ b b4 b8 ~ | % 30
182 b4 cs8 ds ~ ds4 e8 cs ~ | % 32
188 cs4 cs8 cs ~ cs b4 ds8 ~ | % 35
189 ds8 b4. r4 b8 b | % 36
190 cs4 ds8 e ~ e4 ds8 ds ~ | % 37
191 ds8 b4. r4 r8 fs | % 38
192 cs'4. cs8 ~ cs b b b ~ | % 39
193 b8 gs4. r4 r8 fs | % 40
194 b4 b8 b ~ b ds4 ds8 ~ | % 41
196 ds8 r ds4 cs r | % 42
197 cs4 cs8 cs ~ cs b4 ds8 ~ | % 43
198 ds8 b4. r4 b8 b | % 44
199 cs4 ds8 e ~ e4 ds8 ds ~ | % 45
200 ds8 b4. r4 gs8 b | % 46
201 cs4 b8 cs ~ cs ds4 b8 ~ | % 47
204 r2 r8 b as8 b ~ | % 49
209 r2 r8 b as8 b ~ ( | % 58
211 % Bridge (tricky timing!)
235 \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
237 r2 r8 b as b ~ | % 71
242 r2 r8 b as b ~ | % 76
245 r2 r8 b as b ~ ( | % 78
246 cs16 ds cs4. ~ cs8 b4. ~ | % 79
247 b4 as gs8 fs4. ) | % 80
252 r8 ds'4 cs8 ~ cs b4 b8 ~ | % 85
253 b8 ds4 cs8 ~ cs b4 b8 ~ | % 86
255 r4 fs8 b ~ b b4 b8 ~ ( | % 88
256 cs16 ds cs8 ~ cs2 b4 ~ | % 89
257 b2 ) r8 b gs cs ~ ( | % 90
258 cs8 b ~ b2 ) r4 | % 91
272 LeadVoxText = \lyricmode
274 Who am I, _ that the lord of all _ the earth _
275 Would care to know _ my name, __ _ _ _
276 would care to feel _ my hurt. _
277 Who am I, _ that the bright and mor -- _ ning star _
278 Would choose to light _ the way, __ _ _ _
279 for my e -- ver wander -- _ ing heart. _ _
281 Not be -- cause of who _ I am, __ _ _ _ _
282 but be -- cause of what _ you’ve done; _
283 Not be -- cause of what _ I’ve done, _
284 but be -- cause of who _ you are. _
286 I am a flo -- wer quick -- _ ly fad -- _ ing,
287 here to -- day and gone _ to -- mor -- _ row,
288 A wave tossed _ in the o -- _ cean,
289 a va -- por in _ the wind. _
290 Still you hear me when _ I’m cal -- _ ling,
291 Lord, you catch me when _ I’m fal -- _ ling
292 and you’ve told me who _ I am, _
302 I am yours. __ _ _ _ _ _ _ _ _ _
303 Whom shall _ I fear; _
304 Whom shall _ I fear? _
305 ’Cause I _ am yours. __ _ _ _ _ _ _
309 LeadVoxTextB = \lyricmode
311 _ _ _ _ that the eyes that see _ my sin _
312 Would look on me _ with love __ _ _ _
313 and watch me rise _ a -- gain. _
314 Who am I, _ that the voice that cal -- med the sea _
315 Would call out through _ the rain __ _ _ _
316 and _ calm the storm _ in me. _ _
320 Riffs = \relative c''
324 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
329 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 1
330 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 2
331 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 3
332 <b fs>4 <as fs>8 <gs fs>4 <as fs>4 <b fs>8 ~ | % 4
333 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 5
334 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 6
335 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 7
336 <b fs>2 <as fs>2 | % 8
340 s4 r8 <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 1
341 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 2
342 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 3
343 <b fs>4 <as fs>8 <gs fs>4 <as fs>4 <b fs>8 ~ | % 4
344 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 5
345 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 6
346 <b fs>4. <b fs>8 ~ <b fs>8 <as fs>4 <b fs>8 ~ | % 7
347 <b fs>2 <as fs>2 | % 8
357 %Bah, can't we set this globally?
377 fs4.:sus4 fs2 s8 | % 13
386 fs4.:sus4 fs2 s8 | % 21
412 s2 fs4:sus4 fs | % 41
434 % Bridge (tricky timing!)
445 cs4.:sus4.7 b/ds | % 64
449 gs2:m7 fs2./as | % 66
458 \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
499 % Use a RhythmicStaff on the chords instead of this?
500 % It almost works, but not quite. Doesn't collapse chords above to single notes...
504 %% \set Voice.autoBeaming = ##f
505 %% \set Staff.instrument = #"Rhythm"
506 \override Staff.TimeSignature #'style = #'()
508 \override NoteHead #'style = #'slash
577 c2-\repeatTie c | % 58
579 % Bridge (tricky timing!)
603 \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
605 c2-\repeatTie c | % 71
644 s4_\markup { \italic { snare pat. } } s2 | % 1
645 s4_\markup { \italic { simile } } s2 | % 2
647 s4_\markup { \italic { spacey } } s2 | % 22
651 s4_\markup { \italic { Last time } } s2 | % 51
659 \Global % The "roadmap" that everything else depends on
660 % \transpose b g \Global % The "roadmap" that everything else depends on
664 \new Voice = "lead" \LeadVox
665 % \new Voice = "lead" \transpose b g \LeadVox
667 % \new Voice \transpose b g \Riffs
668 \new Lyrics \lyricsto "lead" \LeadVoxText
669 \new Lyrics \lyricsto "lead" \LeadVoxTextB
674 \new ChordNames \Chords
676 % \new ChordNames \transpose b g \Chords
677 \new RhythmicStaff << \Rhythm \Dynamics >>
680 \set Score.skipBars = ##t
681 \set Score.melismaBusyProperties = #'()
688 #(define fonts (make-pango-font-tree
694 % Spread staves vertically across last page (default: t)
695 % ragged-last-bottom = ##f
696 % Don't spread staves vertically across the page (default: f)
697 % ragged-bottom = ##t
698 % Allow partial line for last stave (default: f)
701 % To find out what's eating the space at the top...
702 % annotate-spacing = ##t
703 %let's try this: [It works! Huzzah!]
704 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)