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 "Change My Heart, O God" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Eddie Espinosa" }
19 % arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. " }
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 = #'()
45 \once \override TextScript #'padding = #2.0
46 s1*0^\markup { \large \bold { Not too slow } }
48 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
54 \mark \markup { \override #'(font-family . sans) { \box { A } } }
56 s1^\markup { \large \bold \italic { Fine } } \bar "||" % 12
58 \mark \markup { \override #'(font-family . sans) { \box { B } } }
67 LeadVox = \relative c'
69 % \set Staff.instrument = #"Lead vox"
71 \override Staff.TimeSignature #'style = #'()
73 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
81 r4 e8 f g a4 f8 ~ | % 5
83 r4 d8 e f g4 e8 ~ | % 7
85 r4 e8 f g a4 f8 ~ | % 9
92 r2 \times 2/3 { gs'4 a b } | % 13
96 r2 \times 2/3 { gs4 a b } | % 17
102 LeadVoxText = \lyricmode
104 Change my heart, O God, _
105 Make it e -- ver true. _
106 Change my heart, O God, _
109 You are the pot -- _ ter,
111 Mold me and make _ me,
112 This is what I pray. _
120 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
125 r4 e8 f g a4 f8 ~ | % 1
138 %Bah, can't we set this globally?
161 e2:sus4 \times 2/3 { e4 e:sus4/fs e/gs } | % 13
165 e2:sus4 \times 2/3 { e4 e:sus4/fs e/gs } | % 17
175 % Use a RhythmicStaff on the chords instead of this?
176 % It almost works, but not quite. Doesn't collapse chords above to single notes...
180 %% \set Voice.autoBeaming = ##f
181 %% \set Staff.instrument = #"Rhythm"
182 \override Staff.TimeSignature #'style = #'()
183 \override NoteHead #'style = #'slash
205 c2 \times 2/3 { c4 c c } | % 13
209 c2 \times 2/3 { c4 c c } | % 17
219 s4_\markup { \italic { snare pat. } } s2 | % 1
220 s4_\markup { \italic { simile } } s2 | % 2
222 s4_\markup { \italic { spacey } } s2 | % 22
226 s4_\markup { \italic { Last time } } s2 | % 51
234 \set Score.skipBars = ##t
235 \set Score.melismaBusyProperties = #'()
239 \new ChordNames \Chords
241 % \new ChordNames \transpose b g \Chords
242 \new RhythmicStaff << \Rhythm \Dynamics >>
247 \Global % The "roadmap" that everything else depends on
248 \new Voice = "lead" \LeadVox
250 \new Lyrics \lyricsto "lead" \LeadVoxText
258 #(define fonts (make-pango-font-tree
264 % Spread staves vertically across last page (default: t)
265 ragged-last-bottom = ##f
266 % Don't spread staves vertically across the page (default: f)
268 % Allow partial line for last stave (default: f)
271 % To find out what's eating the space at the top...
272 % annotate-spacing = ##t
273 %let's try this: [It works! Huzzah!]
274 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)