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 "Brethren, We Have Met To Worship" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "William Moore" }
19 poet = \markup { \override #'(font-family . sans) \fontsize #1.3 "George Atkins" }
20 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Shamus Hammons" }
21 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
29 LeadVox = \relative c'
35 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
37 d4 d8 ( e ) g4 g | % 1
38 a4 a8 ( g ) b ( a ) g ( e ) | % 2
39 d4 d8 ( e ) g4 g | % 3
43 d4 d8 ( e ) g4 g | % 5
44 a4 a8 ( g ) b ( a ) g ( e ) | % 6
45 d4 d8 ( e ) g4 g | % 7
50 b4 b8 ( g ) a4 g | % 10
55 d,4 d8 ( e ) g4 g | % 13
56 a4 a8 ( g ) b ( a ) g ( e ) | % 14
57 d4 d8 ( e ) g4 g | % 15
58 b4 a g2-\fermata \bar "|." % 16
61 LeadVoxText = \lyricmode
63 Breth -- ren, _ we have met to _ wor -- _ ship, _
64 to a -- _ dore the Lord and God;
66 Will you _ pray with ex -- pec -- _ ta -- _ tion, _
67 as we _ preach the liv -- ing word?
69 All is vain un -- less the _ Spi -- rit
70 of the Ho -- ly One comes _ down;
72 Breth -- ren, _ pray and God’s great _ bless -- _ ing _
73 will be _ show -- ered all a -- round.
121 % Use a RhythmicStaff on the chords instead of this?
122 % It almost works, but not quite. Doesn't collapse chords above to single notes...
126 \numericTimeSignature
128 \override NoteHead #'style = #'slash
149 c4 c c2-\fermata | % 16
156 s4_\markup { \italic { snare pat. } } s2 | % 1
157 s4_\markup { \italic { simile } } s2 | % 2
159 s4_\markup { \italic { spacy } } s2 | % 22
163 s4_\markup { \italic { Last time } } s2 | % 51
173 \new Voice = "lead" \LeadVox
174 \new Lyrics \lyricsto "lead" \LeadVoxText
179 \new ChordNames \Chords
180 % \new ChordNames \ChordsSup
181 \new RhythmicStaff << \StaffC \Dynamics >>
184 \set Score.skipBars = ##t
185 \set Score.melismaBusyProperties = #'()
192 #(define fonts (make-pango-font-tree
198 % Don't spread staves vertically across last page (default: t)
199 % ragged-last-bottom = ##f
200 % Don't spread staves vertically across the page (default: f)
201 % ragged-bottom = ##t
202 % Allow partial line for last stave (default: f)
205 % To find out what's eating the space at the top...
206 % annotate-spacing = ##t