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

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