Shamusworld >> Repos - music/blob - we-fall-down.ly

   1 \version "2.19.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   6 staffSize = #20
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "We Fall Down" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "C. Tomlin" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21 % Useful tweak abbreviations (hn = harmony note)
  22
  23 hn = #(define-music-function (parser location arg) (ly:music?)
  24 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  25
  26   (set! (ly:music-property arg 'tweaks)
  27     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  28
  29 %
  30 % Song's structure
  31 %
  32 Global =
  33 {
  34         \key a \major
  35         \numericTimeSignature
  36         \time 4/4
  37
  38         % Intro
  39
  40 %       \once \override TextScript #'padding = #2.0
  41 %       s1*0^\markup { \large \italic { Piano only } }
  42         s1*2 \bar "||"   % 1-2
  43
  44         % Verse
  45
  46         \mark \markup { \override #'(font-family . sans) { \box { A } } }
  47         s1*8 \bar "||"   % 3-10
  48
  49         % Refrain
  50
  51         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  52         s1*6 \bar "||"   % 11-16
  53
  54         % Outro
  55
  56         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  57         s1*4 \bar "|."  % 17-20
  58 }
  59
  60
  61 %
  62 % Lead vocal
  63 %
  64
  65 LeadVox = \relative c'
  66 {
  67         % Intro
  68
  69         R1 |   % 1
  70         R1 |   % 2
  71
  72         % Verse
  73
  74         cs8 e4 e8 ~ e4 ~ e8 a, |   % 3
  75         gs8 b4 a8 ~ a4 ~ a8 b16 cs |   % 4
  76         d2 ~ d8 cs4 cs8 ( ~ |   % 5
  77         cs8 b ) b2 r8. b16 |   % 6
  78
  79         cs8 e4 e8 ~ e4 ~ e8 a, |   % 7
  80         gs16 gs b4 a8 ~ a4 ~ a8 b16 cs |   % 8
  81         d2 ~ d8 cs4 cs8 ( ~ |   % 9
  82         cs8 b ) b a a4 e' |   % 10
  83
  84         % Refrain
  85
  86         e4 e8 d ~ d d4 cs8 ~ |   % 11
  87         cs8 b4 r8 a4 e' |   % 12
  88         e4 e8 d ~ d d4 cs8 ~ |   % 13
  89         cs8 b4 r8 a4 e' |   % 14
  90
  91         e4 e8 d ~ d d4 cs8 ~ |   % 15
  92         cs8 b4. cs4 b8 ( a ) |   % 16
  93
  94         % Outro
  95
  96         a2 r |   % 17
  97         R1 |   % 18
  98         R1 |   % 19
  99         R1 |   % 20
 100 }
 101
 102
 103 LeadVoxTextA = \lyricmode
 104 {
 105         We fall down, _ _ we lay our crowns, _ _
 106         at the feet _ of Je -- _ _ sus
 107
 108         The great -- ness of _ _ his mer -- cy and love, _ _
 109         at the feet _ of Je -- _ _ sus
 110
 111         And we cry, ho -- ly, ho -- _ ly, ho -- _ ly,
 112         we cry, ho -- ly, ho -- _ ly, ho -- _ ly,
 113         we cry, ho -- ly, ho -- _ ly, ho -- _ ly
 114         is the _ lamb.
 115 }
 116
 117
 118 Riffs = \relative c''
 119 {
 120 %{
 121         \tiny
 122         a8 gs gs fs |   % 0
 123         gs4 gs a8 gs fs e |   % 1
 124         fs4 fs a8 gs gs fs |   % 2
 125         gs4 gs gs8 b4 e,8 ~ |   % 3
 126         e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 4
 127         e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, |   % 5
 128
 129         s1*16 |   % 6-21
 130
 131         r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 22
 132         e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, |   % 23
 133
 134         s1*7 |   % 24-30
 135
 136         s1 % blank bar for Coda
 137
 138         s1*13 |   % 31-43
 139
 140         r16 a b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 44
 141         e a, b e ~ e b e gs ~ gs b, e b' ~ b8 b,16 e ~ |   % 45
 142         e16 a, b e ~ e b e gs ~ gs b, e b' ~ b8 b, |   % 46
 143         <a b e>1-\fermata |   % 47
 144         \normalsize
 145 %}
 146 }
 147
 148
 149 %
 150 % Chord names
 151 %
 152
 153 Chords = \chordmode
 154 {
 155         % Intro
 156
 157         a4. d8/a s2 |   % 1
 158         a4. d8/a s2 |   % 2
 159
 160         % Verse
 161
 162         a1 |   % 3
 163         e4. fs8:m s2 |   % 4
 164         d2. cs4:m |   % 5
 165         e1 |   % 6
 166         a1 |   % 7
 167         e4. fs8:m s2 |   % 8
 168         d2. cs4:m |   % 9
 169         e2/b a |   % 10
 170
 171         % Refrain
 172
 173         d2 a/cs |   % 11
 174         e2 fs:m |   % 12
 175         d2 cs:m |   % 13
 176         e2/b a |   % 14
 177         d2 a/cs |   % 15
 178         e1 |   % 16
 179
 180         % Outro
 181
 182         a4. d8/a s2 |   % 17
 183         a4. d8/a s2 |   % 18
 184         a4. d8/a s2 |   % 19
 185         a1 |   % 20
 186 }
 187
 188
 189 %
 190 % Chord rhythms
 191 %
 192 Rhythm = \relative c
 193 {
 194         \numericTimeSignature
 195         \override NoteHead #'style = #'slash
 196         \teeny
 197
 198         % Intro
 199
 200         c4. c c4 |   % 1
 201         c4. c c4 |   % 2
 202
 203         % Verse
 204
 205         c4 c c c |   % 3
 206         c4. c c4 |   % 4
 207         c4 c c c |   % 5
 208         c4 c c c |   % 6
 209         c4 c c c |   % 7
 210         c4. c c4 |   % 8
 211         c4 c c c |   % 9
 212         c4 c c c |   % 10
 213
 214         % Refrain
 215
 216         c4 c c c |   % 11
 217         c4 c c c |   % 12
 218         c4 c c c |   % 13
 219         c4 c c c |   % 14
 220         c4 c c c |   % 15
 221         c4 c c c |   % 16
 222
 223         % Outro
 224
 225         c4. c c4 |   % 17
 226         c4. c c4 |   % 18
 227         c4. c c4 |   % 19
 228         c1 |   % 20
 229 }
 230
 231
 232 Dynamics =
 233 {
 234 %{
 235         s2_\mf |   % 0
 236         s1*3 |   % 1-3
 237         s4_\markup { \italic { add cymbal colors } } s2. |   % 5
 238         s2 s16 s \> s4 s16 s \! |   % 5
 239
 240         % Verse
 241
 242         s4_\markup { \italic { Unison 1st X } } s2. |   % 6
 243         s1*8 |   % 7-14
 244
 245         % Chorus
 246
 247         s4_\markup { \italic { snare on D.S. } } s2. |   % 15
 248         s1*9 |   % 16-24
 249
 250         % Bridge
 251
 252         s4_\markup { \italic { Unison 1st X } } s2. |   % 25
 253         s1*4 |   % 26-29
 254         s4.. s16_\markup { \italic { big fill } } \< s4. s8-\f |   % 30
 255
 256         s1 % blank bar for coda
 257
 258         % Coda
 259
 260         s2 s8 \< s4 s8 \! |   % 31
 261         s4_\ff s2. |   % 32
 262         s1*6 |   % 33-38
 263         s2 s8 \> s4 s8-\mp |   % 39
 264
 265         s4_\markup { \italic { floating } } s2. |   % 40
 266 %}
 267 }
 268
 269
 270 \score
 271 {
 272         <<
 273                 \Global         % The "roadmap" that everything else depends on
 274                 \set Score.skipBars = ##t
 275                 \set Score.melismaBusyProperties = #'()
 276
 277                 \context Staff
 278                 <<
 279                         \new Voice = "lead" \LeadVox
 280                         \new Voice \Riffs
 281                         \new Lyrics \lyricsto "lead" \LeadVoxTextA
 282                 >>
 283
 284                 \new ChoirStaff
 285                 <<
 286                         \new ChordNames \Chords
 287                         \new RhythmicStaff << \Rhythm \Dynamics >>
 288                 >>
 289         >>
 290 }
 291
 292
 293 \paper
 294 {
 295         #(define fonts (make-pango-font-tree
 296                 "Times New Roman"
 297                 "LilyJAZZText"
 298                 "Luxi Mono"
 299                 (/ staffSize 20)))
 300
 301 % Spread staves vertically across last page (default: t)
 302 %       ragged-last-bottom = ##f
 303 % Don't spread staves vertically across the page (default: f)
 304 %       ragged-bottom = ##t
 305 % Allow partial line for last stave (default: f)
 306         ragged-last = ##t
 307
 308 % To find out what's eating the space at the top...
 309 %       annotate-spacing = ##t
 310 }
 311