\version "2.19.0"
\include "pop-chords.ly"
\include "english.ly"

% Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
staffSize = #20
#(set-default-paper-size "letter")
#(set-global-staff-size staffSize)
#(ly:set-option (quote no-point-and-click))

\header
{
	title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "One Small Child" }
	composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "D. Meece" }
	arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
	tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
}


%
% Song's structure
%
Global =
{
	\key d \minor
	\numericTimeSignature
	\time 4/4

	% Intro

	s1*4 \bar "||"   % 1-4

	% Verse

	\mark \markup { \override #'(font-family . sans) { \box { A } } }

	s1*9 |   % 5-13

	\once \override Score.RehearsalMark #'self-alignment-X = #right
	\mark \markup { { To Coda } \hspace #0.5 \musicglyph #"scripts.coda" }

	s1 \bar ".|:-||"   % 14

	\repeat volta 2
	{
		% Verse

		\mark \markup { \override #'(font-family . sans) { \box { B } } }

		s1*10 \bar "||"   % 15-24

		% Bridge

		\mark \markup { \override #'(font-family . sans) { \box { C } } }

		s1*7 |   % 25-31
	}
	\alternative
	{
		{
			\time 6/4 s1. |   % 32
		}
		{
			\time 6/4 s1. \bar "||"   % 33
		}
	}

	\time 4/4
	\once \override Score.RehearsalMark #'self-alignment-X = #right
	\mark \markup { \hspace #0.0 \raise #1.0 \italic { D.C. al Coda } }

	% Coda

	% blank measure between last measure and coda
%	\stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
	\stopStaff s1 \startStaff
%	\break % Meh
	\set Score.currentBarNumber = #34

	\once \override Score.RehearsalMark #'self-alignment-X = #left
	\mark \markup { { \musicglyph #"scripts.coda" } "Coda" }

	s1*5 \bar "|."   % 34-38
}


%
% Lead vocal
%
LeadVox = \relative c'
{
	% Intro

	s1*4 |    % 1-4

	% Verse

	d4 a' g f8 e |    % 5
	d4 e8 f e ( d ) c4 |    % 6
	d4 a' c c8 c |    % 7
	b8 a g4 a2 |    % 8
	d,4 a' g f8 e |    % 9
	d4 e8 f e ( d ) c4 |    % 10
	d4 a' g f8 e |    % 11
	d1 |    % 12
	d4 a' g f8 e |    % 13
	d2. r4 |    % 14

	% Verse

	d4 a' g f8 e |    % 15
	d4 e8 ( f ) e ( d ) c4 |    % 16
	d4 a' c c8 c |    % 17
	b8 a g4 a2 |    % 18
	d,4 a' g f8 e |    % 19
	d4 e8 f e d c4 |    % 20
	d4 a' g f8 e |    % 21
	d4 ( a' g ) f8 ( e |    % 22
	d4 a' g f8 e |    % 23
	d1 ) |    % 24

	% Bridge

	a'4 a g a8 bf |    % 25
	a4 bf8 a g4 c, |    % 26
	a'4 a g c |    % 27
	f,8 ( e ) d4 c2 |    % 28
	a'4 a g c |    % 29
	a4 bf8 a g4 c, |    % 30
	a'4 a g c |    % 31

	f,8 ( e ) d4 c1 |    % 32

	f8 ( e ) d4 c1 |    % 33

	% Coda

	s1   % For blank measure

	d1 |    % 34
	d4 a' g-\fermata f8 c' |   % 35
	d1 |   % 36
	s1*2 |    % 37-38
}


LeadVoxText = \lyricmode
{
	One small child in a land of a thou -- _ sand,
	One small dream of a sav -- ior to -- night.
	One small hand reach -- ing out to the star -- _ light,
	One small ci -- ty of life.
	One small ci -- ty of life.

	One king bring -- ing his gold and _ ri -- _ ches,
	One king rul -- ing an ar -- my of might,
	One king kneel -- ing with in -- cense and can -- dle -- light,
	One King bring -- ing us life. __ _ _
	Oh, __ _ _ _ _ _ _ _

	See him ly -- ing a cra -- dle be -- neath him,
	See him smil -- ing in _ the stall.
	See his moth -- er prais -- ing his fa -- ther,
	See his ti -- ny eye -- _ lids fall.

	_ _ _ _
	life.
	One small sav -- ior of life.
}

LeadVoxTextB = \lyricmode
{
	One small child in a land of a thou -- _ sand,
	One small dream in a peo -- ple of might,
	One small hand reach -- ing out to the star -- _ light,
	One small sav -- ior of life.
	One small sav -- ior of _

	One small light from the flame of a can -- _ dle,
	One small light from a ci -- ty of might,
	One small light from the stars in the end -- less night,
	One small light from his face. __ _ _
	Oh, __ _ _ _ _ _ _ _

	See the shep -- herds _ kneel -- ing be -- fore him,
	See the kings on bend -- _ ed knee,
	See the moth -- er prais -- ing his fa -- ther,
	See the bless -- ed _ _ _ _ in -- _ fant sleep.
}


Riffs = \relative c'''
{
	% Intro

	\tiny
	<< { \tiny a2 g } \\ { \tiny r8 a, d f c4 g } >> |   % 1
	<< { f'2 e } \\ { a,4 d8 a bf4 g } >> |   % 2
	<< { d'4 e8 f e4 ~ e16 d cs8 } \\ { f,2 g } >> |   % 3
	<< { <a d>1 } \\ { g2 f  } >> |   % 4

	s1*27 |   % 5-31
	s1.*2 |   % 32-33
	s1*3 |   % 34-35 (+ blank Coda measure)

	<< { \tiny a'2 g } \\ { \tiny r8 a, d f c4 g } >> |   % 36
	<< { f'2 e } \\ { a,4 d8 a bf4 g } >> |   % 37
	<fs a d>1-\fermata |   % 38
	\normalsize
}


%
% Chord names
%
Chords = \chordmode
{
	% Intro

	d2:m c/e |    % 1
	d2:m/f g:m6 |    % 2
	d2:m/a a:7 |    % 3
	d2:sus4 d:m |    % 4

	% Verse

	d2:m c |    % 5
	d2:m a:m7 |    % 6
	d2:m f |    % 7
	g2 a4:sus4 a |    % 8
	d2:m a:m |    % 9
	bf2:maj7 a:m7 |    % 10
	g2:m7 a:m7 |    % 11
	d2:m c |    % 12
	bf2:maj7 c |    % 13
	d2:sus4 d:m |    % 14

	% Verse

	d2:m c |    % 15
	bf2:maj7 a:m7 |    % 16
	d2:m f |    % 17
	g2 a4:sus4 a |    % 18
	d2:m a:m7 |    % 19
	bf2:maj7 a:m7 |    % 20
	g2:m7 a:m7 |    % 21
	d2:m7 c |    % 22
	bf2:maj7 c |    % 23
	d1:m |    % 24

	% Bridge

	f2 g:m/f |    % 25
	f2 g:m/f |    % 26
	f2 c/e |    % 27
	d4:m7 g:7 c2:sus2 |    % 28
	f2 g:m/f |    % 29
	f2 g:m/f |    % 30
	f2 c/e |    % 31

	d4:m7 g:7 c1:sus2 |    % 32

	d4:m7 g:7 c1:sus2 |    % 33

	% Coda

	s1   % For blank measure

	bf2:maj7 a:m7 |    % 34
	g2:m7 c |    % 35
	d2:m c/e |    % 36
	d2:m/f g:m6 |    % 37
	d1 |    % 38
}


%
% Chord rhythms
%
Rhythm = \relative c
{
	\numericTimeSignature
	\override NoteHead #'style = #'slash
	\teeny

	% Intro

	c2 c |    % 1
	c2 c |    % 2
	c2 c |    % 3
	c4 c c2 |    % 4

	% Verse

	c4 c c c |    % 5
	c4 c c c |    % 6
	c4 c c c |    % 7
	c4 c c c |    % 8
	c4 c c c |    % 9
	c4 c c c |    % 10
	c4 c c c |    % 11
	c4 c c c |    % 12
	c4 c c c |    % 13
	c4 c c2 |    % 14

	% Verse

	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 |    % 21
	c4 c c c |    % 22
	c4 c c c |    % 23
	c4 c c c |    % 24

	% Bridge

	c4 c c c |    % 25
	c4 c c c |    % 26
	c4 c c c |    % 27
	c4 c c c |    % 28
	c4 c c c |    % 29
	c4 c c c |    % 30
	c4 c c c |    % 31

	c4 c c2 ~ c2 |    % 32

	c4 c c2 ~ c2 |    % 33

	% Coda

\stopStaff s1 \startStaff   % For blank measure

	c4 c c c |    % 34
	c4 c c2-\fermata |    % 35
	c2 c |    % 36
	c2 c |    % 37
	c1-\fermata |    % 38
}


Dynamics =
{
%	s1*4 |   % 1-4
%	s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
%	s1*38 |   % 1-38
%	s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. |   % 39
%	s1*7 |   % 40-46
%	s4_\markup { \bold { Tutti } } s2. |   % 47
}


\score
{
	<<
		\Global		% The "roadmap" that everything else depends on
		\set Score.skipBars = ##t
		\set Score.melismaBusyProperties = #'()

		\context Staff
		<<
			\new Voice = "lead" \LeadVox
			\new Voice \Riffs
			\new Lyrics \lyricsto "lead" \LeadVoxText
			\new Lyrics \lyricsto "lead" \LeadVoxTextB
		>>

		\new ChoirStaff
		<<
			\new ChordNames \Chords
%Capo 4 edition
%			\new ChordNames \transpose b g \Chords
			\new RhythmicStaff << \Rhythm \Dynamics >>
		>>
	>>
}


\paper
{
	#(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
% 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
}