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