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 "Be Thou My Vision" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
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
38 \set Score.markFormatter = #format-mark-box-letters
42 r2.^\markup { \italic { Gentle waltz } } | % 1
51 \once \override Score.RehearsalMark #'self-alignment-X = #left
52 \mark \markup { \override #'(font-family . sans) { \box { A } } \small \italic { Piano 1st time } }
54 d4 d e8 ( [ d ] ) | % 5
63 \mark \markup { \override #'(font-family . sans) { \box { A9 } } }
65 b4 b8 ( [ cs ] ) d ( [ cs ] ) | % 13
70 b8 ( [ a ] ) fs4 d8 ( [ fs ] ) | % 18
76 d2.^\markup { \italic { Band in 1st time } } ~ | % 20
92 \once \override Score.RehearsalMark #'padding = #2.0
93 \mark \markup { \override #'(font-family . sans) { \box { B } } }
96 e4 e fs8 ( [ e ] ) | % 28
105 \mark \markup { \override #'(font-family . sans) { \box { B9 } } }
107 cs4 cs8 ([ ds ] ) e ( [ ds ] ) | % 36
112 cs8 ( [ b ] ) gs4 e8 ( [ gs ] ) | % 41
116 e2 fs8 ( [ gs ] ) | % 44
119 e2 fs8 ( [ gs ] ) | % 47
127 r2.^\fermata \bar "|." % 52
130 LeadVoxText = \lyricmode
132 Be thou my _ vi -- sion, O Lord of my heart
133 Naught be all else to me, save that thou art
134 Thou my _ best _ thought _ by day or by night _
135 Wa -- king or slee -- _ ping, thy _ pres -- ence my light. _
139 High King of _ Hea -- ven, my vic -- to -- ry won
140 May I reach hea -- ven’s joys, O bright heaven’s sun!
141 Heart of _ my _ own heart, what -- e -- ver be -- fall _
142 Still be my vi -- _ sion, O _ ru -- ler of all. _
144 O _ ru -- ler of all. _
145 O _ ru -- ler of all. _
148 LeadVoxTextB = \lyricmode
150 Be thou my _ wis -- dom, and thou my true word
151 I e -- ver with thee and thou with me Lord
152 Thou my _ great _ fa -- _ ther, I thy true son _
153 Thou in me dwel -- _ ling, and _ I with thee one. _
156 LeadVoxTextC = \lyricmode
158 Ri -- ches I _ heed not, nor man’s em -- pty praise
159 Thou mine in -- her -- i -- tance, now and al -- ways
160 Thou and _ thou _ on -- _ ly, first in my heart _
161 High King of Hea -- _ ven, my _ trea -- sure thou
166 % Riff/rhythm figures
169 StaffRiffs = \relative c'
171 \set Voice.autoBeaming = ##f
172 % \set Staff.instrument = #"Rhythm"
174 \override Staff.TimeSignature #'style = #'()
190 d4 d e8 [ fs ] | % 22
195 d4 d e8 [ fs ] | % 26
202 e4 e fs8 [ e ] | % 49
217 %Bah, can't we set this globally?
262 b2:sus4 b4 \bar "||" % 27
273 b4:sus4 b2 \bar "||" % 35
302 % Use a RhythmicStaff on the chords instead of this?
303 % It almost works, but not quite. Doesn't collapse chords above to single notes...
307 \set Voice.autoBeaming = ##f
308 % \set Staff.instrument = #"Rhythm"
309 \override Staff.TimeSignature #'style = #'()
311 \override NoteHead #'style = #'slash
355 c4 \< c c \! \bar "||" % 27
366 c4 c c \bar "||" % 35
380 c2.-\markup { \italic { rit. } } | % 48
384 c4-\markup { \italic { A tempo } } c c | % 49
386 c4 c-\markup { \italic { rit. } } c | % 51
387 c2.-\fermata \bar "|." % 52
394 % \new ChoirStaff = "Vox"
396 \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
397 \new Lyrics \lyricsto "lead" \LeadVoxText
398 \new Lyrics \lyricsto "lead" \LeadVoxTextB
399 \new Lyrics \lyricsto "lead" \LeadVoxTextC
404 \remove "Time_signature_engraver"
405 \remove "Clef_engraver"
406 %Hmm, removing this screws up the formatting...
407 % \remove "Key_engraver"
409 \override StaffSymbol #'staff-space = #(magstep -3.0)
414 \new ChoirStaff = "Rhythm"
416 \new ChordNames = "chords" \Chords
417 \new RhythmicStaff = "chordRhythm" \StaffC
420 \set Score.skipBars = ##t
421 \set Score.melismaBusyProperties = #'()
426 \context { \Staff \RemoveEmptyStaves }
427 % ragged-last-bottom = ##t
435 #(define fonts (make-pango-font-tree