Shamusworld >> Repos - music/blob - the-apostle's-creed.ly

   1 % Still need hairpins, directions, dynamics, etc...
   2
   3 \version "2.16.0"
   4 \include "pop-chords.ly"
   5 \include "english.ly"
   6
   7 % Good sizes are 16, 18, & 20, 24
   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 %Let's bump up the title size and switch to the chord font. :-)
  18
  19         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "The Apostle’s Creed" }
  20         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Ed Smart" }
  21 %       arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  22         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  23 }
  24
  25
  26 %
  27 % Song's structure
  28 %
  29 Global =
  30 {
  31         \key bf \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34
  35         % Intro
  36
  37         s1*4 \bar "||"   % 1-4
  38
  39         % Part I
  40
  41         \mark \markup { \override #'(font-family . sans) \box { A } }
  42         s1*8 \bar "||"   % 5-12
  43
  44         % Part II
  45
  46         \mark \markup { \override #'(font-family . sans) \box { B } }
  47         s1*10 \bar "||"   % 13-22
  48
  49         % Part III
  50
  51         \mark \markup { \override #'(font-family . sans) \box { C } }
  52         s1*10 \bar "||"   % 23-32
  53
  54         % Part IV
  55
  56         \mark \markup { \override #'(font-family . sans) \box { D } }
  57         s1*8 \bar "||"   % 33-40
  58
  59         % Outro
  60
  61         \mark \markup { \override #'(font-family . sans) \box { E } }
  62         s1*5 \bar "|."   % 41-45
  63 }
  64
  65
  66 %
  67 % Lead vocal
  68 %
  69
  70 LeadVox = \relative c'
  71 {
  72 %       \set Voice.autoBeaming = ##f
  73 %       \set Staff.instrument = #"Lead vox"
  74         \clef G
  75 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  76
  77         % Intro
  78
  79         r1 |   % 1
  80         r1 |   % 2
  81         r1 |   % 3
  82         r1 |   % 4
  83
  84         % Part I
  85
  86         r4 f8 bf16 bf ~ bf4 bf8 c8 ~ |   % 5
  87         c2 r4 r8 bf |   % 6
  88         ef8. d16 ~ d8 c c8. bf16 ~ bf8 f |   % 7
  89         ef'8. df16 ~ df8 c c8. bf16 ~ bf8 f16 f ~ |   % 8
  90         f2 r8 f16 f d'8 c |   % 9
  91         c2 ~ c8. g16 g8 c |   % 10
  92         bf2. f8 f ~ |   % 11
  93         f2. r8 f |   % 12
  94
  95         % Part II
  96
  97         f8. bf16 ~ bf8 bf c4 bf8 g ~ |   % 13
  98         g2. r4 |   % 14
  99         f8. bf16 ~ bf8 bf c4 d |   % 15
 100         g,16 ( c8 ) c16 ~ c2. |   % 16
 101         ef8. d16 ~ d8 c16 c c8. bf16 ~ bf8 f |   % 17
 102         ef'8. d16 ~ d c8. d4 c8 bf |   % 18
 103         d8. c16 ~ c2. |   % 19
 104         c2. r8 bf16 c |   % 20
 105         df8 c16 c ~ c bf8 bf16 ~ bf2 |   % 21
 106         bf2. r8 f16 f |   % 22
 107
 108         % Part III
 109
 110         f8. bf16 ~ bf8 bf c4 bf8 g ~ |   % 23
 111         g2. r8 f16 f |   % 24
 112         f8. bf16 ~ bf8 bf16 bf c8. d16 ~ d8 ef |   % 25
 113         d4 d8 d d8. c16 ~ c8 bf |   % 26
 114         d4 r8. d16 d8. ef16 ~ ef8 d |   % 27
 115         d8. c16 ~ c2. |   % 28
 116         df8. c16 ~ c bf8. bf4 gf8 bf ~ |   % 29
 117         bf4. r16 c df c8 c16 ~ c8 bf16 c ~ |   % 30
 118         c1 ~ |   % 31
 119         c1 |   % 32
 120
 121         % Part IV
 122
 123         r4 f,8 bf16 bf ~ bf8 f16 f d'8 ef |   % 33
 124         d16 ( c8 ) c16 ~ c2 r8 bf |   % 34
 125         ef8. d16 ~ d8 c c8. bf16 ~ bf8 f16 f |   % 35
 126         ef'8. d16 ~ d c8. d4 r8 bf |   % 36
 127         ef8. d16 ~ d8 c c4 bf8 bf |   % 37
 128         f'8 ef16 ef ~ ef8 d d8. c16 ~ c8 bf |   % 38
 129         ef4 r8 df16 c c8. bf16 ~ bf4 ~ |   % 39
 130         bf2 bf4 ( af8 ) bf ~ |   % 40
 131
 132         % Outro
 133
 134         bf1 |   % 41
 135         r2 bf4 ( af8 ) bf ~ |   % 42
 136         bf1 ~ |   % 43
 137         bf4 r ef ( f ) |   % 44
 138         f1-\fermata |   % 45
 139 }
 140
 141 LeadVoxText = \lyricmode
 142 {
 143         We be -- lieve _ in God, _
 144         the Fath -- er _ Al -- migh -- ty, _
 145         Cre -- a -- tor _ of Hea -- ven _ and earth, _
 146         and in Je -- sus Christ, _ His on -- ly Son,
 147         our Lord, _
 148
 149         Con -- ceived by _ the Spi -- rit’s pow’r _
 150         born of _ the Vir -- gin Ma -- _ ry, _
 151         Suff -- ered _ un -- der Pi -- late, _
 152         was cru -- ci -- _ fied, died, and was bur -- ied. _ _
 153         He des -- cend -- ed in -- _ to hell, _ _
 154
 155         But the third day _ He rose a -- gain, _
 156         He as -- cen -- ded _ in -- to Hea -- ven _
 157         and sits at the right hand _ of
 158         God the Fath -- er _ Al -- migh -- ty, _
 159         whence He _ shall come to judge, _
 160         the liv -- ing and _ the dead, _ _
 161
 162         We be -- lieve _ in the Ho -- ly Spi -- _ rit, _
 163         the church u -- _ ni -- ver -- sal, _
 164         the com -- mun -- ion _ of saints,
 165         for -- give -- ness _ of sins,
 166         res -- ur -- rec -- tion of _ the bo -- dy, _
 167         and life, e -- ver -- last -- ing, _ _
 168         A -- _ men. _
 169         A -- _ men. _ _
 170         A -- _ men.
 171 }
 172
 173
 174 %
 175 % Riffs
 176 %
 177
 178 Riffs = \relative c''
 179 {
 180 %{
 181         % Intro
 182
 183         s1*41 |   % 1-41
 184
 185         \tiny
 186         e8 b ds b cs b ds b |   % 42
 187         e8 b ds b cs b ds b |   % 43
 188         e8 b ds b cs b ds b |   % 44
 189 %}
 190 }
 191
 192
 193 %
 194 % Chord names
 195 %
 196
 197 Chords = \chordmode
 198 {
 199         % Intro
 200
 201         bf1 |   % 1
 202         af1/bf |   % 2
 203         bf1 |   % 3
 204         af1/bf |   % 4
 205
 206         % Part I
 207
 208         bf1 |   % 5
 209         af1/bf |   % 6
 210         ef2 bf:sus2/d |   % 7
 211         gf2 af |   % 8
 212         bf1/f |   % 9
 213         c1:sus2/e |   % 10
 214         ef1/f |   % 11
 215         f2 f/ef |   % 12
 216
 217         % Part II
 218
 219         bf1/d |   % 13
 220         ef1 |   % 14
 221         bf1/f |   % 15
 222         c1:sus2/e |   % 16
 223         ef2 bf:sus2/d |   % 17
 224         c2:m7 g:m7 |   % 18
 225         bf8./af af16 s2. |   % 19
 226         ef2/f f |   % 20
 227         gf1 |   % 21
 228         ef:m11 |   % 22
 229
 230         % Part III
 231
 232         bf1/d |   % 23
 233         ef1 |   % 24
 234         bf2/f fs:dim7 |   % 25
 235         g2:m7 g:m/f |   % 26
 236         ef1:maj7 |   % 27
 237         bf8./f f16 s2. |   % 28
 238         gf1 |   % 29
 239         ef1:m11 |   % 30
 240         f1:7sus4 |   % 31
 241         f8. g:m7 f8/a s2 |   % 32
 242
 243         % Part IV
 244
 245         bf1 |   % 33
 246         af1 |   % 34
 247         ef2/g bf/f |   % 35
 248         ef2 bf/d |   % 36
 249         c2:m7 bf/d |   % 37
 250         ef2 g:m7 |   % 38
 251         gf1:6 |   % 39
 252         af1:sus2 |   % 40
 253
 254         % Outro
 255
 256         bf1 |   % 41
 257         af1/bf |   % 42
 258         bf1 |   % 43
 259         af1/bf |   % 44
 260         bf1 |   % 45
 261 }
 262
 263
 264 %
 265 % Chord rhythms
 266 %
 267
 268 Rhythm = \relative c
 269 {
 270 %       \set Voice.autoBeaming = ##f
 271 %       \set Staff.instrument = #"Rhythm"
 272         \override Staff.TimeSignature #'style = #'()
 273         \time 4/4
 274         \override NoteHead #'style = #'slash
 275 \tiny
 276
 277         % Intro
 278
 279         c4 c c c |   % 1
 280         c4 c c c |   % 2
 281         c4 c c c |   % 3
 282         c4 c c c |   % 4
 283
 284         % Part I
 285
 286         c1-> |   % 5
 287         c4 c c c |   % 6
 288         c4 c c c |   % 7
 289         c4 c c c |   % 8
 290         c4 c c c |   % 9
 291         c4 c c c |   % 10
 292         c4 c c c |   % 11
 293         c4 c c c |   % 12
 294
 295         % Part II
 296
 297         c4 c c c |   % 13
 298         c4 c c c |   % 14
 299         c4 c c c |   % 15
 300         c4 c c c |   % 16
 301         c4 c c c |   % 17
 302         c4 c c c |   % 18
 303         c8.-> c16-> ~ c4 c c |   % 19
 304         c4 c c c |   % 20
 305         c2 c4 c |   % 21
 306         c2 c4 c |   % 22
 307
 308         % Part III
 309
 310         c4 c c c |   % 23
 311         c4 c c c |   % 24
 312         c4 c c c |   % 25
 313         c4 c c c |   % 26
 314         c4 c c c |   % 27
 315         c8.-> c16-> ~ c4 c c |   % 28
 316         c4 c c c |   % 29
 317         c4 c c c |   % 30
 318         c4 c c c |   % 31
 319         c8.-> c16-> ~ c8 c-> ~ c4 c |   % 32
 320
 321         % Part IV
 322
 323         c4 c c c |   % 33
 324         c4 c c c |   % 34
 325         c4 c c c |   % 35
 326         c4 c c c |   % 36
 327         c4 c c c |   % 37
 328         c4 c c c |   % 38
 329         c4 c c c |   % 39
 330         c4 c c c |   % 40
 331
 332         % Outro
 333
 334         c4 c c c |   % 41
 335         c4 c c c |   % 42
 336         c4 c c c |   % 43
 337         c4 c c c |   % 44
 338         c1-\fermata |   % 45
 339 }
 340
 341
 342 Dynamics =
 343 {
 344         s4_\f s2. |    % 1
 345         s1*3
 346         s2. s4_\markup { \italic { dr. fill } } |   % 5
 347         s1*2
 348         s2. s4_\markup { \italic { dr. fill } } |   % 8
 349         s1*3
 350         s2. s4 \> |   % 12
 351         s4_\mf s2. |   % 13
 352         s1*2
 353         s2 s4.. \< s16 \! |   % 16
 354         s1
 355         s4 \< s2 s8 s8_\ff |   % 18
 356         s1
 357         s2. s4 \> |   % 20
 358         s4_\p s2. |   % 21
 359         s2 s4. \< s8_\markup { \italic { dr. fill } } |   % 22
 360         s4_\f s2. |   % 23
 361         s1*8
 362         s2 s4 \< s4_\markup { \italic { dr. fill } } |   % 32
 363         s4_\ff s2. |   % 33
 364         s2. s4_\markup { \italic { dr. fill } } |   % 34
 365         s1*4
 366         s4_\fp s2. |   % 39
 367         s4 s \< s s8._\markup { \italic { dr. fill } } s16 \! |   % 40
 368         s1*3
 369         s2 s2_\markup { \italic { rit. } } |   % 44
 370 }
 371
 372
 373 \score
 374 {
 375         <<
 376                 \set Score.skipBars = ##t
 377                 \set Score.melismaBusyProperties = #'()
 378
 379 %               \new ChoirStaff
 380                 <<
 381                         \new ChordNames \Chords
 382 % C edition
 383 %                       \new ChordNames \transpose bf c \Chords
 384                         \new RhythmicStaff << \Rhythm \Dynamics >>
 385                 >>
 386
 387                 \new Staff
 388                 <<
 389                         \Global                                         % The "roadmap" that everything else depends on
 390                         \new Voice = "lead" \LeadVox
 391 % C edition
 392 %                       \new Voice = "lead" \transpose bf c' \LeadVox
 393                         \new Voice \Riffs
 394                         \new Lyrics \lyricsto "lead" \LeadVoxText
 395                 >>
 396         >>
 397 }
 398
 399
 400 \paper
 401 {
 402         #(define fonts (make-pango-font-tree
 403                 "Times New Roman"
 404                 "DomCasual BT"
 405                 "Luxi Mono"
 406                 (/ staffSize 20)))
 407
 408 % Don't spread staves vertically across last page (default: t)
 409 %       ragged-last-bottom = ##f
 410 % Don't spread staves vertically across the page (default: f)
 411 %       ragged-bottom = ##t
 412 % Allow partial line for last stave (default: f)
 413         ragged-last = ##t
 414
 415 % To find out what's eating the space at the top...
 416 %       annotate-spacing = ##t
 417 %let's try this: [It works! Huzzah!]
 418         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 419 }