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 "O Holy Night" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
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-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "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 = #'()
43 % \once \override TextScript #'padding = #2.0
44 % s1*0^\markup { \large \bold { Samba } }
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
59 \time 2/4 s2 \time 4/4 | % 4
61 \time 2/4 s2 \time 4/4 | % 9
62 s1*3 \bar "||" % 10-12
64 \mark \markup { \override #'(font-family . sans) { \box { B } } }
66 s1*4 \bar "||" % 13-16
68 \once \override Score.RehearsalMark #'self-alignment-X = #left
69 \mark \markup { \override #'(font-family . sans) { \box { C } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
71 s1*4 \bar "||" % 17-20
73 \mark \markup { \override #'(font-family . sans) { \box { D } } }
77 \once \override Score.RehearsalMark #'self-alignment-X = #right
78 \mark \markup { \italic { to Coda } \hspace #0.5 \musicglyph #"scripts.coda" }
92 \once \override Score.RehearsalMark #'self-alignment-X = #right
93 \mark \markup { \hspace #0.0 \raise #1.0 \italic { D.S. al Coda } }
97 % blank measure between last measure and coda
98 \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
99 % \stopStaff s1 \startStaff % That removed the spurious floating bar line from line break
101 \set Score.currentBarNumber = #31
103 \once \override Score.RehearsalMark #'self-alignment-X = #left
104 \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
106 s1*3 \bar "||" % 31-33
108 \mark \markup { \override #'(font-family . sans) { \box { E } } }
110 s1*5 \bar "|." % 34-38
117 LeadVox = \relative c'
119 % \set Staff.instrument = #"Lead vox"
121 \override Staff.TimeSignature #'style = #'()
123 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
124 \set tupletSpannerDuration = #(ly:make-moment 1 4)
132 d4 \times 2/3 { d4 d8 } f4. f8 | % 3
133 \times 2/3 { g4 g8 ef4 g8 } | % 4
134 bf2 \times 2/3 { f4 f8 d4 c8 } | % 5
135 bf4 \times 2/3 { d4 ef8 } f4 \times 2/3 { ef4 c8 } | % 6
137 d4 \times 2/3 { d4 d8 } f4. f8 | % 8
138 \times 2/3 { g4 g8 ef4 g8 } | % 9
139 bf2 \times 2/3 { f4 f8 e4 d8 } | % 10
140 a'4 \times 2/3 { f4 g8 } a4 \times 2/3 { bf4 a8 } | % 11
144 \times 2/3 { g4 f8 bf4 d,8 } g4 \times 2/3 { f4 f8 } | % 14
146 \times 2/3 { g4 f8 bf4 d,8 } f2 | % 16
148 bf2. \times 2/3 { a4 g8 } | % 17
150 c2 ~ \times 2/3 { c4 g8 g4 g8 } | % 19
153 d2 ( c4. ) f,8 | % 21
154 bf2. \times 2/3 { a4 g8 } | % 22
155 f2 ~ \times 2/3 { f4 f8 g4 f8 } | % 23
159 bf2 ~ bf8 a bf c | % 27
168 s1 % Placeholder for blank measure between end and Coda
171 f'2 ( ~ f8 ef ) d ( c ) | % 32
172 bf2 ~ bf8 a bf c | % 33
182 LeadVoxText = \lyricmode
184 O ho -- ly night, the stars are bright -- ly shin -- ing,
185 it is the night of our dear sa -- vior’s birth.
186 Long lay the world, in sin and er -- ror pin -- ing,
187 ’til he ap -- peared and the soul felt its worth.
189 A thrill of hope the wear -- y world re -- joic -- es,
190 for yon -- der breaks a new and glor -- ious morn.
191 Fall on your knees! Oh hear __ _ the an -- gel voi -- ces!
192 O night __ _ di -- vine, O the night __ _ when Christ was born;
193 O night, O ho -- ly night, __ _ O night di -- vine!
197 night, O ho -- _ _ ly __ _ night, _ O night di -- vine!
199 O Holy Night! The stars are brightly shining,
200 It is the night of the dear Saviour's birth.
201 Long lay the world in sin and error pining.
202 Till He appeared and the Spirit felt its worth.
203 A thrill of hope the weary world rejoices,
204 For yonder breaks a new and glorious morn.
205 Fall on your knees! Oh, hear the angel voices!
206 O night divine, the night when Christ was born;
207 O night, O Holy Night , O night divine!
208 O night, O Holy Night , O night divine!
210 Led by the light of faith serenely beaming,
211 With glowing hearts by His cradle we stand.
212 O'er the world a star is sweetly gleaming,
213 Now come the wisemen from out of the Orient land.
214 The King of kings lay thus lowly manger;
215 In all our trials born to be our friends.
216 He knows our need, our weakness is no stranger,
217 Behold your King! Before him lowly bend!
218 Behold your King! Before him lowly bend!
220 Truly He taught us to love one another,
221 His law is love and His gospel is peace.
222 Chains he shall break, for the slave is our brother.
223 And in his name all oppression shall cease.
224 Sweet hymns of joy in grateful chorus raise we,
225 With all our hearts we praise His holy name.
226 Christ is the Lord! Then ever, ever praise we,
227 His power and glory ever more proclaim!
228 His power and glory ever more proclaim!
232 LeadVoxTextB = \lyricmode
234 Tru -- ly he taught us to love one a -- no -- ther,
235 his law is love and his gos -- pel is peace.
236 Chains he shall break, for the slave is our bro -- ther,
237 and in his name all op -- pres -- sion shall cease.
239 Sweet hymns of joy in grate -- ful cho -- rus raise we,
240 With all our hearts we praise his ho -- ly name.
241 Christ is the Lord! O praise _ his name for -- e -- ver!
242 His po -- wer and glo -- ry _ e -- _ ver more pro -- claim!
243 His pow’r and glo -- ry e -- _ ver more pro-
251 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
252 \set tupletSpannerDuration = #(ly:make-moment 1 4)
257 \times 2/3 { r8 f bf c bf f ~ f f bf c bf f' ~ } | % 1
258 \times 2/3 { f8 f, bf c bf f ~ f f bf c bf f' } | % 2
264 \times 2/3 { r8 f bf c bf f ~ f f bf c bf f' ~ } | % 28
265 \times 2/3 { f8 f, bf c bf f ~ f f bf c bf f' } | % 29
290 d2:m7 g4:m9 a:7.9- | % 11
305 bf2/f ef4/f f:7 | % 23
318 s1 % Placeholder for blank measure between end and Coda
335 % Use a RhythmicStaff on the chords instead of this?
336 % It almost works, but not quite. Doesn't collapse chords above to single notes...
340 %% \set Voice.autoBeaming = ##f
341 %% \set Staff.instrument = #"Rhythm"
342 \override Staff.TimeSignature #'style = #'()
343 \override NoteHead #'style = #'slash
392 s1 % Placeholder for blank measure between end and Coda
409 % s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
411 % s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39
413 % s4_\markup { \bold { Tutti } } s2. | % 47
420 \set Score.skipBars = ##t
421 \set Score.melismaBusyProperties = #'()
425 \new ChordNames \Chords
427 % \new ChordNames \transpose b g \Chords
428 \new RhythmicStaff << \Rhythm \Dynamics >>
433 \Global % The "roadmap" that everything else depends on
434 \new Voice = "lead" \LeadVox
436 \new Lyrics \lyricsto "lead" \LeadVoxText
437 \new Lyrics \lyricsto "lead" \LeadVoxTextB
445 #(define fonts (make-pango-font-tree
451 % Spread staves vertically across last page (default: t)
452 ragged-last-bottom = ##f
453 % Don't spread staves vertically across the page (default: f)
454 % ragged-bottom = ##t
455 % Allow partial line for last stave (default: f)
458 % To find out what's eating the space at the top...
459 % annotate-spacing = ##t
460 %let's try this: [It works! Huzzah!]
461 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)