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 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Agnus Dei" }
16 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Michael W. Smith" }
17 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
18 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
19 % Let's try a chord dictionary
20 % subtitle = \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } }
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)
41 \once \override TextScript #'padding = #2.0
42 s1*0^\markup { \large \bold { Moderately } }
44 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
48 s1*4 \bar ".|:-||" % 1-4
52 \mark \markup { \override #'(font-family . sans) { \box { A } } }
61 \mark \markup { \override #'(font-family . sans) { \box { B } } }
82 LeadVox = \relative c'
84 % \set Staff.instrument = #"Lead vox"
86 % \override Staff.TimeSignature #'style = #'()
88 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
97 <cs \hn a>8. ( <d \hn b>16 ~ <d \hn b>8 ) <e \hn cs> <fs \hn d>8. ( <e \hn cs>16 ) <e \hn cs>4 ~ | % 5
99 <cs \hn a>8. ( <d \hn b>16 ~ <d \hn b>8 ) <e \hn cs> <fs \hn d>8. ( <gs \hn e>16 ~ <gs \hn e>8 ) <a \hn fs> ~ | % 7
100 <a \hn fs>4 r8 <gs \hn e>16 <fs \hn d> <gs \hn e>8 <fs \hn d>16 <e \hn cs> <fs \hn d>8 ( <e \hn cs>16 ) <e \hn cs> | % 8
104 % cs8. ( d16 ~ d8 ) e fs8. ( gs16 ~ gs8 ) a ~ | % 11
105 <cs \hn a>8. ( <d \hn b>16 ~ <d \hn b>8 ) <e \hn cs> <fs \hn d>8. ( <gs \hn e>16 ~ <gs \hn e>8 ) <a \hn fs> ~ | % 11
106 <a \hn fs>4 r <a \hn fs> ( <b \hn gs>8. <cs \hn a>16) | % 12
108 <cs \hn a>2 r4 <b \hn gs>8. ( <cs \hn a>16 ) | % 13
109 <cs \hn a>2 r4 <a \hn fs>8 <cs \hn a> | % 14
110 <d \hn b>8. <cs \hn a>16 ~ <cs \hn a>4 ~ <cs \hn a>8 <b \hn gs>16 ( <a \hn fs> ) <a \hn fs>8. ( <b \hn gs>16 ) | % 15
111 <b \hn gs>2 r4 <b \hn gs>16 <cs \hn a> <b \hn gs> <a \hn fs> | % 16
112 <fs \hn d>2 r4 <b \hn gs>16 <cs \hn a> <b \hn gs> <a \hn fs> | % 17
114 <fs \hn d>4 r <fs \hn d>8 <gs \hn e> <a \hn fs> ( <b \hn gs>16 <cs \hn a> ) | % 18
116 <fs, \hn d>4 r <fs \hn d> ( <gs \hn e> ) | % 19
118 <a \hn e>1-\fermata | % 20
123 LeadVoxText = \lyricmode
125 Al -- _ _ le -- lu -- _ ia, _
126 Al -- _ _ le -- lu -- _ _ ia, _
127 for the Lord God Al -- migh -- _ ty reigns.
129 Al -- _ _ le -- lu -- _ _ ia, _
130 Ho -- _ _ ly, ho -- _ ly
131 are you Lord God _ _ Al -- _ migh -- _ ty.
132 Wor -- thy is the Lamb,
147 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
152 % \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4
164 a2/cs a4:sus4/b a | % 1
165 e2/gs d:sus2/fs | % 2
166 a2:sus2/cs fs:m7 | % 3
171 s2 d8./a e/a d8/a | % 7
176 a8. b:m7 a8/cs d8. e d8/fs | % 11
181 d8./a a s4. fs4:m | % 15
182 e2:sus4 e4 b8:m a/cs | % 16
185 d2. d8/fs e/gs | % 18
197 % Use a RhythmicStaff on the chords instead of this?
198 % It almost works, but not quite. Doesn't collapse chords above to single notes...
202 \numericTimeSignature
203 \override NoteHead #'style = #'slash
204 %Not small enough... (?)
217 c4 c c8. c c8 ~ | % 7
222 c8. c c8 c8. c c8 ~ | % 11
227 c8. c ~ c8 c4 c | % 15
235 c4-\fermata c c c | % 20
244 s4_\markup { \italic { snare pat. } } s2 | % 1
245 s4_\markup { \italic { simile } } s2 | % 2
247 s4_\markup { \italic { spacey } } s2 | % 22
251 s4_\markup { \italic { Last time } } s2 | % 51
254 s4_\markup { \italic \small { (Back to letter A if desired) } } s2. | % 21
261 \set Score.skipBars = ##t
262 \set Score.melismaBusyProperties = #'()
264 \Global % The "roadmap" that everything else depends on
268 \new Voice = "lead" \LeadVox
270 \new Lyrics \lyricsto "lead" \LeadVoxText
274 \new ChordNames \Chords
276 % \new ChordNames \transpose b g \Chords
277 \new RhythmicStaff << \Rhythm \Dynamics >>
285 #(define fonts (make-pango-font-tree
291 % Spread staves vertically across last page (default: t)
292 ragged-last-bottom = ##f
293 % Don't spread staves vertically across the page (default: f)
294 % ragged-bottom = ##t
295 % Allow partial line for last stave (default: f)
298 % To find out what's eating the space at the top...
299 % annotate-spacing = ##t