-\version "2.16.0"
+\version "2.19.0"
\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 "We Three Kings" }
composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "John H. Hopkins, Jr." }
arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
- tagline = "Engraved by JLH and Lilypond 2.8.6"
+ 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 \minor
- \override Staff.TimeSignature #'style = #'()
+ \numericTimeSignature
\time 3/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
% Intro
{
% Interlude
-\mark \markup { \override #'(font-family . sans) { \box { 1 } } }
-
- s2. | % 3
- r2. | % 4
- r2. | % 5
- r2. | % 6
- r2. | % 7
- r2. | % 8
- r2. | % 9
- r2. \bar "||" % 10
+ \mark \markup { \override #'(font-family . sans) { \box { 1 } } }
+ s2.*8 \bar "||" % 3-10
-\break %bleh, only valid for size 16
+%\break %bleh, only valid for size 16
% Verse
-\mark \markup { \override #'(font-family . sans) { \box { A } } }
+ \mark \markup { \override #'(font-family . sans) { \box { A } } }
+ s2.*8 \bar "||" % 11-18
- b2 a4 | % 11
- g2 e4 | % 12
- fs4 g fs | % 13
- e2. | % 14
- b'2 a4 | % 15
- g2 e4 | % 16
- fs4 ( g ) fs | % 17
- e2. \bar "||" % 18
+ s2.*2 | % 19-20
- g2 g4 | % 19
- a2 a4 | % 20
+%\break %bleh, only valid for size 16
-\break %bleh, only valid for size 16
-
- b2 b4 | % 21
- d4 ( c ) b | % 22
- a4 b a | % 23
- g2 fs4 | % 24
- e2. | % 25
- fs2. ( | % 26
- a2. ) \bar "||" % 27
+ s2.*7 \bar "||" % 21-27
% Chorus
-\mark \markup { \override #'(font-family . sans) { \box { B } } }
+ \mark \markup { \override #'(font-family . sans) { \box { B } } }
- g2 g4 | % 28
- g2 d4 | % 29
+ s2.*2 | % 28-29
-\break %bleh, only valid for size 16
+%\break %bleh, only valid for size 16
- g2 e4 | % 30
- g2 r4 | % 31
- g2 g4 | % 32
- g2 d4 | % 33
- g2 e4 | % 34
- g2. | % 35
- g2 g4 | % 36
- a2 b4 | % 37
- c2 b4 | % 38
- a2 b4 | % 39
+ s2.*10 | % 30-39
-\break %bleh, only valid for size 16
+%\break %bleh, only valid for size 16
- g2 g4 | % 40
- g2 d4 | % 41
+ s2.*2 | % 40-41
}
\alternative
{
{
- g2 e4 | % 42
- g2. | % 43
+ s2.*2 | % 42-43
}
{
- g2. | % 44
+ s2. | % 44
}
}
- e2. | % 45
+ s2. | % 45
% Outro
\repeat volta 2
{
+ \mark \markup { \override #'(font-family . sans) { \box { C } } }
+ s2.*4 | % 46-49
+ }
-\mark \markup { \override #'(font-family . sans) { \box { C } } }
+ s2. \bar "|." % 50
+}
- g2. | % 46
- r2. | % 47
- r2. | % 48
- r2. | % 49
- }
- r2.-\fermata \bar "|." % 50
+%
+% Lead vocal
+%
+LeadVox = \relative c''
+{
+ % Intro
+
+ s2.*2 | % 1-2
+
+ % Interlude
+
+ s2. | % 3
+ r2.*7 | % 4-10
+
+ % Verse
+
+ b2 a4 | % 11
+ g2 e4 | % 12
+ fs4 g fs | % 13
+ e2. | % 14
+ b'2 a4 | % 15
+ g2 e4 | % 16
+ fs4 ( g ) fs | % 17
+ e2. | % 18
+
+ g2 g4 | % 19
+ a2 a4 | % 20
+
+ b2 b4 | % 21
+ d4 ( c ) b | % 22
+ a4 b a | % 23
+ g2 fs4 | % 24
+ e2. | % 25
+ fs2. ( | % 26
+ a2. ) | % 27
+
+ % Chorus
+
+ g2 g4 | % 28
+ g2 d4 | % 29
+
+ g2 e4 | % 30
+ g2 r4 | % 31
+ g2 g4 | % 32
+ g2 d4 | % 33
+ g2 e4 | % 34
+ g2. | % 35
+ g2 g4 | % 36
+ a2 b4 | % 37
+ c2 b4 | % 38
+ a2 b4 | % 39
+
+ g2 g4 | % 40
+ g2 d4 | % 41
+
+ g2 e4 | % 42
+ g2. | % 43
+
+ g2. | % 44
+
+ e2. | % 45
+
+ % Outro
+
+ g2. | % 46
+ r2. | % 47
+ r2. | % 48
+ r2. | % 49
+
+ r2.-\fermata | % 50
}
+
LeadVoxText = \lyricmode
{
We three kings of O -- ri -- ent are
Riffs = \relative c''
{
- \clef G
- \key e \minor
- \override Staff.TimeSignature #'style = #'()
- \time 3/4
-\override Score.SpacingSpanner #'average-spacing-wishes = ##f
-
% Intro
\tiny
%
% Chord names
%
-
Chords = \chordmode
{
-%Bah, can't we set this globally?
-% \popChords
-
% Intro
s2. | % 1
s2. | % 2
- \repeat volta 3
- {
- s8 e2:m7 s8 | % 3
- a2.:m9 | % 4
- s8 e2:m7 s8 | % 5
- c4.:9 b:7.5+.9- | % 6
- s8 e2:m7 s8 | % 7
- a2.:m9 | % 8
- s8 e2:m7 s8 | % 9
- c4.:9 b:7.5+.9- | % 10
-
- e2.:m7 | % 11
- c2.:maj7 | % 12
- b2.:7.5+.9- | % 13
- e2.:m7 | % 14
- c2.:maj7 | % 15
- a2.:m7 | % 16
- b2.:7.5+.9- | % 17
- e4.:m7 d/fs | % 18
-
- g2. | % 19
- d2. | % 20
- c2.:maj7 | % 21
- b2:m7 e4:m7 | % 22
- a2.:m7 | % 23
- b2.:7.5+.9- | % 24
- e2.:m7 | % 25
- d2. | % 26
- d2.:7 | % 27
-
- g2. | % 28
- s2. | % 29
- c2.:maj7 | % 30
- g2. | % 31
- s2. | % 32
- s2. | % 33
- c2.:maj7 | % 34
- g4. d/fs | % 35
- e2.:m7 | % 36
- b4.:m7 e:m7 | % 37
- a2.:m7 | % 38
- b2.:7.5+.9- | % 39
- c2.:maj7 | % 40
- b2.:m7 | % 41
- }
- \alternative
- {
- {
- a2.:m7 | % 42
- g4. g/fs | % 43
- }
- {
- a2.:m7 | % 44
- }
- }
+ s8 e2:m7 s8 | % 3
+ a2.:m9 | % 4
+ s8 e2:m7 s8 | % 5
+ c4.:9 b:7.5+.9- | % 6
+ s8 e2:m7 s8 | % 7
+ a2.:m9 | % 8
+ s8 e2:m7 s8 | % 9
+ c4.:9 b:7.5+.9- | % 10
+
+ e2.:m7 | % 11
+ c2.:maj7 | % 12
+ b2.:7.5+.9- | % 13
+ e2.:m7 | % 14
+ c2.:maj7 | % 15
+ a2.:m7 | % 16
+ b2.:7.5+.9- | % 17
+ e4.:m7 d/fs | % 18
+
+ g2. | % 19
+ d2. | % 20
+ c2.:maj7 | % 21
+ b2:m7 e4:m7 | % 22
+ a2.:m7 | % 23
+ b2.:7.5+.9- | % 24
+ e2.:m7 | % 25
+ d2. | % 26
+ d2.:7 | % 27
+
+ g2. | % 28
+ s2. | % 29
+ c2.:maj7 | % 30
+ g2. | % 31
+ s2. | % 32
+ s2. | % 33
+ c2.:maj7 | % 34
+ g4. d/fs | % 35
+ e2.:m7 | % 36
+ b4.:m7 e:m7 | % 37
+ a2.:m7 | % 38
+ b2.:7.5+.9- | % 39
+ c2.:maj7 | % 40
+ b2.:m7 | % 41
+
+ a2.:m7 | % 42
+ g4. g/fs | % 43
+
+ a2.:m7 | % 44
a2.:m7/d | % 45
- \repeat volta 2
- {
- s8 g2 s8 | % 46
- c2.:maj7 | % 47
- s8 g2 s8 | % 48
- c2.:maj7 | % 49
- }
+ s8 g2 s8 | % 46
+ c2.:maj7 | % 47
+ s8 g2 s8 | % 48
+ c2.:maj7 | % 49
g2. | % 50
}
%
% 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 3/4
+ \numericTimeSignature
\override NoteHead #'style = #'slash
+ \teeny
% Intro
r2. | % 1
r2. | % 2
- \repeat volta 3
- {
- r8 c4.-> c4-^ | % 3
- c2. | % 4
- r8 c4.-> c4-^ | % 5
- c4. c | % 6
- r8 c4.-> c4-^ | % 7
- c2. | % 8
- r8 c4.-> c4-^ | % 9
- c4. c \bar "||" % 10
-
- c2. | % 11
- c2. | % 12
- c2. | % 13
- c2. | % 14
- c2. | % 15
- c2. | % 16
- c2. | % 17
- c4. c \bar "||" % 18
-
- c2. | % 19
- c2. | % 20
- c2. | % 21
- c2 c4 | % 22
- c2. | % 23
- c2. | % 24
- c2. | % 25
- c2.-> | % 26
- c4 c c \bar "||" % 27
-
- c4 c c | % 28
- c4 c c | % 29
- c4 c c | % 30
- c4 c c | % 31
- c4 c c | % 32
- c4 c c | % 33
- c4 c c | % 34
- c4. c | % 35
- c4 c c | % 36
- c4. c | % 37
- c4 c c | % 38
- c4 c c | % 39
- c4 c c | % 40
- c4 c c | % 41
- }
- \alternative
- {
- {
- c4 c c | % 42
- c4. c | % 43
- }
- {
- c4 c c | % 44
- }
- }
+ r8 c4.-> c4-^ | % 3
+ c2. | % 4
+ r8 c4.-> c4-^ | % 5
+ c4. c | % 6
+ r8 c4.-> c4-^ | % 7
+ c2. | % 8
+ r8 c4.-> c4-^ | % 9
+ c4. c | % 10
+
+ c2. | % 11
+ c2. | % 12
+ c2. | % 13
+ c2. | % 14
+ c2. | % 15
+ c2. | % 16
+ c2. | % 17
+ c4. c | % 18
+
+ c2. | % 19
+ c2. | % 20
+ c2. | % 21
+ c2 c4 | % 22
+ c2. | % 23
+ c2. | % 24
+ c2. | % 25
+ c2.-> | % 26
+ c4 c c | % 27
+
+ c4 c c | % 28
+ c4 c c | % 29
+ c4 c c | % 30
+ c4 c c | % 31
+ c4 c c | % 32
+ c4 c c | % 33
+ c4 c c | % 34
+ c4. c | % 35
+ c4 c c | % 36
+ c4. c | % 37
+ c4 c c | % 38
+ c4 c c | % 39
+ c4 c c | % 40
+ c4 c c | % 41
+
+ c4 c c | % 42
+ c4. c | % 43
+
+ c4 c c | % 44
c4 c c | % 45
- \repeat volta 2
- {
- r8 c4.-> c4-^ | % 46
- c2. | % 47
- r8 c4.-> c4-^ | % 48
- c2. | % 49
- }
- c2.-\fermata \bar "|." % 50
+ r8 c4.-> c4-^ | % 46
+ c2. | % 47
+ r8 c4.-> c4-^ | % 48
+ c2. | % 49
+
+ c2.-\fermata | % 50
}
\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 Lyrics \lyricsto "lead" \LeadVoxTextC
>>
- \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"
+ "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
}
+