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 "Agnus Dei" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Michael W. Smith" }
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-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;" } }
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 { Moderately } }
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
54 \mark \markup { \override #'(font-family . sans) { \box { A } } }
63 \mark \markup { \override #'(font-family . sans) { \box { B } } }
84 LeadVox = \relative c'
86 % \set Staff.instrument = #"Lead vox"
88 \override Staff.TimeSignature #'style = #'()
90 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
99 <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
101 <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
102 <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
106 % cs8. ( d16 ~ d8 ) e fs8. ( gs16 ~ gs8 ) a ~ | % 11
107 <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
108 <a \hn fs>4 r <a \hn fs> ( <b \hn gs>8. <cs \hn a>16) | % 12
110 <cs \hn a>2 r4 <b \hn gs>8. ( <cs \hn a>16 ) | % 13
111 <cs \hn a>2 r4 <a \hn fs>8 <cs \hn a> | % 14
112 <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
113 <b \hn gs>2 r4 <b \hn gs>16 <cs \hn a> <b \hn gs> <a \hn fs> | % 16
114 <fs \hn d>2 r4 <b \hn gs>16 <cs \hn a> <b \hn gs> <a \hn fs> | % 17
116 <fs \hn d>4 r <fs \hn d>8 <gs \hn e> <a \hn fs> ( <b \hn gs>16 <cs \hn a> ) | % 18
118 <fs, \hn d>4 r <fs \hn d> ( <gs \hn e> ) | % 19
120 <a \hn e>1-\fermata | % 20
124 LeadVoxText = \lyricmode
126 Al -- _ _ le -- lu -- _ ia, _
127 Al -- _ _ le -- lu -- _ _ ia, _
128 for the Lord God Al -- migh -- _ ty reigns.
130 Al -- _ _ le -- lu -- _ _ ia, _
131 Ho -- _ _ ly, ho -- _ ly
132 are you Lord God _ _ Al -- _ migh -- _ ty.
133 Wor -- thy is the Lamb,
148 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
153 % \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4
165 a2/cs a4:sus4/b a | % 1
166 e2/gs d:sus2/fs | % 2
167 a2:sus2/cs fs:m7 | % 3
172 s2 d8./a e/a d8/a | % 7
177 a8. b:m7 a8/cs d8. e d8/fs | % 11
182 d8./a a s4. fs4:m | % 15
183 e2:sus4 e4 b8:m a/cs | % 16
186 d2. d8/fs e/gs | % 18
198 % Use a RhythmicStaff on the chords instead of this?
199 % It almost works, but not quite. Doesn't collapse chords above to single notes...
203 %% \set Voice.autoBeaming = ##f
204 %% \set Staff.instrument = #"Rhythm"
205 \override Staff.TimeSignature #'style = #'()
206 \override NoteHead #'style = #'slash
220 c4 c c8. c c8 ~ | % 7
225 c8. c c8 c8. c c8 ~ | % 11
230 c8. c ~ c8 c4 c | % 15
238 c4-\fermata c c c | % 20
247 s4_\markup { \italic { snare pat. } } s2 | % 1
248 s4_\markup { \italic { simile } } s2 | % 2
250 s4_\markup { \italic { spacey } } s2 | % 22
254 s4_\markup { \italic { Last time } } s2 | % 51
257 s4_\markup { \italic \small { (Back to letter A if desired) } } s2. | % 21
264 \set Score.skipBars = ##t
265 \set Score.melismaBusyProperties = #'()
269 \new ChordNames \Chords
271 % \new ChordNames \transpose b g \Chords
272 \new RhythmicStaff << \Rhythm \Dynamics >>
277 \Global % The "roadmap" that everything else depends on
278 \new Voice = "lead" \LeadVox
280 \new Lyrics \lyricsto "lead" \LeadVoxText
288 #(define fonts (make-pango-font-tree
294 % Spread staves vertically across last page (default: t)
295 ragged-last-bottom = ##f
296 % Don't spread staves vertically across the page (default: f)
297 % ragged-bottom = ##t
298 % Allow partial line for last stave (default: f)
301 % To find out what's eating the space at the top...
302 % annotate-spacing = ##t
303 %let's try this: [It works! Huzzah!]
304 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)