]> Shamusworld >> Repos - music/blob - who-am-i.ly
Fixes to file permissions, updated I Have Decided To Follow Jesus.
[music] / who-am-i.ly
1 \version "2.16.0"
2 \include "pop-chords.ly"
3 \include "english.ly"
4
5 % Good sizes are 16, 18, & 20
6 staffSize = #16
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
10
11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
12
13 \header
14 {
15 %Let's bump up the title size and switch to the chord font. :-)
16
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))
21 }
22
23 % Useful tweak abbreviations (hn = harmony note)
24
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
27
28   (set! (ly:music-property arg 'tweaks)
29     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
30
31
32 %
33 % Song's structure
34 %
35 Global =
36 {
37         \key b \major
38         \override Staff.TimeSignature #'style = #'()
39         \time 2/2
40
41         % Intro
42
43         \once \override TextScript #'padding = #2.0
44         s1*0^\markup { \large \bold { Moderate pop } }
45 % Capo 4 version
46 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
47
48         % Intro
49
50         s1*9 |   % 1-9
51
52         \repeat volta 2
53         {
54                 % Verse
55
56                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
57                 s1*16 \bar "||"   % 10-25
58
59                 % Prechorus
60
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
64
65                 % Chorus
66
67                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
68                 s1*15 |   % 34-48
69                 \once \override Score.RehearsalMark #'self-alignment-X = #left
70                 \mark \markup { \musicglyph #"scripts.coda" \italic { to Coda } }
71         }
72         \alternative
73         {
74                 {
75                         s1*9 |   % 49-57
76                 }
77                 {
78                         s1 |   % 58
79                 }
80         }
81
82 %s1 \bar "||"   % 59
83
84         % Bridge (tricky timing!)
85
86         \time 5/4
87         s1 s4 \bar "||"   % 59
88         \mark \markup { \override #'(font-family . sans) { \box { C } } }
89         \time 3/4
90         s2.*2 |   % 60-61
91         \time 5/4
92         s1 s4 |   % 62
93         \time 3/4
94         s2.*2 |   % 63-64
95         \time 2/4
96         s2 |   % 65
97         \time 5/4
98         s1 s4 |   % 66
99         \time 2/2
100         s1*4 \bar "||" % 67-70
101         \once \override Score.RehearsalMark #'self-alignment-X = #right
102         \mark \markup { \large \bold { D.S. al Coda } }
103
104         % Coda
105
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
109 %       \break % Meh
110         \set Score.currentBarNumber = #71
111
112         \once \override Score.RehearsalMark #'self-alignment-X = #left
113         \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
114
115         s1*6 \bar "||"   % 71-76
116         \mark \markup { \override #'(font-family . sans) { \box { D } } }
117         s1*16 |   % 77-92
118
119         \repeat volta 6
120         {
121                 \mark \markup { \override #'(font-family . sans) { \box { E } } }
122                 s1*3 |   % 93-95
123         }
124         \alternative
125         {
126                 {
127                         s1 |   % 96
128                 }
129                 {
130                         s1 |   % 97
131                 }
132         }
133
134         s1 \bar "|."   % 98
135 }
136
137
138 %
139 % Lead vocal
140 %
141 LeadVox = \relative c''
142 {
143 %       \set Voice.autoBeaming = ##f
144 %       \set Staff.instrument = #"Lead vox"
145         \clef G
146 %Hm. Needed anymore?
147         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
148
149         % Intro
150
151         s1*8 |   % 1-8
152         r2 r8 b as b ~ | % 9
153
154         % Verse
155
156         b4 r r fs8 b |   % 10
157         cs4 b8 as8 ~ as4 fs8 b ~ |   % 11
158         b4 r4 r4. fs8 |   % 12
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
162         gs4 r2. |   % 16
163         r2 r8 b as b ~ |   % 17
164
165         b4 r r fs8 b |   % 18
166         cs4 b8 as8 ~ as4 fs8 b ~ |   % 19
167         b4 r4 r4. fs8 |   % 20
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
171         gs2 fs ) |   % 24
172         r2. gs8 as \bar "||"   % 25
173
174         % Prechorus
175
176         b4 as8 b ~ b b4 b8 ( ~ |   % 26
177         b8 gs fs4 ) ~ fs gs8 as |   % 27
178         b4 as8 b ~ b cs4 as8 ~ |   % 28
179         as2 r4 gs8 as |   % 29
180         b4 as8 b ~ b b4 b8 ~ |   % 30
181         b2 r4 gs8 as |   % 31
182         b4 cs8 ds ~ ds4 e8 cs ~ |   % 32
183         cs1 \bar "||"   % 33
184
185         % Chorus
186
187         r4 ds cs r8 b |   % 34
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
195
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
202         b1 |   % 48
203
204         r2 r8 b as8 b ~ |   % 49
205         b4 s2. |   % 50
206         s1*6 |   % 51-56
207         r2 r8 b as8 b |   % 57
208
209         r2 r8 b as8 b ~ ( |   % 58
210
211         % Bridge (tricky timing!)
212
213         \time 5/4
214         b2 cs2. ) |   % 59
215         \time 3/4
216         r2. |   % 60
217         r2. |   % 61
218         \time 5/4
219         r2 r2. |   % 62
220         \time 3/4
221         r2. |   % 63
222         r2. |   % 64
223         \time 2/4
224         r2 |   % 65
225         \time 5/4
226         r2 r2. |   % 66
227         \time 2/2
228         r1 |   % 67
229         r1 |   % 68
230         r1 |   % 69
231         r2 r4 gs8 as |   % 70
232
233         % Coda
234
235         \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
236
237         r2 r8 b as b ~ |   % 71
238         b1 ~ |   % 72
239         b1 ~ |   % 73
240         b1 |   % 74
241         r1 |   % 75
242         r2 r8 b as b ~ |   % 76
243
244         b1 |   % 77
245         r2 r8 b as b ~ ( |   % 78
246         cs16 ds cs4. ~ cs8 b4. ~ |   % 79
247         b4 as gs8 fs4. ) |   % 80
248         r1 |   % 81
249         r1 |   % 82
250         r1 |   % 83
251         r1 |   % 84
252         r8 ds'4 cs8 ~ cs b4 b8 ~ |   % 85
253         b8 ds4 cs8 ~ cs b4 b8 ~ |   % 86
254         b4 r r2 |   % 87
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
259         r1 |   % 92
260
261         r1 |   % 93
262         r1 |   % 94
263         r1 |   % 95
264
265         r1 |   % 96
266
267         r1 |   % 97
268
269         r1-\fermata |   % 98
270 }
271
272 LeadVoxText = \lyricmode
273 {
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. _ _
280
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. _
285
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, _
293         I am yours. _
294
295         Who am I,
296         I am yours. _ _
297
298         Not be-
299
300         I am yours. __ _ _ _
301         I am yours. _
302         I am yours. __ _ _ _ _ _ _ _ _ _
303         Whom shall _ I fear; _
304         Whom shall _ I fear? _
305         ’Cause I _ am yours. __ _ _ _ _ _ _
306         I am yours. __ _ _ _
307 }
308
309 LeadVoxTextB = \lyricmode
310 {
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. _ _
317 }
318
319
320 Riffs = \relative c''
321 {
322         \clef G
323 %Hm. Needed anymore?
324         \override Score.SpacingSpanner #'average-spacing-wishes = ##f
325
326         % Intro
327
328         \tiny
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
337
338         s1*41 |   % 9-49
339
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
348         \normalsize
349 }
350
351
352 %
353 % Chord names
354 %
355 Chords = \chordmode
356 {
357 %Bah, can't we set this globally?
358 %       \popChords
359
360         % Intro
361
362         b2.. e8:sus2 |   % 1
363         s2.. gs8:m7 |   % 2
364         s2.. fs8 |   % 3
365         s1 |   % 4
366         b2.. e8:sus2 |   % 5
367         s2.. gs8:m |   % 6
368         s2.. fs8 |   % 7
369         s1 |   % 8
370         s1 |   % 9
371
372         % Verse
373
374         b1 |   % 10
375         fs1/as |   % 11
376         gs1:m7 |   % 12
377         fs4.:sus4 fs2 s8 |   % 13
378         e1:sus2 |   % 14
379         fs1/e |   % 15
380         e1 |   % 16
381         s1 |   % 17
382
383         b1 |   % 18
384         fs1/as |   % 19
385         gs1:m7 |   % 20
386         fs4.:sus4 fs2 s8 |   % 21
387         e1:sus2 |   % 22
388         fs1/e |   % 23
389         e1 |   % 24
390         s1 |   % 25
391
392         % Prechorus
393
394         e1 |   % 26
395         fs1/as |   % 27
396         gs1:m7 |   % 28
397         fs1/as |   % 29
398         gs1:m7 |   % 30
399         fs1/as |   % 31
400         e1 |   % 32
401         fs2 fs:sus4.7 |   % 33
402
403         % Chorus
404
405         b1 |   % 34
406         fs1/as |   % 35
407         gs1:m7 |   % 36
408         fs2:sus4 fs |   % 37
409         e1 |   % 38
410         fs1 |   % 39
411         e1 |   % 40
412         s2 fs4:sus4 fs |   % 41
413
414         b1 |   % 42
415         fs1/as |   % 43
416         gs1:m7 |   % 44
417         fs2:sus4 fs |   % 45
418         e1 |   % 46
419         fs1 |   % 47
420         e1 |   % 48
421
422         s1 |   % 49
423         b2.. e8:sus2 |   % 50
424         s2.. gs8:m7 |   % 51
425         s2.. fs8 |   % 52
426         s1 |   % 53
427         b2.. e8:sus2 |   % 54
428         s2.. gs8:m7 |   % 55
429         s2.. fs8 |   % 56
430         s1 |   % 57
431
432         e2 fs:sus4 |   % 58
433
434         % Bridge (tricky timing!)
435
436         \time 5/4
437         gs2:m fs2./as |   % 59
438         \time 3/4
439         e4. b/ds |   % 60
440         cs4.:sus4.7 b |   % 61
441         \time 5/4
442         gs2:m fs2./as |   % 62
443         \time 3/4
444         e4. b/ds |   % 63
445         cs4.:sus4.7 b/ds |   % 64
446         \time 2/4
447         cs4:sus4 b |   % 65
448         \time 5/4
449         gs2:m7 fs2./as |   % 66
450         \time 2/2
451         a1:6.9 |   % 67
452         gs1:m7 |   % 68
453         e1:m6/g |   % 69
454         fs1:sus4 |   % 70
455
456         % Coda
457
458         \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
459
460         e2 fs |   % 71
461         gs1:m7 |   % 72
462         fs1 |   % 73
463         e1 |   % 74
464         fs1 |   % 75
465         s1 |   % 76
466
467         b2.. e8:sus2 |   % 77
468         s2.. gs8:m7 |   % 78
469         s2.. fs8 |   % 79
470         s1 |   % 80
471         b2.. e8:sus2 |   % 81
472         s2.. gs8:m |   % 82
473         s2.. fs8 |   % 83
474         s1 |   % 84
475         b2.. e8:sus2 |   % 85
476         s2.. gs8:m |   % 86
477         s2.. fs8 |   % 87
478         s1 |   % 88
479         b2.. e8:sus2 |   % 89
480         s2.. gs8:m |   % 90
481         s2.. fs8 |   % 91
482         s1 |   % 92
483
484         e1 |   % 93
485         s1 |   % 94
486         fs1/e |   % 95
487
488         s1 |   % 96
489
490         s1 |   % 97
491
492         e1:5.9 |   % 98
493 }
494
495
496 %
497 % Chord rhythms
498 %
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...
501 %
502 Rhythm = \relative c
503 {
504 %%      \set Voice.autoBeaming = ##f
505 %%      \set Staff.instrument = #"Rhythm"
506         \override Staff.TimeSignature #'style = #'()
507 %       \time 4/4
508         \override NoteHead #'style = #'slash
509         \teeny
510
511         % Intro
512
513         c2.. c8 ~ |   % 1
514         c2.. c8 ~ |   % 2
515         c2.. c8 ~ |   % 3
516         c1 |   % 4
517         c2.. c8 ~ |   % 5
518         c2.. c8 ~ |   % 6
519         c2.. c8 ~ |   % 7
520         c1 ~ |   % 8
521         c1 |   % 9
522
523         c1 |   % 10
524         c1 |   % 11
525         c1 |   % 12
526         c4. c8 ~ c2 |   % 13
527         c1 |   % 14
528         c1 |   % 15
529         c1 ~ |   % 16
530         c1 |   % 17
531
532         c1 |   % 18
533         c1 |   % 19
534         c1 |   % 20
535         c4. c8 ~ c2 |   % 21
536         c1 |   % 22
537         c1 |   % 23
538         c1 |   % 24
539         c1 |   % 25
540
541         c1 |   % 26
542         c1 |   % 27
543         c1 |   % 28
544         c1 |   % 29
545         c1 |   % 30
546         c1 |   % 31
547         c1 |   % 32
548         c2 c |   % 33
549
550         c1 |   % 34
551         c1 |   % 35
552         c1 |   % 36
553         c2 c |   % 37
554         c1 |   % 38
555         c1 |   % 39
556         c1 |   % 40
557         c2 c4 c |   % 41
558
559         c1 |   % 42
560         c1 |   % 43
561         c1 |   % 44
562         c2 c |   % 45
563         c1 |   % 46
564         c1 |   % 47
565         c1 ~ |   % 48
566         c1 |   % 49
567
568         c2.. c8 ~ |   % 50
569         c2.. c8 ~ |   % 51
570         c2.. c8 ~ |   % 52
571         c1 |   % 53
572         c2.. c8 ~ |   % 54
573         c2.. c8 ~ |   % 55
574         c2.. c8 ~ |   % 56
575         c1 |   % 57
576
577         c2-\repeatTie c |   % 58
578
579         % Bridge (tricky timing!)
580
581         \time 5/4
582         c2 c2. |   % 59
583         \time 3/4
584         c4. c |   % 60
585         c4. c |   % 61
586         \time 5/4
587         c2 c2. |   % 62
588         \time 3/4
589         c4. c |   % 63
590         c4. c |   % 64
591         \time 2/4
592         c4 c |   % 65
593         \time 5/4
594         c2 c2. |   % 66
595         \time 2/2
596         c1 |   % 67
597         c1 |   % 68
598         c1 |   % 69
599         c1 |   % 70
600
601         % Coda
602
603         \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
604
605         c2-\repeatTie c |   % 71
606         c1 |   % 72
607         c1 |   % 73
608         c1 |   % 74
609         c1 ~ |   % 75
610         c1 |   % 76
611
612         c2.. c8 ~ |   % 77
613         c2.. c8 ~ |   % 78
614         c2.. c8 ~ |   % 79
615         c1 |   % 80
616         c2.. c8 ~ |   % 81
617         c2.. c8 ~ |   % 82
618         c2.. c8 ~ |   % 83
619         c1 |   % 84
620         c2.. c8 ~ |   % 85
621         c2.. c8 ~ |   % 86
622         c2.. c8 ~ |   % 87
623         c1 |   % 88
624         c2.. c8 ~ |   % 89
625         c2.. c8 ~ |   % 90
626         c2.. c8 ~ |   % 91
627         c1 |   % 92
628
629         c1 |   % 93
630         c1 |   % 94
631         c1 |   % 95
632
633         c1 |   % 96
634
635         c1 |   % 97
636
637         c1-\fermata |   % 98
638 }
639
640
641 Dynamics =
642 {
643 %{
644         s4_\markup { \italic { snare pat. } } s2 |   % 1
645         s4_\markup { \italic { simile } } s2 |   % 2
646         s2.*19
647         s4_\markup { \italic { spacey } } s2 |   % 22
648         s2.*5
649         s4 s \< s \! |   % 28
650         s2.*22
651         s4_\markup { \italic { Last time } } s2 |   % 51
652 %}
653 }
654
655
656 \score
657 {
658         <<
659                 \Global                                         % The "roadmap" that everything else depends on
660 %               \transpose b g \Global                                          % The "roadmap" that everything else depends on
661
662                 \context Staff
663                 <<
664                         \new Voice = "lead" \LeadVox
665 %                       \new Voice = "lead" \transpose b g \LeadVox
666                         \new Voice \Riffs
667 %                       \new Voice \transpose b g \Riffs
668                         \new Lyrics \lyricsto "lead" \LeadVoxText
669                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
670                 >>
671
672                 \new ChoirStaff
673                 <<
674                         \new ChordNames \Chords
675 %Capo 4 edition
676 %                       \new ChordNames \transpose b g \Chords
677                         \new RhythmicStaff << \Rhythm \Dynamics >>
678                 >>
679
680                 \set Score.skipBars = ##t
681                 \set Score.melismaBusyProperties = #'()
682         >>
683 }
684
685
686 \paper
687 {
688   #(define fonts (make-pango-font-tree
689     "Times New Roman"
690     "DomCasual BT"
691     "Luxi Mono"
692     (/ staffSize 20)))
693
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)
699         ragged-last = ##t
700
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)
705 }