+% Need to change chart to add dbl p/c+c, add dynamics, band indications
+
+\version "2.19.48"
+\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))
+
+%{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
+
+\header
+{
+ title = \markup { \override #'(font-family . sans) \fontsize #3.5 "America, the Beautiful" }
+ composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Samuel Ward/Katherine Lee Bates" }
+% arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
+ tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
+}
+
+
+%
+% Song's structure
+%
+Global =
+{
+ \clef G
+ \key c \major
+ \numericTimeSignature
+ \time 4/4
+
+ \repeat volta 4
+ {
+ % Verse
+
+ \partial 4*1 { s4 }
+
+% \mark \markup { \override #'(font-family . sans) { \box { A } } }
+ s1 %^\markup { \italic { w/Rhythm Fig. 1 (thru B) } }
+ s1*3 \break
+ s1*4 \break
+ s1*4 \break
+ s1*3
+ \partial 4*3 { s2. } % 5-12
+ }
+}
+
+
+%
+% Lead vocal
+%
+LeadVox = \relative c''
+{
+ % Verse
+
+ g4 | % 0
+
+ g4. e8 e4 g | % 1
+ g4. d8 d4 e | % 2
+ f4 g a b | % 3
+ g2. g4 | % 4
+
+ g4. e8 e4 g | % 5
+ g4. d8 d4 d' | % 6
+ cs4 d e a, | % 7
+ d2. g,4 | % 8
+
+ e'4. e8 d4 c | % 9
+ c4. b8 b4 c | % 10
+ d4 b a g | % 11
+ c2. c4 | % 12
+
+ c4. a8 a4 c | % 13
+ c4. g8 g4 g | % 14
+ a4 c g d' | % 15
+ c2. | % 16
+}
+
+
+LeadVoxText = \lyricmode
+{
+ <<
+ { O beau -- ti -- ful for spa -- cious skies,
+ For am -- ber waves of grain,
+ For pur -- ple moun -- tain ma -- jes -- ties,
+ A -- bove the frui -- ted plain!
+ A -- me -- ri -- ca! A -- me -- ri -- ca!
+ God shed his grace on thee,
+ And crown thy good with bro -- ther -- hood
+ From sea to shi -- ning sea! }
+
+ \new Lyrics = "verse2" \with { alignBelowContext = #"verse1" }
+ { \set associatedVoice = "Lead"
+ O beau -- ti -- ful for pil -- grim feet,
+ Whose stern im -- pas -- sioned stress,
+ A thor -- ough -- fare for free -- dom beat
+ A -- cross the wil -- der -- ness!
+ A -- me -- ri -- ca! A -- me -- ri -- ca!
+ God mend thine e -- v'ry flaw,
+ Con firm thy soul in self con -- trol
+ Thy li -- ber -- ty in law! }
+
+ \new Lyrics = "verse3" \with { alignBelowContext = #"verse2" }
+ { \set associatedVoice = "Lead"
+ O beau -- ti -- ful for he -- roes proved
+ In li -- ber -- a -- ting strife,
+ Who more than self their coun -- try loved,
+ And mer -- cy more than life!
+ A -- me -- ri -- ca! A -- me -- ri -- ca!
+ May God thy gold re -- fine,
+ Till all suc -- cess be no -- ble -- ness,
+ And e -- v'ry gain di -- vine! }
+
+ \new Lyrics = "verse4" \with { alignBelowContext = #"verse3" }
+ { \set associatedVoice = "Lead"
+ O beau -- ti -- ful for pa -- triot dream,
+ That sees be -- yond the years,
+ Thine a -- la -- bas -- ter ci -- ties gleam,
+ Un -- dimmed by hu -- man tears!
+ A -- me -- ri -- ca! A -- me -- ri -- ca!
+ God shed his grace on thee,
+ And crown thy good with bro -- ther -- hood
+ From sea to shi -- ning sea! }
+ >>
+}
+
+
+Riffs = \relative c'
+{
+ % Intro
+
+%{ \tiny
+ r4 g g8 a b c ~ | % 1
+ c8 c b a g a b c ~ | % 2
+ c8 c b a g a b c ~ | % 3
+ c8 c b a g2 | % 4
+
+ s1*24
+
+ r4 g g8 a b c ~ | % 29
+ c8 c b a g a b c ~ | % 30
+ c8 c b a g a b c ~ | % 31
+ c8 c b a g2 | % 32
+
+ s1*8
+
+ r4 g g8 a b c ~ | % 41
+ c8 c b a g a b c ~ | % 42
+ c8 c b a g d' e f ~ | % 43
+ f8 f e d g2-\fermata | % 44
+%}
+}
+
+
+%
+% Chord names
+%
+Chords = \chordmode
+{
+ % Verse
+
+ s4 | % 0
+
+ c1 | % 1
+ g1 | % 2
+ g1:7 | % 3
+ c1 | % 4
+
+ c1 | % 5
+ g1 | % 6
+ a1:7 | % 7
+ d2:7 g:7 | % 8
+
+ c1 | % 9
+ g1 | % 10
+ g1:7 | % 11
+ c2. c4:7 | % 12
+
+ f1 | % 13
+ c1 | % 14
+ f2 g:7 | % 15
+ c2. | % 16
+}
+
+
+%
+% Chord rhythms
+%
+StaffC = \relative c
+{
+ \numericTimeSignature
+ \override NoteHead #'style = #'slash
+ \teeny
+
+ % Verse
+
+ c4 | % 0
+
+ c1 | % 1
+ c1 | % 2
+ c1 | % 3
+ c2 r8 c4-> c8-> ~ | % 4
+
+ c1 | % 5
+ c1 | % 6
+ c1 | % 7
+ c2 r8 c4-> c8-> ~ | % 8
+
+ c1 | % 9
+ c1 | % 10
+ c1 | % 11
+ c2 r8 c4-> c8-> ~ | % 12
+
+ c2. ~ c8 c ~ | % 13
+ c8 c4 c8 ~ c4 c ~ | % 14
+ c8 c4 c8 ~ c4 c ~ | % 15
+ c2. | % 16
+}
+
+
+Dynamics =
+{
+%{
+ s1_\markup { \italic { snare pat. } } | % 1
+ s1_\markup { \italic { simile } } | % 2
+ s1*19
+ s1_\markup { \italic { spacy } } | % 22
+ s1*5
+ s1 s \< s \! | % 28
+ s1*22
+ s1_\markup { \italic { Last time } } | % 51
+%}
+}
+
+
+\score
+{
+ <<
+
+% \new ChoirStaff
+ <<
+ \new ChordNames \Chords
+% \new RhythmicStaff << \StaffC \Dynamics >>
+ >>
+
+ \new Staff
+ <<
+ \Global % The "roadmap" that everything else depends on
+ \new Voice = "lead" \LeadVox
+% \new Voice = "riffs" \Riffs
+ \new Lyrics = "verse1" \lyricsto "lead" \LeadVoxText
+ >>
+
+ \set Score.skipBars = ##t
+ \set Score.melismaBusyProperties = #'()
+ >>
+}
+
+%{
+\layout
+{
+ \context
+ {
+ \Staff \override VerticalAxisGroup.default-staff-staff-spacing.basic-distance = #30
+ }
+}
+%}
+
+\paper
+{
+ #(define fonts (make-pango-font-tree
+ "Times New Roman"
+ "LilyJAZZText"
+ "Luxi Mono"
+ (/ staffSize 20)))
+
+% basic-distance does nothing, so padding it is...
+ system-system-spacing = #'((padding . 10.0))
+ markup-system-spacing = #'((padding . 10.0))
+% system-system-spacing = #'((basic-distance . 10.0) (padding . 10.0))
+% markup-system-spacing = #'((basic-distance . 10.0) (padding . 10.0))
+% system-system-spacing #'basic-distance = #10
+% markup-system-spacing #'basic-distance = #10
+% 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 = ##f
+
+% To find out what's eating the space at the top...
+% annotate-spacing = ##t
+}
+