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 Come, O Come, Emmanuel" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Thomas Helmore" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
28 LeadVox = \relative c'
30 % \set Voice.autoBeaming = ##f
31 % \set Staff.instrument = #"Lead vox"
34 \override Staff.TimeSignature #'style = #'()
36 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
40 s1^\markup { \hspace #0.0 \raise #1.0 { Half time feel } } | % 1
53 \mark \markup { \override #'(font-family . sans) { \box { A } } }
66 g2. d'4 \bar "||" % 20
70 \once \override Score.RehearsalMark #'self-alignment-X = #left
71 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
93 s2.^\markup { \hspace #5.0 \raise #1.0 { D.S. } } \stemUp d'4 \stemNeutral \bar "||" % 34
100 s2. a4 \bar "||" % 36
104 e1^\fermata \bar "|." % 39
107 LeadVoxText = \lyricmode
109 O come, O come, Em -- ma -- _ _ nu -- el,
110 and ran -- som cap -- tive Is -- _ _ ra -- el,
111 That mourns in lone -- ly ex -- _ ile here,
112 Un -- til the Son of God _ _ ap -- pear.
114 Re -- joice! Re -- joice! Em -- ma -- _ _ nu -- el
115 shall come to thee, O Is -- _ _ ra -- el!
125 shall come to thee, O Is -- _ _ ra -- el!
128 LeadVoxTextB = \lyricmode
130 _ come, thou day -- spring, come _ _ and cheer
131 Our spi -- rits by thine ad -- _ _ vent here;
132 Dis -- perse the gloo -- my clouds _ of night,
133 And death’s dark sha -- dows put _ _ to flight.
137 Riffs = \relative c''
141 \override Staff.TimeSignature #'style = #'()
143 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
148 r2 <d a g>4. <cs fs, e>8 ~ | % 1
150 r2 <d a g>4. <cs fs, e>8 ~ | % 3
152 r2 <d a g>4. <cs fs, e>8 ~ | % 5
154 r2 <d a g>4. <a fs e d>8 ~ | % 7
155 <a fs e d>2. s4 | % 8
159 r2 <d a g>4. <cs fs, e>8 ~ | % 27
161 r2 <d a g>4. <a fs e d>8 ~ | % 29
162 <a fs e d>2. s4 | % 30
164 r2 <d a g>4. <cs fs, e>8 ~ | % 31
166 r2 <d a g>4. \stemDown <a fs e d>8 ~ | % 33
167 <a fs e d>8 <a fs e d> <a fs e d> <a fs e d> <a fs e d> <a fs e d> <a fs e d> <a fs e d> \stemNeutral | % 34
169 r2 <d a g>4. <a fs e d>8 ~ | % 35
170 <a fs e d>2. s4 | % 36
177 \repeat "percent" 3 % 1 - 6
179 << { \tiny f16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny f,,2 c'4 } >> | % 1
180 << { \tiny f'16 c f, <f' f,> ~ <f f,> f, c' f f8 e } \\ { \tiny bf,2 c4 } >> | % 2
182 << s2. \\ { \tiny d2 c4 } >> | % 7
183 << s2. \\ { \tiny bf2. } >> | % 8
188 \repeat "percent" 6 { f''16 c f, <f' f,> ~ <f f,> f, c' f f8 e | } % 16-21
194 \repeat "percent" 2 { f16 c f, f' ~ f f, c' f f8 e | } % 29-30
200 \repeat "percent" 2 { g16 d g, g' ~ g g, d' g g8 fs | } % 31-32
206 \repeat "percent" 4 { g16 d g, g' ~ g g, d' g g8 fs | } % 40-43
212 RiffsBass = \relative c
216 \override Staff.TimeSignature #'style = #'()
218 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
224 <e b e,>4. b8 <e e,>4. <e b e,>8 ~ | % 1
225 <e b e,>2.. <d a d,>8 | % 2
226 <e b e,>4. b8 <e e,>4. <e b e,>8 ~ | % 3
227 <e b e,>2.. <d a d,>8 | % 4
228 <e b e,>4. b8 <e e,>4. <e b e,>8 ~ | % 5
229 <e b e,>2.. <d a d,>8 | % 6
230 <e b e,>4. b8 <e e,>4. b8 ~ | % 7
235 <e b e,>4. b8 <e e,>4. <e b e,>8 ~ | % 27
236 <e b e,>2.. <d a d,>8 | % 28
237 <e b e,>4. b8 <e e,>4. b8 ~ | % 29
240 <e b e,>4. b8 <e e,>4. <e b e,>8 ~ | % 31
241 <e b e,>2.. <d a d,>8 | % 32
242 <e b e,>4. b8 <e e,>4. b8 ~ | % 33
245 <e b e,>4. b8 <e e,>4. <e b e,>8 ~ | % 35
258 %Bah, can't we set this globally?
286 a2:m7 c:maj7/d | % 19
293 a2:m7 b:7.9-.13- | % 23
329 % Use a RhythmicStaff on the chords instead of this?
330 % It almost works, but not quite. Doesn't collapse chords above to single notes...
334 % \set Voice.autoBeaming = ##f
335 % \set Staff.instrument = #"Rhythm"
336 \override Staff.TimeSignature #'style = #'()
338 \override NoteHead #'style = #'slash
366 c4 c c c \bar "||" % 20
389 c8 c c c c c c c | % 34
400 c1^\fermata \bar "|." % 39
410 s4_\markup { \italic { 1st X colors, 2nd X lite sn. } } s2. | % 9
419 s4 s \> s s \! | % 26
424 s4 s \< s s \! | % 34
428 s4 s \> s s \! | % 36
432 s4_\markup { \italic { rit. } } s2. | % 38
440 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
441 \new Lyrics \lyricsto "lead" \LeadVoxText
442 \new Lyrics \lyricsto "lead" \LeadVoxTextB
446 \new Staff = leadStaffBass { \new Voice = "leadbass" \RiffsBass }
449 \new ChoirStaff = "Rhythm"
451 \new ChordNames = "chords" \Chords
452 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
455 \set Score.skipBars = ##t
456 \set Score.melismaBusyProperties = #'()
461 \context { \Staff \RemoveEmptyStaves }
462 ragged-last-bottom = ##t
468 % Alternate score (for dorks)
471 \new ChoirStaff = "Rhythm"
473 \new ChordNames = "chords" \Chords
474 \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
478 \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
479 \new Lyrics \lyricsto "lead" \LeadVoxText
480 \new Lyrics \lyricsto "lead" \LeadVoxTextB
484 \new Staff = leadStaffBass { \new Voice = "leadbass" \RiffsBass }
487 \set Score.skipBars = ##t
488 \set Score.melismaBusyProperties = #'()
493 \context { \Staff \RemoveEmptyStaves }
494 ragged-last-bottom = ##t
501 #(define fonts (make-pango-font-tree
507 % top-margin = -0.25 \in