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 "Create In Me A Clean Heart" }
18 % composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
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
40 R1^\markup { 8th note ballad, s. stick & colors } | % 1
43 r2 r4. d8 \bar "||" % 4
47 \once \override Score.RehearsalMark #'self-alignment-X = #left
48 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
50 g8 g g g fs4 d8 ( fs | % 5
51 e4 ) e16 ( d e8 ) d4 r | % 6
52 r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 7
54 g8 g g g fs4 d8 ( fs | % 9
55 e4 ) e16 ( d e8 ) d4 r | % 10
56 r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 11
63 \mark \markup { \override #'(font-family . sans) { \box { B } } }
65 c8.^\markup { \italic { 2nd time snare } } c16 c8 b a4 g8 a | % 13
66 b8 b4 a16 ( g ) g4 r8 g | % 14
67 c4 c8 b a a a16 g a8 | % 15
69 c4. b16 ( a ) a4. r16 g | % 17
70 b8. c16 b8 a g e ~ e4 | % 18
71 r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 19
77 r2 r4.^\markup { \hspace #0.0 \raise #0.65 \bold D.S. } d8 \bar "||" % 21
89 r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 24
91 r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 26
92 g1^\fermata \bar "|." % 27
95 LeadVoxText = \lyricmode
97 Cre -- ate in me a clean heart __ _ _ O __ _ _ God
98 And re -- new a right spi -- rit wi -- thin _ me
99 Cre -- ate in me a clean heart __ _ _ O __ _ _ God
100 And re -- new a right spi -- rit wi -- thin _ me
102 Cast me not a -- way from your pre -- sence O _ Lord
103 And take not your Ho -- ly Spi -- rit from me
104 Re -- store to _ me the joy of your sal -- va -- tion _
105 And re -- new a right spi -- rit wi -- thin _ me
111 And re -- new a right spi -- rit wi -- thin _ me
112 And re -- new a right spi -- rit wi -- thin _ me
122 %Bah, can't we set this globally?
141 g2:sus4 g8. a:m7 g8/b | % 12
151 fs2:m7.5- b:7.9- | % 17
152 e4:m7 e:m7/d c:maj7 g/b | % 18
162 g2 g8. a:m7 g8/b | % 22
182 % Use a RhythmicStaff on the chords instead of this?
183 % It almost works, but not quite. Doesn't collapse chords above to single notes...
187 % \set Voice.autoBeaming = ##f
188 % \set Staff.instrument = #"Rhythm"
189 \override Staff.TimeSignature #'style = #'()
191 \override NoteHead #'style = #'slash
198 c4 c c c \bar "||" % 4
209 c4 c c8.-> c16-> \< ~ c8 c \! \bar "||:" % 12
227 c4 c c c \bar "||" % 21
230 c4 c c8.-> c16-> \< ~ c8 c \! | % 22
241 c2 c_\markup { \italic { rit. } } | % 26
242 c1^\fermata \bar "|." % 27
250 \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
251 \new Lyrics \lyricsto "lead" \LeadVoxText
254 \new ChoirStaff = "Rhythm"
256 \new ChordNames = "chords" \Chords
257 \new RhythmicStaff = "chordRhythm" \StaffC
260 \set Score.skipBars = ##t
261 \set Score.melismaBusyProperties = #'()
266 % \context { \Staff \RemoveEmptyStaves }
267 % ragged-last-bottom = ##t
275 #(define fonts (make-pango-font-tree