-\version "2.16.0"
+\version "2.19.0"
\include "pop-chords.ly"
\include "english.ly"
-staffSize = #16 % or 18
+% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
+staffSize = #16
#(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 "Refiner's Fire" } }
% composer = \markup { \override #'(font-family . sans) "" }
arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" }
- tagline = "Engraved by JLH and Lilypond 2.8.2"
+ tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
}
%
-% Lead vocal
+% Song's structure
%
-
-LeadVox = \relative c''
+Global =
{
-% \set Voice.autoBeaming = ##f
-% \set Staff.instrumentName = #"Lead vox"
\clef G
\key e \major
- \override Staff.TimeSignature #'style = #'()
+ \numericTimeSignature
\time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
% Intro
- R1 | % 1
- R1 | % 2
- R1 | % 3
- R1 \bar "||:" % 4
+ s1*4 \bar ".|:-||" % 1-4
\repeat volta 2
{
% Verse
-\mark \markup { \override #'(font-family . sans) { \box { A } } }
-
- gs4 b8 fs ~ fs4 gs | % 5
- e2 e8 fs gs a | % 6
- a2. r8 e | % 7
- e4 ds e fs | % 8
- gs4 b8 fs ~ fs4 gs | % 9
- e2 e8 fs gs a | % 10
- a1 | % 11
- gs4. ( fs8 ) fs2 \bar "||" % 12
+ \mark \markup { \override #'(font-family . sans) { \box { A } } }
+ s1*8 \bar "||" % 5-12
% Chorus
-\mark \markup { \override #'(font-family . sans) { \box { B } } }
-
- gs2 a4 gs8 fs8 ~ | % 13
- fs2 r | % 14
- gs4 b a gs8 fs ~ | % 15
- fs2 r4 e8 b' | % 16
- b1 | % 17
- b8 ( fs ) fs4 r2 | % 18
- b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 19
- gs8 fs4. r8 e e b' | % 20
- b1 | % 21
- b8 ( fs ) fs4 r2 | % 22
- b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 23
- gs4 a8 gs ~ gs fs4. | % 24
- a8 gs fs e ~ e ds4. | % 25
+ \mark \markup { \override #'(font-family . sans) { \box { B } } }
+ s1*13 | % 13-25
}
\alternative
{
{
- e1 | % 26
- R1 | % 27
- R1 | % 28
- R1 | % 29
+ s1*4 | % 26-29
}
{
- e1 \bar "||" % 30
+ s1 \bar "||" % 30
}
}
% Outro
-\mark \markup { \override #'(font-family . sans) { \box { C } } }
+ \mark \markup { \override #'(font-family . sans) { \box { C } } }
+ s1*6 \bar "|." % 31-36
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c''
+{
+ % Intro
+
+ R1*4 | % 1-4
+
+ % Verse
+
+ gs4 b8 fs ~ fs4 gs | % 5
+ e2 e8 fs gs a | % 6
+ a2. r8 e | % 7
+ e4 ds e fs | % 8
+ gs4 b8 fs ~ fs4 gs | % 9
+ e2 e8 fs gs a | % 10
+ a1 | % 11
+ gs4. ( fs8 ) fs2 | % 12
+
+ % Chorus
+
+ gs2 a4 gs8 fs8 ~ | % 13
+ fs2 r | % 14
+ gs4 b a gs8 fs ~ | % 15
+ fs2 r4 e8 b' | % 16
+ b1 | % 17
+ b8 ( fs ) fs4 r2 | % 18
+ b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 19
+ gs8 fs4. r8 e e b' | % 20
+ b1 | % 21
+ b8 ( fs ) fs4 r2 | % 22
+ b8 ( a ) gs a ~ a e ( fs ) gs ~ | % 23
+ gs4 a8 gs ~ gs fs4. | % 24
+ a8 gs fs e ~ e ds4. | % 25
+
+ e1 | % 26
+ R1 | % 27
+ R1 | % 28
+ R1 | % 29
+
+ e1 | % 30
+
+ % Outro
a8 gs fs e ~ e ds4. | % 31
e2 r2 | % 32
a8 gs fs e ~ e ds4. | % 33
e2 r2 | % 34
R1 | % 35
- r1^\fermata \bar "|." % 36
+ r1^\fermata | % 36
}
+
LeadVoxText = \lyricmode
{
Pu- ri- fy _ my heart, let me be as gold
%
% Chord names
%
-
Chords = \chordmode
{
-%Bah, can't we set this globally?
-% \popChords
-
% Intro
e4. e8:sus4 s2 | % 1
e4. e8:sus4 s2 | % 3
e1 | % 4
- \repeat volta 2
- {
- % Verse
-
- e4. b8/ds s2 | % 5
- cs1:m | % 6
- fs1:m7 | % 7
- e4/b b a/b b | % 8
- e4. b8/ds s2 | % 9
- cs1:m | % 10
- fs1:m7 | % 11
- e4./b b8 s2 | % 12
-
- % Chorus
-
- e2 a4. b8 | % 13
- s1 | % 14
- e2 a4. b8 | % 15
- s1 | % 16
- e1 | % 17
- b1 | % 18
- e4./gs a2 e8/b | % 19
- s8 b2.. | % 20
- e1 | % 21
- b1 | % 22
- e4./gs a2 e8/b | % 23
- s4. b2 s8 | % 24
- fs4.:m b4:sus4 b4. | % 25
- }
- \alternative
- {
- {
- e4. e8:sus4 s2 | % 26
- e4. e8:sus4 s2 | % 27
- e4. e8:sus4 s2 | % 28
- e1 | % 29
- }
- {
- cs1:m | % 30
- }
- }
+ % Verse
+
+ e4. b8/ds s2 | % 5
+ cs1:m | % 6
+ fs1:m7 | % 7
+ e4/b b a/b b | % 8
+ e4. b8/ds s2 | % 9
+ cs1:m | % 10
+ fs1:m7 | % 11
+ e4./b b8 s2 | % 12
+
+ % Chorus
+
+ e2 a4. b8 | % 13
+ s1 | % 14
+ e2 a4. b8 | % 15
+ s1 | % 16
+ e1 | % 17
+ b1 | % 18
+ e4./gs a2 e8/b | % 19
+ s8 b2.. | % 20
+ e1 | % 21
+ b1 | % 22
+ e4./gs a2 e8/b | % 23
+ s4. b2 s8 | % 24
+ fs4.:m b4:sus4 b4. | % 25
+
+ e4. e8:sus4 s2 | % 26
+ e4. e8:sus4 s2 | % 27
+ e4. e8:sus4 s2 | % 28
+ e1 | % 29
+
+ cs1:m | % 30
% Outro
%
% 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.instrumentName = #"Rhythm"
- \override Staff.TimeSignature #'style = #'()
- \time 4/4
+ \numericTimeSignature
\override NoteHead #'style = #'slash
% Intro
c4. c8 ~ c4 c | % 1
c4. c8 ~ c4 c | % 2
c4. c8 ~ c4 c | % 3
- c1 \bar "||:" % 4
-
- \repeat volta 2
- {
- % Verse
-
- c4. c8 ~ c4 c | % 5
- c4 c c c | % 6
- c4 c c c | % 7
- c4 c c c | % 8
- c4. c8 ~ c4 c | % 9
- c4 c c c | % 10
- c4 c c c | % 11
- c4. c8 ~ c4 c \bar "||" % 12
-
- % Chorus
-
- c4 c c4. c8 ~ | % 13
- c4 c c c | % 14
- c4 c c4. c8 ~ | % 15
- c4 c c c | % 16
- c4 c c c | % 17
- c4 c c c | % 18
- c4. c8 ~ c4. c8 ~ | % 19
- c8 c4. ~ c4 c | % 20
- c4 c c c | % 21
- c4 c c c | % 22
- c4. c8 ~ c4. c8 ~ | % 23
- c4. c8 ~ c4 c | % 24
- c4. c8 ~ c c4. | % 25
- }
- \alternative
- {
- {
- c4. c8 ~ c4 c | % 26
- c4. c8 ~ c4 c | % 27
- c4. c8 ~ c4 c | % 28
- c1 | % 29
- }
- {
- c4 c c c | % 30
- }
- }
+ c1 | % 4
+
+ % Verse
+
+ c4. c8 ~ c4 c | % 5
+ c4 c c c | % 6
+ c4 c c c | % 7
+ c4 c c c | % 8
+ c4. c8 ~ c4 c | % 9
+ c4 c c c | % 10
+ c4 c c c | % 11
+ c4. c8 ~ c4 c | % 12
+
+ % Chorus
+
+ c4 c c4. c8 ~ | % 13
+ c4 c c c | % 14
+ c4 c c4. c8 ~ | % 15
+ c4 c c c | % 16
+ c4 c c c | % 17
+ c4 c c c | % 18
+ c4. c8 ~ c4. c8 ~ | % 19
+ c8 c4. ~ c4 c | % 20
+ c4 c c c | % 21
+ c4 c c c | % 22
+ c4. c8 ~ c4. c8 ~ | % 23
+ c4. c8 ~ c4 c | % 24
+ c4. c8 ~ c c4. | % 25
+
+ c4. c8 ~ c4 c | % 26
+ c4. c8 ~ c4 c | % 27
+ c4. c8 ~ c4 c | % 28
+ c1 | % 29
+
+ c4 c c c | % 30
% Outro
c4. c8 ~ c c4. | % 33
c4. c8 ~ c2 | % 34
c4. c8_\markup { \italic { rit. } } ~ c2 | % 35
- c1^\fermata \bar "|." % 36
+ c1^\fermata | % 36
}
\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 Lyrics \lyricsto "lead" \LeadVoxTextB
>>
- \new ChoirStaff = "Rhythm"
+ \new ChoirStaff
<<
- \new ChordNames = "chords" \Chords
- \new RhythmicStaff = "chordRhythm" \StaffC
+ \new ChordNames \Chords
+ \new RhythmicStaff \StaffC
>>
\set Score.skipBars = ##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)))
% Spread staves vertically across last page (default: t)
ragged-last-bottom = ##f
% To find out what's eating the space at the top...
% annotate-spacing = ##t
-%let's try this: [It works! Huzzah!]
- obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
}
+