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

staffSize = #20
#(set-default-paper-size "letter")
#(set-global-staff-size staffSize)

\header
{
	title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "A Chord Dictionary Example" }
	composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
	arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. R. Freeland" }
	tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
% Let's try a chord dictionary
	subtitle = \markup { \override #'(font-family . sans) { \center-column { C9 \fret-diagram-terse #"x;3;2;3;3;x;" } "     " \center-column { "B7#9" \fret-diagram-terse #"x;2;1;2;3;x;" } "     " \center-column { { "B" \chordFlat "maj7" } \fret-diagram-terse #"x;1;3;2;3;x;" } "     " \center-column { A7sus4 \fret-diagram-terse #"x;o;2;o;3;x;" } "     " \center-column { "F#7#5" \fret-diagram-terse #"2;x;2;3;3;x;" } "     " \center-column { "Ab7b5" \fret-diagram-terse #"4;5;4;5;x;x;" } "     " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } "     " \center-column { "C#m11" \fret-diagram-terse #"x;4;4;4;5;4;" } "     " \center-column { "F#7#9" \fret-diagram-terse #"2;4;2;3;2;5;" } } }
}


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

	% Intro

	s1*8 \bar "|."   % 1-8
}


%
% Lead vocal
%
LeadVox = \relative c'
{
	\clef G

	% Intro

	r1 |   % 1
	r1 |   % 2
	r1 |   % 3
	r1 |   % 4
	r1 |   % 5
	r1 |   % 6
	r1 |   % 7
	r4 d d fs |   % 8
}


LeadVoxText = \lyricmode
{
	Some ly -- ric
}


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

	c4.:9 b2:7.9+ bf8:7+ |   % 1
	s4. a2:sus4.7 s8 |   % 2
	d2..:7+ g8:/a |   % 3
	s1 |   % 4
	d2..:7+ fs8:aug7 |   % 5
	s1 |   % 6
	g4.:7+ d2:/fs e8:m7 |   % 7
	s4. a2:sus4.7 s8 |   % 8
}


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

	% Intro

	c4. c8 ~ c4. c8 ~ |   % 1
	c4. c8 ~ c2 |   % 2
	c4 c c r8 c ~ |   % 3
	c4 c c c |   % 4
	c4 c c r8 c ~ |   % 5
	c4 c c c |   % 6
	c4. c8 ~ c4. c8 ~ |   % 7
	c4. c8 ~ c2 |   % 8
}


Dynamics =
{
	s1_\markup { \small \italic { Ac. guitar } } |   % 1
	s1 |   % 2
	s1_\markup { \small \italic { Guitar II in } } |   % 3
	s1 |   % 4
	s1_\markup { \small \italic { Bass in } } |   % 5
	s1 |   % 6
	s1_\markup { \small \italic { Drums in } } |   % 7
	s1 |   % 8
}


\score
{
	<<
		\Global

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

		\new ChoirStaff
		<<
			\new ChordNames \Chords
			\new RhythmicStaff << \Rhythm \Dynamics >>
		>>

		\set Score.skipBars = ##t
		\set Score.melismaBusyProperties = #'()
	>>
}


\paper
{
	#(define fonts (make-pango-font-tree
		"Times New Roman"
		"LilyJAZZText"
		"Luxi Mono"
		(/ staffSize 20)))
}