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 "Search My Heart" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Hillsong United" }
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-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } " " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } " " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" } " " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" } " " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" } " " \center-align { "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)
37 Global = \transpose c g
40 \override Staff.TimeSignature #'style = #'()
43 % \once \override TextScript #'padding = #2.0
44 % s1*0^\markup { \large \bold { Samba } }
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
62 \mark \markup { \override #'(font-family . sans) { \box { B } } }
63 s1*8 \bar "||" % 11-18
71 \mark \markup { \override #'(font-family . sans) { \box { C } } }
79 \mark \markup { \override #'(font-family . sans) { \box { D } } }
85 \mark \markup { \override #'(font-family . sans) { \box { E } } }
92 \mark \markup { \override #'(font-family . sans) { \box { F } } }
100 \mark \markup { \override #'(font-family . sans) { \box { G } } }
106 \mark \markup { \override #'(font-family . sans) { \box { H } } }
114 LeadVox = \relative c'
116 % \set Staff.instrument = #"Lead vox"
118 \override Staff.TimeSignature #'style = #'()
120 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
121 \set tupletSpannerDuration = #(ly:make-moment 1 4)
122 \override MultiMeasureRest #'expand-limit = 1
130 r2 r4 \teeny c \normalsize | % 5
131 e4. d8 ~ d4 e ~ | % 6
133 e4. d8 ~ d4 c ~ | % 8
140 g'4. g8 ~ g ( d ) d4 ~ | % 12
142 f4. f8 ~ f ( e ) e4 ~ | % 14
144 g'4. g8 ~ g ( d ) d4 ~ | % 16
146 f4. f8 ~ f ( e ) e4 ~ | % 18
153 e4. d8 ~ d4 e ~ | % 26
155 e4. d8 ~ d4 c ~ | % 28
162 g'4. g8 ~ g ( d ) d4 ~ | % 32
164 f4. f8 ~ f ( e ) e4 ~ | % 34
166 g'4. g8 ~ g ( d ) d4 ~ | % 36
167 % d4 r << { c8 d4 c8 } \context Voice = vb { \voiceTwo \teeny c8 c d c \normalsize } >> | % 37
168 d4 r << { \stemDown \teeny c8 c d c \normalsize \stemNeutral } \context Voice = vb { \voiceTwo \stemUp c8 d4 c8 \stemNeutral } >> | % 37
169 f4. f8 ~ f ( e ) e4 ~ | % 38
180 e8 c d e ~ e e16 ( f e4 ) | %
186 e8 c d e ~ e e16 ( f e4 ) | %
193 g'4. g8 ~ g ( d ) d4 ~ | % 32
195 f4. f8 ~ f ( e ) e4 ~ | % 34
197 g'4. g8 ~ g ( d ) d4 ~ | % 36
199 f4. f8 ~ f ( e ) e4 ~ | % 38
208 e8 c d e ~ e e16 ( f e4 ) | %
222 LeadVoxText = \lyricmode
224 _ Search my _ heart, _ and search my _ soul _
226 With all my _ _ heart, _
227 And all my _ _ soul, _
229 Lord I will fol -- low _ _ you.
231 Hear my _ cry, _ and hear my _ prayer _
233 So with all my _ _ heart, _
234 And all my _ _ soul, _
236 Lord I _ will fol -- low _ _ you.
238 With -- out you _ I am noth -- _ ing,
239 With -- out you _ I am noth -- _ ing, _ _
240 With -- out you _ I am noth -- _ ing,
241 With -- out you _ I am noth -- _ ing, _ _
242 With -- out you _ I am noth -- _ ing.
244 So with all my _ _ heart, _
245 And all my _ _ soul, _
247 Lord I will fol -- low _ _ you.
249 With -- out you _ I am noth -- _ ing,
250 With -- out you _ I am noth -- _ ing,
251 With -- out you _ I am noth -- _ ing, _ _
253 Search my _ heart, _ and search my _ soul _
256 LeadVoxTextB = \lyricmode
258 There’s no -- thing _ else _ that I want _ more _
265 Draw me _ close, _ I know you’re _ near _
267 You _ took the _ _ cross, _
268 You took my _ _ shame, _
269 Re -- stored my _ _ life, _
270 Now I live to wor -- ship _ _ you.
273 _ _ _ _ _ _ _ _ _ _ _
275 _ _ _ _ _ _ _ _ _ _ _
278 You _ took the _ _ cross, _
279 You took my _ _ shame, _
280 Re -- stored my _ _ life, _
283 LeadVoxTextC = \lyricmode
285 _ Shine your _ light, _ and show your _ face _
288 LeadVoxTextD = \lyricmode
290 _ In my _ life, _ Lord have your _ way _
298 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
299 \set tupletSpannerDuration = #(ly:make-moment 1 4)
417 % Use a RhythmicStaff on the chords instead of this?
418 % It almost works, but not quite. Doesn't collapse chords above to single notes...
422 %% \set Voice.autoBeaming = ##f
423 %% \set Staff.instrument = #"Rhythm"
424 \override Staff.TimeSignature #'style = #'()
425 \override NoteHead #'style = #'slash
426 \override MultiMeasureRest #'expand-limit = 1
540 % s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
542 % s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. | % 39
544 % s4_\markup { \bold { Tutti } } s2. | % 47
547 % s4_\markup { \large \bold \italic { Solo } } s2 | % 40
554 \set Score.skipBars = ##t
555 \set Score.melismaBusyProperties = #'()
559 \new ChordNames \transpose c g \Chords
561 % \new ChordNames \transpose b g \Chords
562 \new RhythmicStaff << \Rhythm \Dynamics >>
567 \Global % The "roadmap" that everything else depends on
568 \new Voice = "lead" \transpose c g \LeadVox
569 \new Voice \transpose c g \Riffs
570 \new Lyrics \lyricsto "lead" \LeadVoxText
571 \new Lyrics \lyricsto "lead" \LeadVoxTextB
572 \new Lyrics \lyricsto "lead" \LeadVoxTextC
573 \new Lyrics \lyricsto "lead" \LeadVoxTextD
581 #(define fonts (make-pango-font-tree
587 % Spread staves vertically across last page (default: t)
588 ragged-last-bottom = ##f
589 % Don't spread staves vertically across the page (default: f)
590 % ragged-bottom = ##t
591 % Allow partial line for last stave (default: f)
594 % To find out what's eating the space at the top...
595 % annotate-spacing = ##t
596 %let's try this: [It works! Huzzah!]
597 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)