2 \include "pop-chords.ly"
5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
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 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Infant Holy, Infant Lowly" }
16 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
17 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Useful tweak abbreviations (hn = harmony note)
23 hn = #(define-music-function (parser location arg) (ly:music?)
24 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
26 (set! (ly:music-property arg 'tweaks)
27 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
39 % \once \override TextScript #'padding = #2.0
40 % s1*0^\markup { \large \bold { Samba } }
42 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
51 \mark \markup { \override #'(font-family . sans) { \box { A } } }
53 s2.*8 \bar "||" % 6-13
55 s2.*6 \bar "||" % 14-19
59 s2.*6 \bar "||" % 20-25
63 \mark \markup { \override #'(font-family . sans) { \box { B } } }
65 s2.*8 \bar "||" % 26-33
67 s2.*6 \bar "||" % 34-39
71 \mark \markup { \override #'(font-family . sans) { \box { C } } }
73 s2.*8 \bar "||" % 40-47
77 \mark \markup { \override #'(font-family . sans) { \box { D } } }
79 s2.*7 \bar "||" % 48-54
83 s2.*6 \bar "|." % 55-60
90 LeadVox = \relative c'
111 e8. e16 ~ e4 a8 g | % 14
112 fs8. fs16 ~ fs4 b8 a | % 15
113 g8. g16 ~ g4 c8 b | % 16
114 a8. a16 ~ a4 b8 c | % 17
134 e8. e16 ~ e4 a8 g | % 34
135 fs8. fs16 ~ fs4 b8 a | % 35
136 g8. g16 ~ g4 c8 b | % 36
137 a8. a16 ~ a4 b8 c | % 37
148 e8. e16 ~ e4 a8 g | % 34
149 fs8. fs16 ~ fs4 b8 a | % 35
150 g8. g16 ~ g4 c8 b | % 36
151 a8. a16 ~ a2 ~ | % 37
152 a2-\fermata b8 c | % 52
162 LeadVoxText = \lyricmode
164 In -- fant ho -- ly, in -- fant low -- ly, for his bed a cat -- tle stall,
165 Ox -- en low -- ing, lit -- tle know -- ing Christ the babe is Lord of all.
166 Swift are wing -- ing _ an -- gels sing -- ing, _
167 No -- els ring -- ing, _ tid -- ings bring -- ing, _
168 Christ the babe is Lord of all.
170 Flocks were sleep -- ing, shep -- herds keep -- ing vi -- gil ’til the morn -- ing new.
171 Saw the glo -- ry, heard the sto -- ry, ti -- dings of a gos -- pel true.
172 Thus re -- joic -- ing, _ free from sor -- row, _
173 prais -- es voic -- ing, _ greet the mor -- row, _
174 Christ the babe was born for you.
176 Thus re -- joic -- ing, _ free from sor -- row, _
177 prais -- es voic -- ing, _ greet the mor -- row, __ _ _
178 Christ the babe was born for you.
184 \set tupletSpannerDuration = #(ly:make-moment 1 4)
189 <b g'>8 <a fs'> | % 0
190 <g e'>8. <g e'>16 ~ <g e'>4 <c a'>8 <b g'> | % 1
191 <a fs'>8. <a fs'>16 ~ <a fs'>4 <d b'>8 <c a'> | % 2
192 <b g'>8. <b g'>16 ~ <b g'>4 <e c'>8 <d b'> | % 3
193 <c a'>8. <c a'>16 ~ <c a'>2 ~ | % 4
194 <c a'>2-\fermata s4 | % 5
198 s2 <b g'>8 <a fs'> | % 19
199 <g e'>8. <g e'>16 ~ <g e'>4 <c a'>8 <b g'> | % 20
200 <a fs'>8. <a fs'>16 ~ <a fs'>4 <d b'>8 <c a'> | % 21
201 <b g'>8. <b g'>16 ~ <b g'>4 <e c'>8 <d b'> | % 22
202 <c a'>8. <c a'>16 ~ <c a'>4 b'8 c | % 23
208 s2 <b, g'>8 <a fs'> | % 54
209 <g e'>8. <g e'>16 ~ <g e'>4 <c a'>8 <b g'> | % 55
210 <a fs'>8. <a fs'>16 ~ <a fs'>4 <d b'>8 <c a'> | % 56
211 <b g'>8. <b g'>16 ~ <b g'>4 <e c'>8 <d b'> | % 57
212 <c a'>8. <c a'>16 ~ <c a'>4 b'8 c | % 58
268 c2:3.5.9/e d4:3.5.9/fs | % 32
286 c2:3.5.9/e d4:3.5.9/fs | % 46
315 \numericTimeSignature
316 \override NoteHead #'style = #'slash
317 %Not small enough... (?)
392 c2-\fermata c4 | % 52
410 % s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
412 % s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39
414 % s4_\markup { \bold { Tutti } } s2. | % 47
417 s4_\markup { \large \bold \italic { Solo } } s2 | % 40
424 \Global % The "roadmap" that everything else depends on
425 \set Score.skipBars = ##t
426 \set Score.melismaBusyProperties = #'()
430 \new Voice = "lead" \LeadVox
432 \new Lyrics \lyricsto "lead" \LeadVoxText
437 \new ChordNames \Chords
439 % \new ChordNames \transpose b g \Chords
440 \new RhythmicStaff << \Rhythm \Dynamics >>
448 #(define fonts (make-pango-font-tree
454 % Spread staves vertically across last page (default: t)
455 ragged-last-bottom = ##f
456 % Don't spread staves vertically across the page (default: f)
457 % ragged-bottom = ##t
458 % Allow partial line for last stave (default: f)
461 % To find out what's eating the space at the top...
462 % annotate-spacing = ##t