\include "english.ly"
% Good sizes are 16, 18, & 20
-staffSize = #20
+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 "He Knows My Name" }
% 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 e \major
- \override Staff.TimeSignature #'style = #'()
+ \numericTimeSignature
\time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
% Intro
\partial 8*1 s8 | % 0
- s1 | % 1
- s1 | % 2
- s1 | % 3
- s1 | % 4
+ s1*4 \bar ".|:-||" % 1-4
\repeat volta 2
{
% Verse
-\mark \markup { \override #'(font-family . sans) { \box { A } } }
+ \mark \markup { \override #'(font-family . sans) { \box { A } } }
- r4 e8 fs ~ fs4 a8 gs ( ~ | % 5
- gs4 e8 ) cs ~ cs4 r | % 6
- r4 gs'8 a ( ~ a gs ) fs fs ~ | % 7
- fs2 r | % 8
- r4 e8 fs ~ fs4 gs8 a | % 9
- gs4 ( e8 ) cs ~ cs4. e8 | % 10
- gs4 gs8 fs ~ fs4 e8 e ~ | % 11
- e2 r \bar "||" % 12
+ s1*8 \bar "||" % 5-12
% Chorus
-\mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
-
- r4 <cs' \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ( ~ | % 13
- <fs \hn ds \hn b>4. <e \hn b \hn gs>8 ) ~ <e \hn b \hn gs>2 | % 14
- r4 <cs' \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ~ | % 15
- <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <gs \hn e \hn b> ~ <gs \hn e \hn b>2 | % 16
- r4 <cs \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ~ | % 17
- <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn cs \hn gs> ~ <e \hn cs \hn gs>4 r8 <e \hn b \hn gs> | % 18
-\once \override Score.RehearsalMark #'self-alignment-X = #right
-\mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
- <e \hn cs \hn a>4 <gs \hn e \hn cs>8 <fs \hn ds \hn b>8 ~ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn b \hn gs> ~ | % 19
+ \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
+
+ s1*6 | % 13-18
+ \once \override Score.RehearsalMark #'self-alignment-X = #right
+ \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
+ s1 | % 19
}
\alternative
{
{
- <e \hn b \hn gs>2 r | % 20
+ s1 | % 20
}
{
- <e \hn b \hn gs>2 \repeatTie r \bar "||" % 21
+ s1 \bar "||" % 21
-\once \override Score.RehearsalMark #'self-alignment-X = #right
-\mark \markup { \italic { D.S. al Coda } }
+ \once \override Score.RehearsalMark #'self-alignment-X = #right
+ \mark \markup { \italic { D.S. al Coda } }
}
}
% Coda
-\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
-%\stopStaff s1 \startStaff
-\set Score.currentBarNumber = #22
+ \stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
+ %\stopStaff s1 \startStaff
+ \set Score.currentBarNumber = #22
%blegh
\break
-\once \override Score.RehearsalMark #'self-alignment-X = #left
-\mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
+ \once \override Score.RehearsalMark #'self-alignment-X = #left
+ \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
+
+ s1*9 \bar "|." % 22-30
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c'
+{
+ \clef G
+
+ % Intro
+
+ \partial 8*1 s8 | % 0
+ s1*4 | % 1-4
+
+ % Verse
+
+ r4 e8 fs ~ fs4 a8 gs ( ~ | % 5
+ gs4 e8 ) cs ~ cs4 r | % 6
+ r4 gs'8 a ( ~ a gs ) fs fs ~ | % 7
+ fs2 r | % 8
+ r4 e8 fs ~ fs4 gs8 a | % 9
+ gs4 ( e8 ) cs ~ cs4. e8 | % 10
+ gs4 gs8 fs ~ fs4 e8 e ~ | % 11
+ e2 r | % 12
+
+ % Chorus
+
+ r4 <cs' \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ( ~ | % 13
+ <fs \hn ds \hn b>4. <e \hn b \hn gs>8 ) ~ <e \hn b \hn gs>2 | % 14
+ r4 <cs' \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ~ | % 15
+ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <gs \hn e \hn b> ~ <gs \hn e \hn b>2 | % 16
+ r4 <cs \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ~ | % 17
+ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn cs \hn gs> ~ <e \hn cs \hn gs>4 r8 <e \hn b \hn gs> | % 18
+ <e \hn cs \hn a>4 <gs \hn e \hn cs>8 <fs \hn ds \hn b>8 ~ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn b \hn gs> ~ | % 19
+
+ <e \hn b \hn gs>2 r | % 20
+
+ <e \hn b \hn gs>2 \repeatTie r | % 21
+
+ % Coda
+
+ s1 % Extra bar for coda
<e \hn cs \hn a>4 <gs \hn e \hn cs>8 <fs \hn ds \hn b>8 ~ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn b \hn gs> ~ | % 22
<e \hn b \hn gs>2 r4 r8 <e \hn b> | % 23
<gs \hn e \hn cs>2. r8 e | % 25
e4 gs8 fs ~ fs4 e | % 26
\voiceTwo e1 \oneVoice | % 27
- s1 | % 28
- s1 | % 29
- s1 \bar "|." % 30
+ s1*3 | % 28-30
}
+
LeadVoxText = \lyricmode
{
I have _ a mak -- _ _ er, _
Riffs = \relative c''
{
\clef G
- \key e \major
- \override Staff.TimeSignature #'style = #'()
- \time 4/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
% Intro
%
% Chord names
%
-
Chords = \chordmode
{
-%Bah, can't we set this globally?
-% \popChords
-
% Intro
\partial 8*1 s8 | % 0
a4. b2 cs8:m7 | % 1
- r4. cs2:m7/b s8 | % 2
+ s4. cs2:m7/b s8 | % 2
fs4.:m7 b a8/b e | % 3
s2 b4/e a/e | % 4
- \repeat volta 2
- {
- % Verse
+ % Verse
- e4. fs2:m11 e8/gs | % 5
- s4. a2 s8 | % 6
- e4./b a2:sus2/cs b8:sus4 | % 7
- s4. b2 s8 | % 8
- e4. fs2:m11 e8/gs | % 9
- s4. a2 s8 | % 10
- e4./b b a8/b e | % 11
- s2 fs4:m7 e/gs | % 12
+ e4. fs2:m11 e8/gs | % 5
+ s4. a2 s8 | % 6
+ e4./b a2:sus2/cs b8:sus4 | % 7
+ s4. b2 s8 | % 8
+ e4. fs2:m11 e8/gs | % 9
+ s4. a2 s8 | % 10
+ e4./b b a8/b e | % 11
+ s2 fs4:m7 e/gs | % 12
- % Chorus
+ % Chorus
- a4. e2 b8 | % 13
- s4. e2 s8 | % 14
- a4. e2 b8 | % 15
- s4. e2 s8 | % 16
- a4. e2 b8 | % 17
- s4. cs2:m7 s8 | % 18
- fs4.:m7 b2 e8 | % 19
- }
- \alternative
- {
- {
- s2 a/b | % 20
- }
- {
- s2 fs4:m7 e/gs | % 21
- }
- }
+ a4. e2 b8 | % 13
+ s4. e2 s8 | % 14
+ a4. e2 b8 | % 15
+ s4. e2 s8 | % 16
+ a4. e2 b8 | % 17
+ s4. cs2:m7 s8 | % 18
+ fs4.:m7 b2 e8 | % 19
+
+ s2 a/b | % 20
+
+ s2 fs4:m7 e/gs | % 21
% Coda
-s1
+ s1 % Extra bar for coda
fs4.:m7 b2 cs8:m7 | % 22
s2 cs:m7/b | % 23
%
% 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. c8 ~ c4 c8 c ~ | % 3
c2 c4 c | % 4
- \repeat volta 2
- {
- % Verse
+ % Verse
- c4. c8 ~ c4. c8 ~ | % 5
- c4. c8 ~ c4 c | % 6
- c4. c8 ~ c4. c8 ~ | % 7
- c4. c8 ~ c2 | % 8
- c4. c8 ~ c4. c8 ~ | % 9
- c4. c8 ~ c4 c | % 10
- c4. c8 ~ c4 c8 c ~ | % 11
- c2 c4 c \bar "||" % 12
+ c4. c8 ~ c4. c8 ~ | % 5
+ c4. c8 ~ c4 c | % 6
+ c4. c8 ~ c4. c8 ~ | % 7
+ c4. c8 ~ c2 | % 8
+ c4. c8 ~ c4. c8 ~ | % 9
+ c4. c8 ~ c4 c | % 10
+ c4. c8 ~ c4 c8 c ~ | % 11
+ c2 c4 c | % 12
- % Chorus
+ % Chorus
- c4. c8 ~ c4. c8 ~ | % 13
- c4. c8 ~ c4 c | % 14
- c4. c8 ~ c4. c8 ~ | % 15
- c4. c8 ~ c4 c | % 16
- c4. c8 ~ c4. c8 ~ | % 17
- c4. c8 ~ c4 c | % 18
- c4. c8 ~ c4. c8 ~ | % 19
- }
- \alternative
- {
- {
- c4 c c c | % 20
- }
- {
- c4 \repeatTie c c c | % 21
- }
- }
+ c4. c8 ~ c4. c8 ~ | % 13
+ c4. c8 ~ c4 c | % 14
+ c4. c8 ~ c4. c8 ~ | % 15
+ c4. c8 ~ c4 c | % 16
+ c4. c8 ~ c4. c8 ~ | % 17
+ c4. c8 ~ c4 c | % 18
+ c4. c8 ~ c4. c8 ~ | % 19
+
+ c4 c c c | % 20
+
+ c4 \repeatTie c c c | % 21
% Coda
\stopStaff s1 \bar "" \startStaff % That removed the spurious floating bar line from line break
%\stopStaff s1 \startStaff
-\set Score.currentBarNumber = #22
c4. c8 ~ c4. c8 ~ | % 22
c4 c c c | % 23
c4. c8 ~ c4. c8 ~ | % 27
c4. c8 ~ c4 c | % 28
c4 c c c | % 29
- c1-\fermata \bar "|." % 30
+ c1-\fermata | % 30
}
\score
{
<<
+ \Global % The "roadmap" that everything else depends on
+
+ \context Staff
<<
-% \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
- \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
+ \new Voice = "lead" \LeadVox
+ \new Voice = "riffs" \Riffs
\new Lyrics \lyricsto "lead" \LeadVoxText
\new Lyrics \lyricsto "lead" \LeadVoxTextB
>>
- \new ChoirStaff = "Rhythm"
+ \new ChoirStaff
<<
- \new ChordNames = "chords" \Chords
- \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
+ \new ChordNames \Chords
+ \new RhythmicStaff << \StaffC \Dynamics >>
>>
\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)))
-
-% top-margin = -0.25 \in
+ #(define fonts (make-pango-font-tree
+ "Times New Roman"
+ "JazzText"
+ "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
}
+