\include "pop-chords.ly"
\include "english.ly"
-% Good sizes are 16, 18, & 20
-staffSize = #16
+% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
+staffSize = #18
#(set-default-paper-size "letter")
#(set-global-staff-size staffSize)
#(ly:set-option (quote no-point-and-click))
\header
{
-%Let's bump up the title size and switch to the chord font. :-)
-
title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Create In Me A Clean Heart" }
% composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
%
-% Lead vocal
+% Song's structure
%
-
-LeadVox = \relative c'
+Global =
{
-% \set Voice.autoBeaming = ##f
-% \set Staff.instrument = #"Lead vox"
\clef G
\key g \major
- \override Staff.TimeSignature #'style = #'()
+ \numericTimeSignature
\time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
% Intro
- R1^\markup { 8th note ballad, s. stick & colors } | % 1
- R1 | % 2
- R1 | % 3
- r2 r4. d8 \bar "||" % 4
+ s1^\markup { 8th note ballad, s. stick & colors } | % 1
+ s1*3 \bar "||" % 2-4
% Verse
-\once \override Score.RehearsalMark #'self-alignment-X = #left
-\mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
+ \once \override Score.RehearsalMark #'self-alignment-X = #left
+ \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
- g8 g g g fs4 d8 ( fs | % 5
- e4 ) e16 ( d e8 ) d4 r | % 6
- r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 7
- g2 r4. d8 | % 8
- g8 g g g fs4 d8 ( fs | % 9
- e4 ) e16 ( d e8 ) d4 r | % 10
- r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 11
- g2 r \bar "||:" % 12
+ s1*8 \bar ".|:-||" % 5-12
% Chorus
\repeat volta 3
{
-\mark \markup { \override #'(font-family . sans) { \box { B } } }
-
- c8.^\markup { \italic { 2nd time snare } } c16 c8 b a4 g8 a | % 13
- b8 b4 a16 ( g ) g4 r8 g | % 14
- c4 c8 b a a a16 g a8 | % 15
- b2 r4. g8 | % 16
- c4. b16 ( a ) a4. r16 g | % 17
- b8. c16 b8 a g e ~ e4 | % 18
- r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 19
+ \mark \markup { \override #'(font-family . sans) { \box { B } } }
+
+ s8.^\markup { \italic { 2nd time snare } } s16 s2. | % 13
+ s1*6 | % 14-19
}
\alternative
{
{
- g2 r | % 20
- r2 r4.^\markup { \hspace #0.0 \raise #0.65 \bold D.S. } d8 \bar "||" % 21
+ s1 | % 20
+ s2.. s8^\markup { \hspace #0.0 \raise #0.65 \bold D.S. } \bar "||" % 21
}
{
- g2 r | % 22
+ s1 | % 22
}
{
- g2 r | % 23
+ s1 | % 23
}
}
% Ending
+ s1*4 \bar "|." % 24-27
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c'
+{
+ % Intro
+
+ R1 | % 1
+ R1 | % 2
+ R1 | % 3
+ r2 r4. d8 | % 4
+
+ % Verse
+
+ g8 g g g fs4 d8 ( fs | % 5
+ e4 ) e16 ( d e8 ) d4 r | % 6
+ r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 7
+ g2 r4. d8 | % 8
+ g8 g g g fs4 d8 ( fs | % 9
+ e4 ) e16 ( d e8 ) d4 r | % 10
+ r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 11
+ g2 r | % 12
+
+ % Chorus
+
+ c8. c16 c8 b a4 g8 a | % 13
+ b8 b4 a16 ( g ) g4 r8 g | % 14
+ c4 c8 b a a a16 g a8 | % 15
+ b2 r4. g8 | % 16
+ c4 c8 b16 ( a ) a4. r16 g | % 17
+ b8. c16 b8 a g e ~ e4 | % 18
+ r8 g16 g g a g8 fs fs g16 a8 ( g16 ) | % 19
+
+ g2 r | % 20
+ r2 r4. d8 | % 21
+
+ g2 r | % 22
+
+ g2 r | % 23
+
+ % Ending
+
r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 24
g2 r | % 25
r8 g16 g g a g8 fs fs fs16 a ( g8 ) | % 26
- g1^\fermata \bar "|." % 27
+ g1^\fermata | % 27
}
+
LeadVoxText = \lyricmode
{
Cre -- ate in me a clean heart __ _ _ O __ _ _ God
Cast me not a -- way from your pre -- sence O _ Lord
And take not your Ho -- ly Spi -- rit from me
- Re -- store to _ me the joy of your sal -- va -- tion _
+ Re -- store un -- to _ me the joy of your sal -- va -- tion _
And re -- new a right spi -- rit wi -- thin _ me
Cre --
%
% Chord names
%
-
Chords = \chordmode
{
-%Bah, can't we set this globally?
-% \popChords
-
% Intro
g2 d/g | % 1
% Chorus
- \repeat volta 3
- {
- c2 d/c | % 13
- b2:m7 e:m7 | % 14
- a2:m7 d | % 15
- g1:maj7 | % 16
- fs2:m7.5- b:7.9- | % 17
- e4:m7 e:m7/d c:maj7 g/b | % 18
- a2:m7 d | % 19
- }
- \alternative
- {
- {
- g2 d/g | % 20
- c2/g d/g | % 21
- }
- {
- g2 g8. a:m7 g8/b | % 22
- }
- {
- g2 b:m7 | % 23
- }
- }
+ c2 d/c | % 13
+ b2:m7 e:m7 | % 14
+ a2:m7 d | % 15
+ g1:maj7 | % 16
+ fs2:m7.5- b:7.9- | % 17
+ e4:m7 e:m7/d c:maj7 g/b | % 18
+ a2:m7 d | % 19
+
+ g2 d/g | % 20
+ c2/g d/g | % 21
+
+ g2 g8. a:m7 g8/b | % 22
+
+ g2 b:m7 | % 23
% Ending
%
% Chord rhythms
%
-
-% Use a RhythmicStaff on the chords instead of this?
-% It almost works, but not quite. Doesn't collapse chords above to single notes...
-
StaffC = \relative c
{
-% \set Voice.autoBeaming = ##f
-% \set Staff.instrument = #"Rhythm"
- \override Staff.TimeSignature #'style = #'()
- \time 4/4
+ \numericTimeSignature
\override NoteHead #'style = #'slash
+ \teeny
% Intro
c4_\mp c c c | % 1
c4 c c c | % 2
c4 c c c | % 3
- c4 c c c \bar "||" % 4
+ c4 c c c | % 4
% Verse
c4 c c c | % 9
c4 c c c | % 10
c4 c c c | % 11
- c4 c c8.-> c16-> \< ~ c8 c \! \bar "||:" % 12
+ c4 c c8.-> c16-> \< ~ c8 c \! | % 12
% Chorus
- \repeat volta 3
- {
- c4_\mf c c c | % 13
- c4 c c c | % 14
- c4 c c c | % 15
- c4 c c c | % 16
- c4 c c c | % 17
- c4 c c c | % 18
- c4 c c c | % 19
- }
- \alternative
- {
- {
- c4 c c c | % 20
- c4 c c c \bar "||" % 21
- }
- {
- c4 c c8.-> c16-> \< ~ c8 c \! | % 22
- }
- {
- c4 c c c | % 23
- }
- }
+ c4_\mf c c c | % 13
+ c4 c c c | % 14
+ c4 c c c | % 15
+ c4 c c c | % 16
+ c4 c c c | % 17
+ c4 c c c | % 18
+ c4 c c c | % 19
+
+ c4 c c c | % 20
+ c4 c c c \bar "||" % 21
+
+ c4 c c8.-> c16-> \< ~ c8 c \! | % 22
+
+ c4 c c c | % 23
% Ending
c4 c c c | % 24
c4 c c c | % 25
c2 c_\markup { \italic { rit. } } | % 26
- c1^\fermata \bar "|." % 27
+ c1^\fermata | % 27
}
\score
{
<<
+ \Global % The "roadmap" that everything else depends on
+
+ \context Staff
<<
- \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
+ \new Voice = "lead" \LeadVox
\new Lyrics \lyricsto "lead" \LeadVoxText
>>
- \new ChoirStaff = "Rhythm"
+ \new ChoirStaff
<<
- \new ChordNames = "chords" \Chords
- \new RhythmicStaff = "chordRhythm" \StaffC
+ \new ChordNames \Chords
+ \new RhythmicStaff \StaffC
>>
\set Score.skipBars = ##t
\set Score.melismaBusyProperties = #'()
>>
-
- \layout
- {
-% \context { \Staff \RemoveEmptyStaves }
-% ragged-last-bottom = ##t
-% ragged-last = ##t
- }
}
\paper
{
- #(define fonts (make-pango-font-tree
- "Times New Roman"
- "DomCasual BT"
- "Luxi Mono"
- (/ staffSize 20)))
+ #(define fonts (make-pango-font-tree
+ "Times New Roman"
+ "LilyJAZZText"
+ "Luxi Mono"
+ (/ staffSize 20)))
+
+% Don't spread staves vertically across last page (default: t)
+% ragged-last-bottom = ##f
+% Don't spread staves vertically across the page (default: f)
+% ragged-bottom = ##t
+% Allow partial line for last stave (default: f)
+% ragged-last = ##t
+
+% To find out what's eating the space at the top...
+% annotate-spacing = ##t
}
+