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 "Doxology" }
16 subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Genevan Psalter, 1551" }
17 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Old 100th" }
18 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Louis Bourgeois" }
19 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
27 LeadVox = \relative c''
29 \set Staff.instrumentName = #"Sop."
32 \override Staff.TimeSignature #'style = #'()
34 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
49 b4 a g2-\fermata \bar "||" % 8
51 g2-\fermata g-\fermata \bar "|." % 9
54 AltoVox = \relative c'
56 \set Staff.instrumentName = #"Alto"
59 \override Staff.TimeSignature #'style = #'()
61 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
76 g4 fs g2-\fermata \bar "||" % 8
78 e2-\fermata d-\fermata \bar "|." % 9
81 TenorVox = \relative c'
83 \set Staff.instrumentName = #"Tenor"
86 \override Staff.TimeSignature #'style = #'()
88 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
103 d4 d8 c b2-\fermata \bar "||" % 8
105 c2-\fermata b-\fermata \bar "|." % 9
108 BassVox = \relative c'
110 \set Staff.instrumentName = #"Bass"
113 \override Staff.TimeSignature #'style = #'()
115 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f
119 \partial 4*1 g4 | % 0
130 b8 c d4 g,2-\fermata \bar "||" % 8
132 c2-\fermata g-\fermata \bar "|." % 9
135 LeadVoxText = \lyricmode
137 Praise God from whom all bles -- sings flow;
138 Praise Him all crea -- tures here be -- low;
139 Praise Him a -- bove ye heaven -- ly host;
140 Praise Fa -- ther, Son, and Ho -- ly Ghost.
151 % \override SeparatingGroupSpanner #'padding = #'2.0
152 %Bah, can't we set this globally?
155 \partial 4*1 g4 | % 0
156 \time 6/4 s4 d e2.:m d4 | % 1
157 \time 4/4 g2. g4 | % 2
159 \time 6/4 b2:7 e:m c4 g | % 3
160 \time 4/4 d2. e4:m | % 4
162 \time 6/4 d4 g2. c4 b:7 | % 5
163 \time 4/4 e2.:m d4 | % 6
165 \time 6/4 g2 d4 a:m g d | % 7
176 % Use a RhythmicStaff on the chords instead of this?
177 % It almost works, but not quite. Doesn't collapse chords above to single notes...
179 %Slash = { \override NoteHead #'style = #'slash }
180 %Cross = { \override NoteHead #'style = #'cross }
184 \override Staff.TimeSignature #'style = #'()
186 \override NoteHead #'style = #'slash
190 \partial 4*1 c4 | % 0
191 \time 6/4 c4 c c c c c | % 1
192 \time 4/4 c2. c4 | % 2
194 \time 6/4 c4 c c c c c | % 3
195 \time 4/4 c2. c4 | % 4
197 \time 6/4 c4 c c c c c | % 5
198 \time 4/4 c2. c4 | % 6
200 \time 6/4 c4 c c c c c | % 7
203 c2-\fermata c-\fermata \bar "|." % 9
210 s4_\markup { \italic { snare on 4, bass 8th notes } } s2. | % 1
213 s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 | % 29
217 s2. s8 \> s \! | % 40
218 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. | % 41
223 s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. | % 57
232 \new ChoirStaff = "Rhythm"
234 % \new ChordNames = "chords" \Chords
235 % \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
239 \new Staff = UpperStaffA { \new Voice = "lead" \LeadVox }
240 \new Lyrics \lyricsto "lead" \LeadVoxText
241 \new Staff = UpperStaffB { \new Voice = "alto" \AltoVox }
242 \new Staff = LowerStaffA { \new Voice = "tenor" \TenorVox }
243 \new Staff = LowerStaffB { \new Voice = "bass" \BassVox }
246 \set Score.skipBars = ##t
247 \set Score.melismaBusyProperties = #'()
254 #(define fonts (make-pango-font-tree
260 % Spread staves vertically across last page (default: t)
261 ragged-last-bottom = ##f
262 % Don't spread staves vertically across the page (default: f)
263 % ragged-bottom = ##t
264 % Allow partial line for last stave (default: f)
267 % To find out what's eating the space at the top...
268 % annotate-spacing = ##t
269 %let's try this: [It works! Huzzah!]
270 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)