Shamusworld >> Repos - music/blob - jesus-draw-me-close.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 staffSize = #20 % or 16 or 18
   6 #(set-default-paper-size "letter")
   7 #(set-global-staff-size staffSize)
   8 #(ly:set-option (quote no-point-and-click))
   9
  10 \header
  11 {
  12 %Let's bump up the title size and switch to the chord font. :-)
  13
  14         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Jesus, Draw Me Close" }
  15         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Rick Founds" }
  16         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  17         tagline  = "Engraved by JLH and Lilypond 2.10.29"
  18 }
  19
  20
  21 %
  22 % Lead vocal
  23 %
  24
  25 LeadVox = \relative c''
  26 {
  27 %       \set Voice.autoBeaming = ##f
  28 %       \set Staff.instrumentName = #"Lead vox"
  29         \clef G
  30         \key f \major
  31         \override Staff.TimeSignature #'style = #'()
  32         \time 4/4
  33 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  34
  35 %       \set Score.markFormatter = #format-mark-box-letters
  36
  37         % Intro
  38
  39 \tiny
  40         a4 f8 [ g ] ~ g4 e8 [ f ] ~ |   % 1
  41         f1 |   % 2
  42         bf4 g8 [ a ] ~ a4 f8 [ g ] ~ |   % 3
  43         g2. r8 c, |   % 4
  44         d4 d8 [ e ] ~ e4 e8 [ f ] ~ |   % 5
  45         f8 [ a ] ~ a4 g f8 [ f ] ~ |   % 6
  46         f1 ~ |   % 7
  47         f2 r |   % 8
  48 \normalsize
  49
  50         % Verses 1-2
  51
  52         \repeat volta 2
  53         {
  54 \mark \markup { \override #'(font-family . sans) \box { A } }
  55
  56                 a4 f8 [ g ] ~ g4 e8 [ f ] ~ |   % 9
  57                 f2. r4 |   % 10
  58                 bf4 g8 [ a ] ~ a4 f8 [ g ] ~ |   % 11
  59                 g1 |   % 12
  60                 a4 f8 [ g ] ~ g4 e8 [ f ] ~ |   % 13
  61                 f8 [ d ] ~ d4 bf'4 a8 [ a ]( |   % 14
  62                 g1 ) ~ |   % 15
  63                 g2 r |   % 16
  64                 a4 f8 [ g ] ~ g4 e8 [ f ] ~ |   % 17
  65                 f2. r4 |   % 18
  66                 bf4 g8 [ a ] ~ a4 f8 [ g ] ~ |   % 19
  67                 g2. r8 c, |   % 20
  68                 d4 d8 [ e ] ~ e4 e8 [ f ] ~ |   % 21
  69                 f8 [ a ] ~ a4 g f8 [ f ] ~ |   % 22
  70         }
  71         \alternative
  72         {
  73                 {
  74                         f1 |   % 23
  75                         R1 |   % 24
  76                 }
  77                 {
  78                         f1 \repeatTie |   % 25
  79                 }
  80         }
  81
  82         R1 \bar "||"   % 26
  83
  84         % Verse 3
  85
  86         \key g \major
  87 \mark \markup { \override #'(font-family . sans) \box { B } }
  88
  89         b4 g8 [ a ] ~ a4 fs8 [ g ] ~ |   % 27
  90         g2. r4 |   % 28
  91         c4 a8 [ b ] ~ b4 g8 [ a ] ~ |   % 29
  92         a1 |   % 30
  93         b4 g8 [ a ] ~ a4 fs8 [ g ] ~ |   % 31
  94         g8 [ e ] ~ e4 c'4 b8 [ b ]( |   % 32
  95         a1 ) ~ |   % 33
  96         a2 r |   % 34
  97         b4 g8 [ a ] ~ a4 fs8 [ g ] ~ |   % 35
  98         g2. r4 |   % 36
  99         c4 a8 [ b ] ~ b4 g8 [ a ] ~ |   % 37
 100         a2. r8 d, |   % 38
 101         e4 e8 [ fs ] ~ fs4 fs8 [ g ] ~ |   % 39
 102         g8 [ b ] ~ b4 a g8 [ g ] ~ |   % 40
 103         g1 |   % 41
 104         r2 r4. d8 |   % 42
 105         e4 e8 [ fs ] ~ fs4 fs8 [ g ] ~ |   % 43
 106         g8 [ b ] ~ b4 a g8 [ g ] ~ |   % 44
 107 %       << { \voiceOne g1 } \context Voice = v { \voiceThree \tiny b4 g8 [ a ] ~ a4 fs8 [ g ] ~ \normalsize } >> \oneVoice |   % 45
 108         << { \voiceOne g1 } \context Voice = v { \voiceThree \tiny b4 g8 [ a ] ~ a4 fs8 [ g ] ~ \normalsize } >> |   % 45
 109
 110 %\small
 111 \context Voice = v { \voiceThree
 112 \tiny
 113         g8 [ fs ] ~ fs4 c'8 [ b a g ] |   % 46
 114         g1^\fermata \bar "|."   % 47
 115 \normalsize
 116 }
 117 }
 118
 119 LeadVoxText = \lyricmode
 120 {
 121         _ _ _ _ _ _ _
 122         _ _ _ _ _ _ _
 123         _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
 124
 125         Je- sus draw _ me close _
 126         Clo- ser Lord _ to you __ _
 127         Let the world _ a- round _ me _ fade a- way __ _ _
 128         Je- sus draw _ me close _
 129         Clo- ser Lord _ to you __ _
 130         For I de- sire _ to wor- _ ship _ and o- bey _
 131
 132         _
 133
 134         Je- sus draw _ me close _
 135         Clo- ser Lord _ to you __ _
 136         Let the world _ a- round _ me _ fade a- way __ _ _
 137         Je- sus draw _ me close _
 138         Clo- ser Lord _ to you __ _
 139         For I de- sire _ to wor- _ ship _ and o- bey __ _
 140         For I de- sire _ to wor- _ ship _ and o- bey __ _
 141 }
 142
 143
 144 %
 145 % Riff/rhythm figures
 146 %
 147
 148 StaffRiffs = \relative c'
 149 {
 150         \set Voice.autoBeaming = ##f
 151 %       \set Staff.instrumentName = #"Rhythm"
 152         \key f \major
 153         \override Staff.TimeSignature #'style = #'()
 154         \time 4/4
 155
 156         % Intro
 157
 158         a4 f8 [ g ] ~ g4 e8 [ f ] ~ |   % 1
 159         f1 |   % 2
 160         bf4 g8 [ a ] ~ a4 f8 [ g ] ~ |   % 3
 161         g2. r8 c, |   % 4
 162         d4 d8 [ e ] ~ e4 e8 [ f ] ~ |   % 5
 163         f8 [ a ] ~ a4 g f8 [ f ] ~ |   % 6
 164         f1 ~ |   % 7
 165         f2 r |   % 8
 166 \stopStaff
 167
 168         s1*35 |   % 9 - 44
 169
 170 \startStaff
 171         d4 d e8 [ d ] |   % 45
 172         b4 a2 |   % 46
 173         d4 d e8 [ fs ] |   % 47
 174 }
 175
 176
 177
 178 %
 179 % Chord names
 180 %
 181
 182 Chords = \chordmode
 183 {
 184 %Bah, can't we set this globally?
 185 %       \popChords
 186
 187         % Intro
 188
 189         f4. c2/e bf8/d |   % 1
 190         s4. f2/c s8 |   % 2
 191         bf4. f2/a c8:sus4 |   % 3
 192         s2 c |   % 4
 193         bf4./d c2/e d8:m7 |   % 5
 194         s2 c:sus4 |   % 6
 195         f1 |   % 7
 196         bf1/c |   % 8
 197
 198         % Verses 1-2
 199
 200         \repeat volta 2
 201         {
 202                 f4. c2/e bf8/d |   % 9
 203                 s4. f2/c s8 |   % 10
 204                 bf4. f2/a c8:sus4 |   % 11
 205                 s2 c |   % 12
 206                 f4. c2/e d8:m |   % 13
 207                 s2 bf:sus2 |   % 14
 208                 c1:sus4 |   % 15
 209                 c1 |   % 16
 210                 f4. c2/e bf8/d |   % 17
 211                 s4. f/c s4 |   % 18
 212                 bf4. f2/a c8:sus4 |   % 19
 213                 s2 c |   % 20
 214                 bf4./d c2/e d8:m7 |   % 21
 215                 s2 c:sus4 |   % 22
 216         }
 217         \alternative
 218         {
 219                 {
 220                         f1 |   % 23
 221                         bf1/c |   % 24
 222                 }
 223                 {
 224                         f1 |   % 25
 225                 }
 226         }
 227
 228         d2:sus4 d \bar "||"   % 26
 229
 230         % Verse 3
 231
 232         g4. d2/fs c8/e |   % 27
 233         s4. g2/d s8 |   % 28
 234         c4. g2/b d8:sus4 |   % 29
 235         s2 d |   % 30
 236         g4. d2/fs e8:m |   % 31
 237         s2 c:sus2 |   % 32
 238         d1:sus4 |   % 33
 239         d1 |   % 34
 240         g4. d2/fs c8/e |   % 35
 241         s4. g2/d s8 |   % 36
 242         c4. g2/b d8:sus4 |   % 37
 243         s2 d |   % 38
 244         c4./e d2/fs e8:m7 |   % 39
 245         s2 d:sus4 |   % 40
 246         e1:m |   % 41
 247         c1 |   % 42
 248         c4./e d2/fs e8:m7 |   % 43
 249         s2 d:sus4 |   % 44
 250         g4. d2/fs c8/e |   % 45
 251
 252         s2 c:sus2 |   % 46
 253         g1 \bar "|."   % 47
 254 }
 255
 256
 257 %
 258 % Chord rhythms
 259 %
 260
 261 % Use a RhythmicStaff on the chords instead of this?
 262 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 263
 264 StaffC = \relative c
 265 {
 266         \set Voice.autoBeaming = ##f
 267 %       \set Staff.instrumentName = #"Rhythm"
 268         \override Staff.TimeSignature #'style = #'()
 269         \time 4/4
 270         \override NoteHead #'style = #'slash
 271
 272         % Intro
 273
 274         c4. c8 ~ c4. c8 ~ |   % 1
 275         c4. c8 ~ c4 c |   % 2
 276         c4. c8 ~ c4. c8 ~ |   % 3
 277         c4 c c c |   % 4
 278         c4. c8 ~ c4. c8 ~ |   % 5
 279         c4 c c c |   % 6
 280         c4 c c c |   % 7
 281         c4 c c c |   % 8
 282
 283         % Verses 1-2
 284
 285         \repeat volta 2
 286         {
 287                 c4. c8 ~ c4. c8 ~ |   % 9
 288                 c4. c8 ~ c4 c |   % 10
 289                 c4. c8 ~ c4. c8 ~ |   % 11
 290                 c4 c c c |   % 12
 291                 c4. c8 ~ c4. c8 ~ |   % 13
 292                 c4 c c c |   % 14
 293                 c4 c c c |   % 15
 294                 c4 c c c |   % 16
 295                 c4. c8 ~ c4. c8 ~ |   % 17
 296                 c4. c8 ~ c4 c |   % 18
 297                 c4. c8 ~ c4. c8 ~ |   % 19
 298                 c4 c c c |   % 20
 299                 c4. c8 ~ c4. c8 ~ |   % 21
 300                 c4 c c c |   % 22
 301         }
 302         \alternative
 303         {
 304                 {
 305                         c4 c c c |   % 23
 306                         c4 c c c |   % 24
 307                 }
 308                 {
 309                         c4 c c c |   % 25
 310                 }
 311         }
 312
 313         c4 c \< c c \! \bar "||"   % 26
 314
 315         % Verse 3
 316
 317         c4. c8 ~ c4. c8 ~ |   % 27
 318         c4. c8 ~ c4 c |   % 28
 319         c4. c8 ~ c4. c8 ~ |   % 29
 320         c4 c c c |   % 30
 321         c4. c8 ~ c4. c8 ~ |   % 31
 322         c4 c c c |   % 32
 323         c4 c c c |   % 33
 324         c4 c c c |   % 34
 325         c4. c8 ~ c4. c8 ~ |   % 35
 326         c4. c8 ~ c4 c |   % 36
 327         c4. c8 ~ c4. c8 ~ |   % 37
 328         c4 c c c |   % 38
 329         c4. c8 ~ c4. c8 ~ |   % 39
 330         c4 c c c |   % 40
 331
 332         c4. c8 ~ c4 c |   % 41
 333         c4. c8 ~ c4 c |   % 42
 334         c4. c8 ~ c4. c8 ~ |   % 43
 335         c4 c c c |   % 44
 336         c4. c8 ~ c4. c8 ~ |   % 45
 337
 338         c4 c c-\markup { \italic { rit. } } c |   % 46
 339         c1-\fermata \bar "|."   % 47
 340 }
 341
 342
 343 \score
 344 {
 345         <<
 346                 <<
 347                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 348                         \new Lyrics \lyricsto "lead" \LeadVoxText
 349                 >>
 350
 351 %{
 352                 \new Staff \with
 353                 {
 354                         \remove "Time_signature_engraver"
 355                         \remove "Clef_engraver"
 356 %Hmm, removing this screws up the formatting...
 357 %                       \remove "Key_engraver"
 358                         fontSize = #-3.0
 359                         \override StaffSymbol #'staff-space = #(magstep -3.0)
 360 %                       firstClef = ##f
 361                 }
 362                 \StaffRiffs
 363 %}
 364
 365                 \new ChoirStaff = "Rhythm"
 366                 <<
 367                         \new ChordNames = "chords" \Chords
 368                         \new RhythmicStaff = "chordRhythm" \StaffC
 369                 >>
 370
 371                 \set Score.skipBars = ##t
 372                 \set Score.melismaBusyProperties = #'()
 373         >>
 374
 375         \layout
 376         {
 377                 \context { \Staff \RemoveEmptyStaves }
 378 %               ragged-last-bottom = ##t
 379                 ragged-last = ##t
 380         }
 381 }
 382
 383
 384 \paper
 385 {
 386   #(define fonts (make-pango-font-tree
 387     "Times New Roman"
 388     "DomCasual BT"
 389     "Luxi Mono"
 390     (/ staffSize 20)))
 391 }