Shamusworld >> Repos - music/blob - covers/america-the-beautiful.ly

   1 % Need to change chart to add dbl p/c+c, add dynamics, band indications
   2
   3 \version "2.19.48"
   4 \include "../pop-chords.ly"
   5 \include "english.ly"
   6
   7 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   8 staffSize = #20
   9 #(set-default-paper-size "letter")
  10 #(set-global-staff-size staffSize)
  11 #(ly:set-option (quote no-point-and-click))
  12
  13 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  14
  15 \header
  16 {
  17         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "America, the Beautiful" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Samuel Ward/Katherine Lee Bates" }
  19 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 }
  22
  23
  24 %
  25 % Song's structure
  26 %
  27 Global =
  28 {
  29         \clef G
  30         \key c \major
  31         \numericTimeSignature
  32         \time 4/4
  33
  34         \repeat volta 4
  35         {
  36                 % Verse
  37
  38                 \partial 4*1 { s4 }
  39
  40 %               \mark \markup { \override #'(font-family . sans) { \box { A } } }
  41                 s1 %^\markup { \italic { w/Rhythm Fig. 1 (thru B) } }
  42                 s1*3 \break
  43                 s1*4 \break
  44                 s1*4 \break
  45                 s1*3
  46                 \partial 4*3 { s2. }   % 5-12
  47         }
  48 }
  49
  50
  51 %
  52 % Lead vocal
  53 %
  54 LeadVox = \relative c''
  55 {
  56         % Verse
  57
  58         g4 | % 0
  59
  60         g4. e8 e4 g |   % 1
  61         g4. d8 d4 e |   % 2
  62         f4 g a b |   % 3
  63         g2. g4 |   % 4
  64
  65         g4. e8 e4 g |   % 5
  66         g4. d8 d4 d' |   % 6
  67         cs4 d e a, |   % 7
  68         d2. g,4 |   % 8
  69
  70         e'4. e8 d4 c |   % 9
  71         c4. b8 b4 c |   % 10
  72         d4 b a g |   % 11
  73         c2. c4 |   % 12
  74
  75         c4. a8 a4 c |   % 13
  76         c4. g8 g4 g |   % 14
  77         a4 c g d' |   % 15
  78         c2. |   % 16
  79 }
  80
  81
  82 LeadVoxText = \lyricmode
  83 {
  84         <<
  85         { O beau -- ti -- ful for spa -- cious skies,
  86         For am -- ber waves of grain,
  87         For pur -- ple moun -- tain ma -- jes -- ties,
  88         A -- bove the frui -- ted plain!
  89         A -- me -- ri -- ca! A -- me -- ri -- ca!
  90         God shed his grace on thee,
  91         And crown thy good with bro -- ther -- hood
  92         From sea to shi -- ning sea! }
  93
  94         \new Lyrics = "verse2" \with { alignBelowContext = #"verse1" }
  95         { \set associatedVoice = "Lead"
  96         O beau -- ti -- ful for pil -- grim feet,
  97         Whose stern im -- pas -- sioned stress,
  98         A thor -- ough -- fare for free -- dom beat
  99         A -- cross the wil -- der -- ness!
 100         A -- me -- ri -- ca! A -- me -- ri -- ca!
 101         God mend thine e -- v'ry flaw,
 102         Con firm thy soul in self con -- trol
 103         Thy li -- ber -- ty in law! }
 104
 105         \new Lyrics = "verse3" \with { alignBelowContext = #"verse2" }
 106         { \set associatedVoice = "Lead"
 107         O beau -- ti -- ful for he -- roes proved
 108         In li -- ber -- a -- ting strife,
 109         Who more than self their coun -- try loved,
 110         And mer -- cy more than life!
 111         A -- me -- ri -- ca! A -- me -- ri -- ca!
 112         May God thy gold re -- fine,
 113         Till all suc -- cess be no -- ble -- ness,
 114         And e -- v'ry gain di -- vine! }
 115
 116         \new Lyrics = "verse4" \with { alignBelowContext = #"verse3" }
 117         { \set associatedVoice = "Lead"
 118         O beau -- ti -- ful for pa -- triot dream,
 119         That sees be -- yond the years,
 120         Thine a -- la -- bas -- ter ci -- ties gleam,
 121         Un -- dimmed by hu -- man tears!
 122         A -- me -- ri -- ca! A -- me -- ri -- ca!
 123         God shed his grace on thee,
 124         And crown thy good with bro -- ther -- hood
 125         From sea to shi -- ning sea! }
 126         >>
 127 }
 128
 129
 130 Riffs = \relative c'
 131 {
 132         % Intro
 133
 134 %{      \tiny
 135         r4 g g8 a b c ~ |   % 1
 136         c8 c b a g a b c ~ |   % 2
 137         c8 c b a g a b c ~ |   % 3
 138         c8 c b a g2 |   % 4
 139
 140         s1*24
 141
 142         r4 g g8 a b c ~ |   % 29
 143         c8 c b a g a b c ~ |   % 30
 144         c8 c b a g a b c ~ |   % 31
 145         c8 c b a g2 |   % 32
 146
 147         s1*8
 148
 149         r4 g g8 a b c ~ |   % 41
 150         c8 c b a g a b c ~ |   % 42
 151         c8 c b a g d' e f ~ |   % 43
 152         f8 f e d g2-\fermata |   % 44
 153 %}
 154 }
 155
 156
 157 %
 158 % Chord names
 159 %
 160 Chords = \chordmode
 161 {
 162         % Verse
 163
 164         s4 |   % 0
 165
 166         c1 |   % 1
 167         g1 |   % 2
 168         g1:7 |   % 3
 169         c1 |   % 4
 170
 171         c1 |   % 5
 172         g1 |   % 6
 173         a1:7 |   % 7
 174         d2:7 g:7 |   % 8
 175
 176         c1 |   % 9
 177         g1 |   % 10
 178         g1:7 |   % 11
 179         c2. c4:7 |   % 12
 180
 181         f1 |   % 13
 182         c1 |   % 14
 183         f2 g:7 |   % 15
 184         c2. |   % 16
 185 }
 186
 187
 188 %
 189 % Chord rhythms
 190 %
 191 StaffC = \relative c
 192 {
 193         \numericTimeSignature
 194         \override NoteHead #'style = #'slash
 195         \teeny
 196
 197         % Verse
 198
 199         c4 |   % 0
 200
 201         c1 |   % 1
 202         c1 |   % 2
 203         c1 |   % 3
 204         c2 r8 c4-> c8-> ~ |   % 4
 205
 206         c1 |   % 5
 207         c1 |   % 6
 208         c1 |   % 7
 209         c2 r8 c4-> c8-> ~ |   % 8
 210
 211         c1 |   % 9
 212         c1 |   % 10
 213         c1 |   % 11
 214         c2 r8 c4-> c8-> ~ |   % 12
 215
 216         c2. ~ c8 c ~ |   % 13
 217         c8 c4 c8 ~ c4 c ~ |   % 14
 218         c8 c4 c8 ~ c4 c ~ |   % 15
 219         c2. |   % 16
 220 }
 221
 222
 223 Dynamics =
 224 {
 225 %{
 226         s1_\markup { \italic { snare pat. } } |   % 1
 227         s1_\markup { \italic { simile } } |   % 2
 228         s1*19
 229         s1_\markup { \italic { spacy } } |   % 22
 230         s1*5
 231         s1 s \< s \! |   % 28
 232         s1*22
 233         s1_\markup { \italic { Last time } } |   % 51
 234 %}
 235 }
 236
 237
 238 \score
 239 {
 240         <<
 241
 242 %               \new ChoirStaff
 243                 <<
 244                         \new ChordNames \Chords
 245 %                       \new RhythmicStaff << \StaffC \Dynamics >>
 246                 >>
 247
 248                 \new Staff
 249                 <<
 250                         \Global         % The "roadmap" that everything else depends on
 251                         \new Voice = "lead" \LeadVox
 252 %                       \new Voice = "riffs" \Riffs
 253                         \new Lyrics = "verse1" \lyricsto "lead" \LeadVoxText
 254                 >>
 255
 256                 \set Score.skipBars = ##t
 257                 \set Score.melismaBusyProperties = #'()
 258         >>
 259 }
 260
 261 %{
 262 \layout
 263 {
 264         \context
 265         {
 266                 \Staff \override VerticalAxisGroup.default-staff-staff-spacing.basic-distance = #30
 267         }
 268 }
 269 %}
 270
 271 \paper
 272 {
 273         #(define fonts (make-pango-font-tree
 274                 "Times New Roman"
 275                 "LilyJAZZText"
 276                 "Luxi Mono"
 277                 (/ staffSize 20)))
 278
 279 % basic-distance does nothing, so padding it is...
 280         system-system-spacing = #'((padding . 10.0))
 281         markup-system-spacing = #'((padding . 10.0))
 282 %       system-system-spacing = #'((basic-distance . 10.0) (padding . 10.0))
 283 %       markup-system-spacing = #'((basic-distance . 10.0) (padding . 10.0))
 284 %       system-system-spacing #'basic-distance = #10
 285 %       markup-system-spacing #'basic-distance = #10
 286 % Don't spread staves vertically across last page (default: t)
 287 %       ragged-last-bottom = ##f
 288 % Don't spread staves vertically across the page (default: f)
 289 %       ragged-bottom = ##t
 290 % Allow partial line for last stave (default: f)
 291         ragged-last = ##f
 292
 293 % To find out what's eating the space at the top...
 294 %       annotate-spacing = ##t
 295 }
 296