-\version "2.16.0"
+\version "2.19.0"
\include "pop-chords.ly"
\include "english.ly"
-staffSize = #18 % or 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))
{ \fontsize #3.5 "Lord I Lift Your Name On High" } }
% composer = \markup { \override #'(font-family . sans) "" }
arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart/Shamus Hammons" }
- 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 F
\key g \major
- \override Staff.TimeSignature #'style = #'()
+ \numericTimeSignature
\time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
% Intro
\repeat volta 2
{
-\once \override Score.RehearsalMark #'self-alignment-X = #left
-\mark \markup { \small \italic { Bass line througout } }
-
-\tiny
- g8 [ g ] r a16 [ b ] c8 [ c ] r d16 [ e ] | % 1
- d8 [ d ] r a16 [ b ] c [ c8 c16 ] ~ c [ c b a ] | % 2
- g8 [ g ] r a16 [ b ] c8 [ c ] r d16 [ e ] | % 3
- d8 [ d ] r a16 [ b ] c [ c8 c16 ] ~ c [ c b a ] | % 4
-\normalsize
+ \once \override Score.RehearsalMark #'self-alignment-X = #left
+ \mark \markup { \small \italic { Bass line througout } }
+ s1*4 | % 1-4
}
+
\clef G
\repeat volta 2
{
-\mark \markup { \override #'(font-family . sans) { \box { A } } }
-
% Verse
- r4 b'8 [ d ] g [ fs16 e ] ~ e8 [ d ] ~ | % 5
- d8 [ d ] ~ d2 r4 | % 6
- r4 b8 [ d ] g [ fs16 e ] ~ e8 [ d ] | % 7
- e8 ([ d ]) d2 r4 | % 8
- r4 b8 [ d ] g [ fs16 e ] ~ e8 [ d ] ~ | % 9
- d8 [ d ] ~ d2 r4 | % 10
- r4 b8 [ d ] g [ fs16 e ] ~ e8 [ d ] | % 11
- e8 ([ d ]) d2 r4 \bar"||" % 12
-
-\mark \markup { \override #'(font-family . sans) { \box { B } } }
+ \mark \markup { \override #'(font-family . sans) { \box { A } } }
+ s1*8 \bar"||" % 5-12
% Chorus
- r8 b' b [ b ] c4 b8 [ g16 a ] | % 13
- r4 d c4. b16 [ b ] | % 14
- r4 b8 [ b16 c (] ~ c8 [ b ]) a [ g16 a ] | % 15
- r4 d c4. b16 [ b ] | % 16
- r4 b8 [ b16 c (] ~ c8 [ b ]) a8 [ g16 a ] ~ | % 17
- a4 a8 [ a16 b (] ~ b8 [ a ]) g8 [ fs16 g ] ~ | % 18
- g4 e8 [ g ] a [ g16 fs ] ~ fs8 [ g ] ~ | % 19
+ \mark \markup { \override #'(font-family . sans) { \box { B } } }
+ s1*7 | % 13-19
}
\alternative
{
{
- g8 [ g ] ~ g2. | % 20
- R1 | % 21
+ s1*2 | % 20-21
}
{
- g8 \repeatTie [ g ] ~ g2. | % 22
+ s1 | % 22
}
}
-\mark \markup { \override #'(font-family . sans) { \box { C } } }
+ % Chorus (redux)
+
+ \mark \markup { \override #'(font-family . sans) { \box { C } } }
+ s1*8 | % 23-30
+
+ % Tag
+
+ s1*4 \bar "|." % 31-34
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c
+{
+ \set Voice.autoBeaming = ##f
+
+ % Intro
+
+ s1*4 | % 1-4
+
+ % Verse
+
+ r4 b'8 [ d ] g [ fs16 e ] ~ e8 [ d ] ~ | % 5
+ d8 [ d ] ~ d2 r4 | % 6
+ r4 b8 [ d ] g [ fs16 e ] ~ e8 [ d ] | % 7
+ e8 ([ d ]) d2 r4 | % 8
+ r4 b8 [ d ] g [ fs16 e ] ~ e8 [ d ] ~ | % 9
+ d8 [ d ] ~ d2 r4 | % 10
+ r4 b8 [ d ] g [ fs16 e ] ~ e8 [ d ] | % 11
+ e8 ([ d ]) d2 r4 | % 12
+
+ % Chorus
+
+ r8 b' b [ b ] c4 b8 [ g16 a ] | % 13
+ r4 d c4. b16 [ b ] | % 14
+ r4 b8 [ b16 c (] ~ c8 [ b ]) a [ g16 a ] | % 15
+ r4 d c4. b16 [ b ] | % 16
+ r4 b8 [ b16 c (] ~ c8 [ b ]) a8 [ g16 a ] ~ | % 17
+ a4 a8 [ a16 b (] ~ b8 [ a ]) g8 [ fs16 g ] ~ | % 18
+ g4 e8 [ g ] a [ g16 fs ] ~ fs8 [ g ] ~ | % 19
+
+ g8 [ g ] ~ g2. | % 20
+ R1 | % 21
+
+ g8 \repeatTie [ g ] ~ g2. | % 22
% Chorus (redux)
r4 e8 [ g ] a [ g16 fs ] ~ fs8 [ g ] ~ | % 31
g8 [ g ] ~ g2. | % 32
r4 e8 [ g ] a [ g16 fs ] ~ fs8 [ g ] ~ | % 33
- g8 [ g ] ~ g2.-\fermata \bar "|." % 34
+ g8 [ g ] ~ g2.-\fermata | % 34
}
+
LeadVoxText = \lyricmode
{
- _ _ _ _ _ _ _ _
- _ _ _ _ _ _ _ _ _ _ _
- _ _ _ _ _ _ _ _
- _ _ _ _ _ _ _ _ _ _ _
-
Lord I lift your name _ on _ high _
Lord I love to sing _ your prai- _ ses
I'm so glad you're in _ my _ life _
%
-% Chord names
+% Riffs
%
+Riffs = \relative c
+{
+ \set Voice.autoBeaming = ##f
+
+ \tiny
+ g8 [ g ] r a16 [ b ] c8 [ c ] r d16 [ e ] | % 1
+ d8 [ d ] r a16 [ b ] c [ c8 c16 ] ~ c [ c b a ] | % 2
+ g8 [ g ] r a16 [ b ] c8 [ c ] r d16 [ e ] | % 3
+ d8 [ d ] r a16 [ b ] c [ c8 c16 ] ~ c [ c b a ] | % 4
+ \normalsize
+}
+
+%
+% Chord names
+%
Chords = \chordmode
{
-%Bah, can't we set this globally?
-% \popChords
-
% Intro
g2 c | % 1
%
% 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
+ \teeny
% Intro
c4 c c c | % 31
c4 c c c | % 32
c4 c c_\markup { \italic { rit. } } c | % 33
- c1-\fermata \bar "|." % 34
+ c1-\fermata | % 34
}
\score
{
<<
+ \Global % The "roadmap" that everything else depends on
+
+ \context Staff
<<
- \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
+ \new Voice = "lead" \LeadVox
+ \new Voice = "riffs" \Riffs
\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
}
+