Shamusworld >> Repos - music/blob - i-have-decided-to-follow-jesus.ly

   1 \version "2.18.1"
   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 \header
  12 {
  13         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "I Have Decided To Follow Jesus" }
  14         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
  15         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Roger Freeland" }
  16         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  17 % Let's try a chord dictionary
  18         subtitle = \markup { \center-column { C9 \fret-diagram-terse #"x;3;2;3;3;x;" } "     " \center-column { "B7#9" \fret-diagram-terse #"x;2;1;2;3;x;" } "     " \center-column { Bbmaj7 \fret-diagram-terse #"x;1;3;2;3;x;" } "     " \center-column { A7sus4 \fret-diagram-terse #"x;o;2;o;3;x;" } "     " \center-column { "F#7#5" \fret-diagram-terse #"2;x;2;3;3;x;" } "     " \center-column { "Ab7b5" \fret-diagram-terse #"4;5;4;5;x;x;" } "     " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" } "     " \center-column { "C#m11" \fret-diagram-terse #"x;4;4;4;5;4;" } "     " \center-column { "F#7#9" \fret-diagram-terse #"2;4;2;3;2;5;" } }
  19 }
  20
  21
  22 %
  23 % Song's structure
  24 %
  25
  26 Global =
  27 {
  28         \key d \major
  29         \override Staff.TimeSignature #'style = #'()
  30         \time 4/4
  31
  32         % Intro
  33
  34 %{
  35         s1^\markup { \italic { Ac. guitar } } |   % 1
  36         s1 |   % 2
  37         s1^\markup { \italic { Guitar II in } } |   % 3
  38         s1 |   % 4
  39         s1^\markup { \italic { Bass in } } |   % 5
  40         s1 |   % 6
  41         s1^\markup { \italic { Drums in } } |   % 7
  42         s1 |   % 8
  43 %}
  44         s1*8 |   % 1-8
  45
  46         % Verse
  47
  48         \repeat volta 3
  49         {
  50                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  51
  52                 s1*14 |   % 9-22
  53         }
  54         \alternative
  55         {
  56                 {
  57                         s1*4 |   % 23-26
  58                 }
  59                 {
  60                         s1*3 |   % 27-29
  61                 }
  62         }
  63
  64         s1 |   % 30
  65
  66         % Tag
  67
  68         \repeat volta 1
  69         {
  70 %       \once \override Score.RehearsalMark #'self-alignment-X = #left
  71                 \mark \markup { \override #'(font-family . sans) { \box { B } } } %\small \italic { Women 8vb throughout } }
  72
  73                 s1*8 |   % 31-38
  74         }
  75
  76         % Ending
  77
  78 %       \once \override Score.RehearsalMark #'self-alignment-X = #left
  79         \mark \markup { \override #'(font-family . sans) { \box { C } } } % \small \italic { On cue } }
  80
  81         s1*6 |   % 39-44
  82         s1 \bar "|."   % 45
  83 }
  84
  85
  86 %
  87 % Lead vocal
  88 %
  89
  90 LeadVox = \relative c'
  91 {
  92         \override Staff.TimeSignature #'style = #'()
  93         \clef G
  94
  95         % Intro
  96
  97         r1 |   % 1
  98         r1 |   % 2
  99         r1 |   % 3
 100         r1 |   % 4
 101         r1 |   % 5
 102         r1 |   % 6
 103         r1 |   % 7
 104         r4 d d fs |   % 8
 105
 106         % Verse
 107
 108         a4. a8 ~ a8 r8 r4 |   % 9
 109         r4 a b a |   % 10
 110         fs4. d8 ~ d8 r8 r4 |   % 11
 111         r4 d' d d |   % 12
 112         d4. d8 ~ d8 r8 r4 |   % 13
 113         r4 d e d |   % 14
 114         b4. a8 ~ a8 r8 r4 |   % 15
 115         r4 d, d fs |   % 16
 116
 117         a4. a8 ~ a8 r8 r4 |   % 17
 118         r4 a b a |   % 18
 119         fs4. d8 ~ d8 r8 r4 |   % 19
 120         r4 a' b a |   % 20
 121         fs4. r8 r2 |   % 21
 122         r4 d fs e |   % 22
 123
 124         d4. r8 r2 |   % 23
 125         r1 |   % 24
 126         r1 |   % 25
 127         r4 d d fs |   % 26
 128
 129         d4. r8 r2 |   % 27
 130         r1 |   % 28
 131         r1 |   % 29
 132
 133         r4 d' d fs |   % 30
 134
 135         % Tag
 136
 137         fs4 r r2 |   % 31
 138         r4 d d fs |   % 32
 139         fs4 r r2 |   % 33
 140         r4 d d fs |   % 34
 141         fs4 r r2 |   % 35
 142         r4 d d fs |   % 36
 143         fs4 r r2 |   % 37
 144         r4 d d fs |   % 38
 145
 146         % Ending
 147
 148         r1 |   % 39
 149         r1 |   % 40
 150         r1 |   % 41
 151         r1 |   % 42
 152         r1 |   % 43
 153         r1 |   % 44
 154         r1^\fermata |   % 45
 155 }
 156
 157
 158 LeadVoxText = \lyricmode
 159 {
 160         I have de- ci- ded _ to fol- low Je- sus _
 161         I have de- ci- ded _ to fol- low Je- sus _
 162         I have de- ci- ded _ to fol- low Je- sus _
 163         No tur- ning back, no tur- ning back.
 164
 165         Though none go
 166
 167         back.
 168
 169         No tur- ning back! No tur- ning back!
 170         No tur- ning back! No tur- ning back!
 171         No tur- ning
 172 }
 173
 174 LeadVoxTextB = \lyricmode
 175 {
 176         _ _ _ with me, _ still I will fol- low _
 177         Though none go with me, _ still I will fol- low _
 178         Though none go with me, _ still I will fol- low _
 179         No tur- ning back, no tur- ning back.
 180
 181         The world be-
 182 }
 183
 184 LeadVoxTextC = \lyricmode
 185 {
 186         _ _ _ hind me, _ the cross be- fore me _
 187         The world be- hind me, _ the cross be- fore me _
 188         The world be- hind me, _ the cross be- fore me _
 189         No tur- ning back, no tur- ning _
 190 }
 191
 192
 193 Riffs = \relative c'
 194 {
 195 }
 196
 197
 198 %
 199 % Chord names
 200 %
 201
 202 Chords = \chordmode
 203 {
 204         % Intro
 205
 206         c4.:9 b2:7.9+ bf8:7+ |   % 1
 207         s4. a2:sus4.7 c8:9 |   % 2
 208         s4. b2:7.9+ bf8:7+ |   % 3
 209         s4. a2:sus4.7 c8:9 |   % 4
 210         s4. b2:7.9+ bf8:7+ |   % 5
 211         s4. a2:sus4.7 c8:9 |   % 6
 212         s4. b2:7.9+ bf8:7+ |   % 7
 213         s4. a2:sus4.7 s8 |   % 8
 214
 215         % Verse
 216
 217         d2..:7+ g8:/a |   % 9
 218         s1 |   % 10
 219         d2..:7+ fs8:aug7 |   % 11
 220         s1 |   % 12
 221         g4.:7+ d2:/fs e8:m7 |   % 13
 222         s4. a2:sus4.7 s8 |   % 14
 223         d2..:7+ g8:m/a |   % 15
 224         s1 |   % 16
 225
 226         d2..:7+ cs8:m11 |   % 17
 227         s4. fs2:7.9+ b8:m7 |   % 18
 228         s2.. e8:9 |   % 19
 229         s1 |   % 20
 230         e2..:m9 a8:13 |   % 21
 231         s2.. c8:9 |   % 22
 232
 233         s4. b2:7.9+ bf8:7+ |   % 23
 234         s4. a2:sus4.7 c8:9 |   % 24
 235         s4. b2:7.9+ bf8:7+ |   % 25
 236         s4. a2:sus4.7 s8 |   % 26
 237
 238         s4. b2:7.9+ bf8:7+ |   % 27
 239         s4. a2:sus4.7 c8:9 |   % 28
 240         s4. b2:7.9+ bf8:7+ |   % 29
 241
 242         s4 a:sus4.7 s2 |   % 30
 243
 244         % Tag
 245
 246         d2..:7+ af8:7.5- |   % 31
 247         s1 |   % 32
 248         g2..:7+ c8:9 |   % 33
 249         s1 |   % 34
 250         e2..:m7 a8:sus4.7 |   % 35
 251         s1 |   % 36
 252         c4.:9 b2:7.9+ bf8:7+ |   % 37
 253         s4. a2:sus4.7 s8 |   % 38
 254
 255         % Ending
 256
 257         c4.:9 b2:7.9+ bf8:7+ |   % 39
 258         s4. a2:sus4.7 c8:9 |   % 40
 259         s4. b2:7.9+ bf8:7+ |   % 41
 260         s4. a2:sus4.7 c8:9 |   % 42
 261         s4. b2:7.9+ bf8:7+ |   % 43
 262         s4. a2:sus4.7 s8 |   % 44
 263         d1:7+ |   % 45
 264 }
 265
 266
 267 %
 268 % Chord rhythms
 269 %
 270
 271 % Use a RhythmicStaff on the chords instead of this?
 272 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 273
 274 Rhythm = \relative c
 275 {
 276 %       \set Voice.autoBeaming = ##f
 277         \override Staff.TimeSignature #'style = #'()
 278         \override NoteHead #'style = #'slash
 279         \teeny
 280
 281         % Intro
 282
 283         c4. c8 ~ c4. c8 ~ |   % 1
 284         c4. c8 ~ c4. c8 ~ |   % 2
 285         c4. c8 ~ c4. c8 ~ |   % 3
 286         c4. c8 ~ c4. c8 ~ |   % 4
 287         c4. c8 ~ c4. c8 ~ |   % 5
 288         c4. c8 ~ c4. c8 ~ |   % 6
 289         c4. c8 ~ c4. c8 ~ |   % 7
 290         c4. c8 ~ c2 |   % 8
 291
 292         % Verse
 293
 294         c4 c c r8 c ~ |   % 9
 295         c4 c c c |   % 10
 296         c4 c c r8 c ~ |   % 11
 297         c4 c c c |   % 12
 298         c4. c8 ~ c4. c8 ~ |   % 13
 299         c4. c8 ~ c2 |   % 14
 300         c4 c c c8 c ~ |   % 15
 301         c4 c c c |   % 16
 302
 303         c4 c c r8 c ~ |   % 17
 304         c4. c8 ~ c4. c8 ~ |   % 18
 305         c4 c c r8 c ~ |   % 19
 306         c4 c c c |   % 20
 307         c4 c c r8 c ~ |   % 21
 308         c4 c c r8 c ~ |   % 22
 309
 310         c4. c8 ~ c4. c8 ~ |   % 23
 311         c4. c8 ~ c4. c8 ~ |   % 24
 312         c4. c8 ~ c4. c8 ~ |   % 25
 313         c4. c8 ~ c2 |   % 26
 314
 315         c4. c8 ~ c4. c8 ~ |   % 27
 316         c4. c8 ~ c4. c8 ~ |   % 28
 317         c4. c8 ~ c4. c8 ~ |   % 29
 318
 319         c4 c r2 |   % 30
 320
 321         % Tag
 322
 323         c4 c c r8 c ~ |   % 31
 324         c4 c c c |   % 32
 325         c4 c c r8 c ~ |   % 33
 326         c4 c c c |   % 34
 327         c4 c c r8 c ~ |   % 35
 328         c4 c c c |   % 36
 329         c4. c8 ~ c4. c8 ~ |   % 37
 330         c4. c8 ~ c2 |   % 38
 331
 332         % Ending
 333
 334         c4. c8 ~ c4. c8 ~ |   % 39
 335         c4. c8 ~ c4. c8 ~ |   % 40
 336         c4. c8 ~ c4. c8 ~ |   % 41
 337         c4. c8 ~ c4. c8 ~ |   % 42
 338         c4. c8 ~ c4. c8 ~ |   % 43
 339         c4. c8 ~ c2 |   % 44
 340         c1^\fermata |   % 45
 341 }
 342
 343
 344 Dynamics =
 345 {
 346         s1_\markup { \small \italic { Ac. guitar } } |   % 1
 347         s1 |   % 2
 348         s1_\markup { \small \italic { Guitar II in } } |   % 3
 349         s1 |   % 4
 350         s1_\markup { \small \italic { Bass in } } |   % 5
 351         s1 |   % 6
 352         s1_\markup { \small \italic { Drums in } } |   % 7
 353         s1 |   % 8
 354
 355         s1*21 |   % 9-29
 356         s4_\markup { \small \italic { Women 8vb throughout } } s2. | % 30
 357
 358         s1*8 |   % 31-38
 359 %       s1 |   % 38
 360
 361         % Ending
 362
 363         s4_\markup { \small \italic { On cue } } s2. | % 39
 364         s1*3 |   % 40-42
 365         s4_\markup { \small \italic { rit. } } s2. | % 43
 366 }
 367
 368
 369 \score
 370 {
 371 %{
 372         <<
 373 %               \new ChoirStaff = "Vox"
 374                 <<
 375                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 376                         \new Lyrics \lyricsto "lead" \LeadVoxText
 377                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 378                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 379                 >>
 380
 381                 \new ChoirStaff = "Rhythm"
 382                 <<
 383 %                       \new Staff = "riff" \RhythmB
 384                         \new ChordNames = "chords" \Chords
 385                         \new RhythmicStaff = "chordRhythm" \StaffC
 386                 >>
 387
 388                 \set Score.skipBars = ##t
 389                 \set Score.melismaBusyProperties = #'()
 390         >>
 391 %}
 392         <<
 393                 \set Score.skipBars = ##t
 394                 \set Score.melismaBusyProperties = #'()
 395
 396 %               \new Staff
 397                 <<
 398                         \new ChordNames \Chords
 399                         \new RhythmicStaff << \Rhythm \Dynamics >>
 400                 >>
 401
 402                 \new Staff
 403                 <<
 404                         \Global
 405                         \new Voice = "lead" \LeadVox
 406                         \new Voice \Riffs
 407                         \new Lyrics \lyricsto "lead" \LeadVoxText
 408                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 409                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 410                 >>
 411         >>
 412 }
 413
 414
 415 \paper
 416 {
 417         #(define fonts (make-pango-font-tree
 418                 "Times New Roman"
 419                 "DomCasual BT"
 420                 "Luxi Mono"
 421                 (/ staffSize 20)))
 422
 423 % Don't spread staves vertically across last page (default: t)
 424 %       ragged-last-bottom = ##f
 425 % Don't spread staves vertically across the page (default: f)
 426 %       ragged-bottom = ##t
 427 % Allow partial line for last stave (default: f)
 428         ragged-last = ##t
 429
 430 % To find out what's eating the space at the top...
 431 %       annotate-spacing = ##t
 432 %let's try this: [It works! Huzzah!]
 433         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 434 }