Shamusworld >> Repos - music/blob - father's-will.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20
   6 staffSize = #16
   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 "Father’s Will" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Scott Dannemiller" }
  17 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c''
  27 {
  28 %       \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrument = #"Lead vox"
  30         \clef G
  31         \key g \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         r1 |   % 1
  39         r1 |   % 2
  40         r1 |   % 3
  41         r1 |   % 4
  42         r1 |   % 5
  43         r1 |   % 6
  44         r1 |   % 7
  45         r1 \bar "||:"   % 8
  46
  47         \repeat volta 2
  48         {
  49                 % Verse
  50
  51 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  52
  53                 b16 d b8 ~ b16 a a8 ( g ) r4 e16 g |   % 9
  54                 a8 g e g ( e4 ) r  |   % 10
  55                 b'16 d8 d16 ~ d8 b16 e ~ e d8 b16 ~ b8 \tiny g8 \normalsize |   % 11
  56                 a8 a16 b ~ b g e8 ( d4 ) r |   % 12
  57                 b'16 b d8 ~ d8 g16 e ( d ) d8 bf16 ( a g ) g8 |   % 13
  58                 a16 b8. a8 g16 g ( e4 ) r8 \tiny g16 \normalsize g |   % 14
  59                 b16 d8 b16 ~ ( b16 a ) a8 a d,16 b' ~ b b8 a16 ( |   % 15
  60                 g4 ) r2 g'16 fs8. \bar "||"   % 16
  61
  62                 % Chorus
  63
  64 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  65
  66                 e8 d4 b16 ( d b4 ) r8 g16 b |   % 17
  67                 a16 g g4 b8 ~ b4 g'16 fs8. |   % 18
  68                 e8 d4 bf16 ( a g4 ) r16 g b d |   % 19
  69                 e8 d16 d ~ d b b8 ( a4 ) r8 e'16 fs |   % 20
  70                 g8 fs16 e ~ e d8 bf16 ( a ) g8. r8  a16 g |   % 21
  71                 a8 g4 b8 ~ b4 r8 r16 d, |   % 22
  72                 b'8 b a g16 g ~ g4 r8 b16 d |   % 23
  73                 e8 d16 b ( a4 ) r b16 b b8 |   % 24
  74         }
  75         \alternative
  76         {
  77                 {
  78                         a8 g4 g8 ~ g4 r |   % 25
  79                         r1 |   % 26
  80                         r1 |   % 27
  81                         r1 |   % 28
  82                 }
  83                 {
  84                         a8 g4 g8 ~ g4 r8 e'16 fs \bar "||"   % 29
  85                 }
  86         }
  87
  88         % Bridge
  89
  90 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  91
  92         g8 ( fs16 ) e ~ e d8 b16 ( ~ b a g8 ) r8 e'16 d |   % 30
  93         d8 d e d16 d ~ ( d e8. ) r8 e16 fs |   % 31
  94         g8 fs16 e ~ e d8 d16 ~ d e8. r16 d e fs |   % 32
  95         g8 fs16 e ~ e d8 d16 ~  ( d b8 a16 ~ ) a4 |   % 33
  96         \time 2/4 r4 g'8 fs \time 4/4 \bar "||"   % 34
  97
  98         % Chorus
  99
 100 \mark \markup { \override #'(font-family . sans) { \box { D } } }
 101
 102         e8 d4 b16 ( d b4 ) r16 g b8 |   % 35
 103         a16 g g4 b8 ~ b4 g'8 fs |   % 36
 104         e8 d4 bf16 ( a g4 ) r16 g b d |   % 37
 105         e4 b8 b16 b ~ ( b a8 ) r16 r b16 e fs |   % 38
 106         g8 fs16 e ~ e d8 bf16 ( a ) g8. r8  g16 a |   % 39
 107         b8 d16 d ~ d8 e ~ e4 r8 r16 d, |   % 40
 108         b'8 b a g16 g ~ g4 r8 b16 d |   % 41
 109         e8 d16 b ( a4 ) r b16 b d8 |   % 42
 110
 111         e8 g4 g8 ~ ( e4 ) r|   % 43
 112         b8 b a g16 g ~ g4 r8 b16 d |   % 44
 113         e8 d16 b ( a4 ) r b16 b b8 \bar "||"   % 45
 114
 115         % Outro
 116
 117 \mark \markup { \override #'(font-family . sans) { \box { E } } }
 118
 119         a8 g4 b16 ( a g4 ) r |   % 46
 120         r2 r4 b16 b d8 |   % 47
 121         e8 d b16 ( a g8 ) r2 |   % 48
 122         r1-\fermata \bar "|."   % 49
 123 }
 124
 125 LeadVoxText = \lyricmode
 126 {
 127         Moon -- light casts _ a glow _
 128         on my fath -- er and me _
 129         Fish -- in’ ’til _ the sun _ fell down _
 130         _ much too dark _ to see _
 131         Lit -- tle boy _ so filled _ with joy _ _
 132         His he -- ro walks be -- hind; _
 133         _ The ma -- gic mo -- _ _ ment cap -- tured in _ my mind. _
 134
 135         Dad -- dy light my way _ _
 136         ’cause I’m trip -- pin’ on stones _
 137         Dad -- dy hold my hand _ _
 138         ’cause I can’t make it home _ a -- lone _
 139         Let me climb up -- on _ your shoul -- _ ders
 140         when we walk that hill _
 141         ’Cause I’m not much to bear _
 142         and you hold me there _
 143         do -- in’ what fath -- ers will. _
 144
 145         fath -- ers will. _
 146
 147         At the end _ of _ my road __ _ _ _
 148         when it’s all been said and done _ _
 149         I’ll be proud to be _ your fa -- _ ther;
 150         I hope you’re proud to be _ my son. __ _ _ _ _
 151
 152         Je -- sus light my way _ _
 153         I’ve been trip -- pin’ on stones _
 154         Je -- sus hold my hand _ _
 155         ’cause I can’t do this a -- lone; _ _
 156         Then let me climb up -- on _ your shoul -- _ ders
 157         as we walk that last _ hill _
 158
 159         I’ve been your cross to bear _
 160         still you held me there _
 161         Do -- in’ your Fath -- er’s will _
 162
 163         I’m not much to bear _
 164         still you held me there _
 165         Do -- in’ what fath -- ers will. _ _
 166
 167         Do -- in’ what fa -- thers will. _
 168 }
 169
 170 LeadVoxTextB = \lyricmode
 171 {
 172         Fill -- in’ dad -- _ dy’s shoes _
 173         I’m the fath -- er to be _
 174         Clue -- less as _ a way -- _ ward cat _
 175         trapped high up in _ the trees _
 176         Won -- drin’ now _ I’m not _ sure how _ _
 177         a boy grows to a man; _
 178         But I pro -- mise son _ _ I’ll do all that _ I can. _
 179 }
 180
 181
 182 %
 183 % Chord names
 184 %
 185
 186 Chords = \chordmode
 187 {
 188 %Bah, can't we set this globally?
 189 %       \popChords
 190
 191         % Intro
 192
 193         g1 |   % 1
 194         c1 |   % 2
 195         g1 |   % 3
 196         d1/fs |   % 4
 197         g1 |   % 5
 198         c1 |   % 6
 199         g2 d/fs |   % 7
 200         g4. c8 g2 |   % 8
 201
 202         \repeat volta 2
 203         {
 204                 % Verse
 205
 206                 g1 |   % 9
 207                 c1 |   % 10
 208                 g1 |   % 11
 209                 d1/fs |   % 12
 210                 g1 |   % 13
 211                 c1 |   % 14
 212                 g2 d/fs |   % 15
 213                 g4. c8 g2 |   % 16
 214
 215                 % Chorus
 216
 217                 c4. g2 s8 |   % 17
 218                 c4. g2 s8 |   % 18
 219                 c4. g2 s8 |   % 19
 220                 d1/fs |   % 20
 221                 e4:m d/fs g2 |   % 21
 222                 b4.:m7 e2:m s8 |   % 22
 223                 c1 |   % 23
 224                 d1/fs |   % 24
 225         }
 226         \alternative
 227         {
 228                 {
 229                         g1 |   % 25
 230                         c1 |   % 26
 231                         g2 d/fs |   % 27
 232                         g4. c8 g2 |   % 28
 233                 }
 234                 {
 235                         g2. d4/fs |   % 29
 236                 }
 237         }
 238
 239         % Bridge
 240
 241         e1:m |   % 30
 242         b1:m7 |   % 31
 243         a2:m7 g/b |   % 32
 244         c2 d |   % 33
 245         \time 2/4 s2 \time 4/4 |   % 34
 246
 247         % Chorus
 248
 249         c4. g2 s8 |   % 35
 250         c4. g2 s8 |   % 36
 251         c4. g2 s8 |   % 37
 252         d1/fs |   % 38
 253         e4:m d/fs g2 |   % 39
 254         b4.:m7 e2:m s8 |   % 40
 255         c1 |   % 41
 256         d1/fs |   % 42
 257
 258         e1:m |   % 43
 259         c1 |   % 44
 260         d1/fs |   % 45
 261
 262         g1 |   % 46
 263         c1 |   % 47
 264         g2 d/fs |   % 48
 265         g4. c8 g2 |   % 49
 266 }
 267
 268
 269 %
 270 % Chord rhythms
 271 %
 272
 273 % Use a RhythmicStaff on the chords instead of this?
 274 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 275
 276 %Slash = { \override NoteHead #'style = #'slash }
 277 %Cross = { \override NoteHead #'style = #'cross }
 278
 279 StaffC = \relative c
 280 {
 281         \override Staff.TimeSignature #'style = #'()
 282         \time 4/4
 283         \override NoteHead #'style = #'slash
 284         \teeny
 285
 286         % Intro
 287
 288         c4 c c c |   % 1
 289         c4 c c c |   % 2
 290         c4 c c c |   % 3
 291         c4 c c c |   % 4
 292         c4 c c c |   % 5
 293         c4 c c c |   % 6
 294         c4 c c c |   % 7
 295         c4. c8 c4 c \bar "||:"   % 8
 296
 297         \repeat volta 2
 298         {
 299                 % Verse
 300
 301                 c4 c c c |   % 9
 302                 c4 c c c |   % 10
 303                 c4 c c c |   % 11
 304                 c4 c c c |   % 12
 305                 c4 c c c |   % 13
 306                 c4 c c c |   % 14
 307                 c4 c c c |   % 15
 308                 c4. c8 c4 c \bar "||"   % 16
 309
 310                 % Chorus
 311
 312                 c4. c8 ~ c4 c |   % 17
 313                 c4. c8 ~ c4 c |   % 18
 314                 c4. c8 ~ c4 c |   % 19
 315                 c4 c c c |   % 20
 316                 c4 c c c |   % 21
 317                 c4. c8 ~ c4 c |   % 22
 318                 c4 c c c |   % 23
 319                 c4 c c c |   % 24
 320         }
 321         \alternative
 322         {
 323                 {
 324                         c4 c c c |   % 25
 325                         c4 c c c |   % 26
 326                         c4 c c c |   % 27
 327                         c4. c8 c4 c |   % 28
 328                 }
 329                 {
 330                         c4 c c c \bar "||"   % 29
 331                 }
 332         }
 333
 334         % Bridge
 335
 336         c4 c c c |   % 30
 337         c4 c c c |   % 31
 338         c4 c c c |   % 32
 339         c4 c c c |   % 33
 340         \time 2/4 c2 \time 4/4 \bar "||"   % 34
 341
 342         % Chorus
 343
 344         c4. c8 ~ c4 c |   % 35
 345         c4. c8 ~ c4 c |   % 36
 346         c4. c8 ~ c4 c |   % 37
 347         c4 c c c |   % 38
 348         c4 c c c |   % 39
 349         c4. c8 ~ c4 c |   % 40
 350         c4 c c c |   % 41
 351         c4 c c c |   % 42
 352
 353         c4 c c c |   % 43
 354         c4 c c c |   % 44
 355         c4 c c c |   % 45
 356
 357         % Outro
 358
 359         c4 c c c |   % 46
 360         c4 c c c |   % 47
 361         c4 c c c |   % 48
 362         c4. c8 c2-\fermata \bar "|."   % 49
 363 }
 364
 365
 366 Dynamics =
 367 {
 368 %{
 369         s4_\markup { \italic { snare on 4, bass 8th notes } } s2. |   % 1
 370         s1*26 |   % 2-27
 371         s2 s4 \< s |   % 28
 372         s4_\f s_\markup { \hspace #0.0 \raise #-2.0 \italic { snare 2 & 4 } } s2 |   % 29
 373         s1*8 |   % 30-37
 374         s2 s4 \< s \! |   % 38
 375         s1 |   % 39
 376         s2. s8 \> s \! |   % 40
 377         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { bass 8th notes, band builds each repeat } } s2. |   % 41
 378         s1*8 |   % 42-49
 379         s4 \< s2. |   % 50
 380         s4_\f s2. |   % 51
 381         s1*5 |   % 52-56
 382         s4_\markup { \hspace #0.0 \raise #-2.0 \italic { rit. last time } } s2. |   % 57
 383         s2 s4 \< s \! |   % 58
 384 %}
 385 }
 386
 387
 388 \score
 389 {
 390         <<
 391                 <<
 392                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 393                         \new Lyrics \lyricsto "lead" \LeadVoxText
 394                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 395                 >>
 396
 397                 \new ChoirStaff = "Rhythm"
 398                 <<
 399                         \new ChordNames = "chords" \Chords
 400                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 401                 >>
 402
 403                 \set Score.skipBars = ##t
 404                 \set Score.melismaBusyProperties = #'()
 405         >>
 406
 407         \layout
 408         {
 409 %               \context { \Staff \RemoveEmptyStaves }
 410 %               ragged-last-bottom = ##t
 411                 ragged-last = ##t
 412         }
 413 }
 414
 415
 416 \paper
 417 {
 418   #(define fonts (make-pango-font-tree
 419     "Times New Roman"
 420     "DomCasual BT"
 421     "Luxi Mono"
 422     (/ staffSize 20)))
 423
 424 %  top-margin = -0.25 \in
 425 }