Shamusworld >> Repos - music/blob - he-knows-my-name.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 = #18
   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 "He Knows My Name" }
  14 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  15         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  16         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  17 }
  18
  19 % Useful tweak abbreviations (hn = harmony note)
  20
  21 hn = #(define-music-function (parser location arg) (ly:music?)
  22 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  23
  24   (set! (ly:music-property arg 'tweaks)
  25     (acons 'font-size -3.5 (ly:music-property arg 'tweaks))) arg)
  26
  27
  28 %
  29 % Song's structure
  30 %
  31 Global =
  32 {
  33         \clef G
  34         \key e \major
  35         \numericTimeSignature
  36         \time 4/4
  37
  38         % Intro
  39
  40         \partial 8*1 s8 |   % 0
  41         s1*4 \bar ".|:-||"   % 1-4
  42
  43         \repeat volta 2
  44         {
  45                 % Verse
  46
  47                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  48
  49                 s1*8 \bar "||"   % 5-12
  50
  51                 % Chorus
  52
  53                 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  54
  55                 s1*6 |   % 13-18
  56                 \once \override Score.RehearsalMark #'self-alignment-X = #right
  57                 \mark \markup { \italic { to Coda } \hspace #1.0 \musicglyph #"scripts.coda" }
  58                 s1 |   % 19
  59         }
  60         \alternative
  61         {
  62                 {
  63                         s1 |   % 20
  64                 }
  65                 {
  66                         s1 \bar "||"   % 21
  67
  68                         \once \override Score.RehearsalMark #'self-alignment-X = #right
  69                         \mark \markup { \italic { D.S. al Coda } }
  70                 }
  71         }
  72
  73         % Coda
  74
  75         \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
  76         %\stopStaff s1 \startStaff
  77         \set Score.currentBarNumber = #22
  78
  79 %blegh
  80 \break
  81
  82         \once \override Score.RehearsalMark #'self-alignment-X = #left
  83         \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
  84
  85         s1*9 \bar "|."   % 22-30
  86 }
  87
  88
  89 %
  90 % Lead vocal
  91 %
  92 LeadVox = \relative c'
  93 {
  94         \clef G
  95
  96         % Intro
  97
  98         \partial 8*1 s8 |   % 0
  99         s1*4 |   % 1-4
 100
 101         % Verse
 102
 103         r4 e8 fs ~ fs4 a8 gs ( ~ |   % 5
 104         gs4 e8 ) cs ~ cs4 r |   % 6
 105         r4 gs'8 a ( ~ a gs ) fs fs ~ |   % 7
 106         fs2 r |   % 8
 107         r4 e8 fs ~ fs4 gs8 a |   % 9
 108         gs4 ( e8 ) cs ~ cs4. e8 |   % 10
 109         gs4 gs8 fs ~ fs4 e8 e ~ |   % 11
 110         e2 r |   % 12
 111
 112         % Chorus
 113
 114         r4 <cs' \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ( ~ |   % 13
 115         <fs \hn ds \hn b>4. <e \hn b \hn gs>8 ) ~ <e \hn b \hn gs>2 |   % 14
 116         r4 <cs' \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ~ |   % 15
 117         <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <gs \hn e \hn b> ~ <gs \hn e \hn b>2 |   % 16
 118         r4 <cs \hn a \hn e>8 <b \hn gs \hn e> ~ <b \hn gs \hn e>4 <gs \hn e \hn b>8 <fs \hn ds \hn b> ~ |   % 17
 119         <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn cs \hn gs> ~ <e \hn cs \hn gs>4 r8 <e \hn b \hn gs> |   % 18
 120         <e \hn cs \hn a>4 <gs \hn e \hn cs>8 <fs \hn ds \hn b>8 ~ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn b \hn gs> ~ |   % 19
 121
 122         <e \hn b \hn gs>2 r |   % 20
 123
 124         <e \hn b \hn gs>2 \repeatTie r |   % 21
 125
 126         % Coda
 127
 128         s1 % Extra bar for coda
 129
 130         <e \hn cs \hn a>4 <gs \hn e \hn cs>8 <fs \hn ds \hn b>8 ~ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <e \hn b \hn gs> ~ |   % 22
 131         <e \hn b \hn gs>2 r4 r8 <e \hn b> |   % 23
 132         <e \hn cs \hn a>4 <gs \hn e \hn cs>8 <fs \hn ds \hn b>8 ~ <fs \hn ds \hn b>4 <e \hn cs \hn a>8 <gs \hn e \hn cs> ~ |   % 24
 133         <gs \hn e \hn cs>2. r8 e |   % 25
 134         e4 gs8 fs ~ fs4 e |   % 26
 135         \voiceTwo e1 \oneVoice |   % 27
 136         s1*3 |   % 28-30
 137 }
 138
 139
 140 LeadVoxText = \lyricmode
 141 {
 142         I have _ a mak -- _ _ er, _
 143         he formed __ _ _ my heart. _
 144         Be -- fore _ e -- ven time be -- gan _
 145         my life was in _ his hand. _
 146
 147         He knows _ my name, __ _ _ _
 148         He knows _ my ev -- _ ’ry thought, _
 149         He sees _ each tear _ that falls _
 150         and hears me when _ I call. _
 151
 152         _
 153
 154         hears me when _ I call. _
 155         and hears me when _ I call. _
 156         He hears me when _ I call.
 157 }
 158
 159 LeadVoxTextB = \lyricmode
 160 {
 161         I have _ a Fa -- _ _ ther, _
 162         he calls _ me his own. _
 163         He’ll ne -- _ ver _ leave _ me _
 164         no mat -- ter where _ I go. _
 165 }
 166
 167
 168 Riffs = \relative c''
 169 {
 170         \clef G
 171
 172         % Intro
 173
 174         \tiny
 175         \partial 8*1 cs16 ds |   % 0
 176         e4 gs8 fs ~ fs4 e8 gs ~ |   % 1
 177         gs2. r8 cs,,16 ds |   % 2
 178         e4 gs8 fs ~ fs4 e8 e ~ |   % 3
 179         e2 r |   % 4
 180         s1*23 |   % 5-26 (+ hidden measure)
 181         \voiceOne r4 e'8 fs ~ fs4 a8 gs ~ \oneVoice |   % 27
 182         gs4 e8 cs ~ cs4 r8 cs16 ds |   % 28
 183         e4 gs8 fs ~ fs4 e |   % 29
 184         e1-\fermata |   % 30
 185         \normalsize
 186 }
 187
 188
 189 %
 190 % Chord names
 191 %
 192 Chords = \chordmode
 193 {
 194         % Intro
 195
 196         \partial 8*1 s8 |   % 0
 197         a4. b2 cs8:m7 |   % 1
 198         s4. cs2:m7/b s8 |   % 2
 199         fs4.:m7 b a8/b e |   % 3
 200         s2 b4/e a/e |   % 4
 201
 202         % Verse
 203
 204         e4. fs2:m11 e8/gs |   % 5
 205         s4. a2 s8 |   % 6
 206         e4./b a2:sus2/cs b8:sus4 |   % 7
 207         s4. b2 s8 |   % 8
 208         e4. fs2:m11 e8/gs |   % 9
 209         s4. a2 s8 |   % 10
 210         e4./b b a8/b e |   % 11
 211         s2 fs4:m7 e/gs |   % 12
 212
 213         % Chorus
 214
 215         a4. e2 b8 |   % 13
 216         s4. e2 s8 |   % 14
 217         a4. e2 b8 |   % 15
 218         s4. e2 s8 |   % 16
 219         a4. e2 b8 |   % 17
 220         s4. cs2:m7 s8 |   % 18
 221         fs4.:m7 b2 e8 |   % 19
 222
 223         s2 a/b |   % 20
 224
 225         s2 fs4:m7 e/gs |   % 21
 226
 227         % Coda
 228
 229         s1 % Extra bar for coda
 230
 231         fs4.:m7 b2 cs8:m7 |   % 22
 232         s2 cs:m7/b |   % 23
 233         fs4.:m7 b2 cs8:m7 |   % 24
 234         s2 cs:m7/b |   % 25
 235         fs4.:m7 b a4/b |   % 26
 236         e4. fs2:m11 e8/gs |   % 27
 237         s4. a s4 |   % 28
 238         fs2:m7 b4 a/b |   % 29
 239         e1 |   % 30
 240 }
 241
 242
 243 %
 244 % Chord rhythms
 245 %
 246 StaffC = \relative c
 247 {
 248         \numericTimeSignature
 249         \override NoteHead #'style = #'slash
 250         \teeny
 251
 252         % Intro
 253
 254         \partial 8*1 s8 |   % 0
 255         c4. c8 ~ c4. c8 ~ |   % 1
 256         c4. c8 ~ c4 c |   % 2
 257         c4. c8 ~ c4 c8 c ~ |   % 3
 258         c2 c4 c |   % 4
 259
 260         % Verse
 261
 262         c4. c8 ~ c4. c8 ~ |   % 5
 263         c4. c8 ~ c4 c |   % 6
 264         c4. c8 ~ c4. c8 ~ |   % 7
 265         c4. c8 ~ c2 |   % 8
 266         c4. c8 ~ c4. c8 ~ |   % 9
 267         c4. c8 ~ c4 c |   % 10
 268         c4. c8 ~ c4 c8 c ~ |   % 11
 269         c2 c4 c |   % 12
 270
 271         % Chorus
 272
 273         c4. c8 ~ c4. c8 ~ |   % 13
 274         c4. c8 ~ c4 c |   % 14
 275         c4. c8 ~ c4. c8 ~ |   % 15
 276         c4. c8 ~ c4 c |   % 16
 277         c4. c8 ~ c4. c8 ~ |   % 17
 278         c4. c8 ~ c4 c |   % 18
 279         c4. c8 ~ c4. c8 ~ |   % 19
 280
 281         c4 c c c |   % 20
 282
 283         c4 \repeatTie c c c |   % 21
 284
 285         % Coda
 286
 287 \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
 288 %\stopStaff s1 \startStaff
 289
 290         c4. c8 ~ c4. c8 ~ |   % 22
 291         c4 c c c |   % 23
 292         c4. c8 ~ c4. c8 ~ |   % 24
 293         c4 c c c |   % 25
 294         c4. c8 ~ c4 c |   % 26
 295         c4. c8 ~ c4. c8 ~ |   % 27
 296         c4. c8 ~ c4 c |   % 28
 297         c4 c c c |   % 29
 298         c1-\fermata |   % 30
 299 }
 300
 301
 302 Dynamics =
 303 {
 304 %{
 305         s4_\markup { \italic { snare pat. } } s2 |   % 1
 306         s4_\markup { \italic { simile } } s2 |   % 2
 307         s2.*19
 308         s4_\markup { \italic { spacy } } s2 |   % 22
 309         s2.*5
 310         s4 s \< s \! |   % 28
 311         s2.*22
 312         s4_\markup { \italic { Last time } } s2 |   % 51
 313 %}
 314 }
 315
 316
 317 \score
 318 {
 319         <<
 320                 \Global         % The "roadmap" that everything else depends on
 321
 322                 \context Staff
 323                 <<
 324                         \new Voice = "lead" \LeadVox
 325                         \new Voice = "riffs" \Riffs
 326                         \new Lyrics \lyricsto "lead" \LeadVoxText
 327                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 328                 >>
 329
 330                 \new ChoirStaff
 331                 <<
 332                         \new ChordNames \Chords
 333                         \new RhythmicStaff << \StaffC \Dynamics >>
 334                 >>
 335
 336                 \set Score.skipBars = ##t
 337                 \set Score.melismaBusyProperties = #'()
 338         >>
 339 }
 340
 341
 342 \paper
 343 {
 344         #(define fonts (make-pango-font-tree
 345                 "Times New Roman"
 346                 "JazzText"
 347                 "Luxi Mono"
 348                 (/ staffSize 20)))
 349
 350 % Don't spread staves vertically across last page (default: t)
 351 %       ragged-last-bottom = ##f
 352 % Don't spread staves vertically across the page (default: f)
 353 %       ragged-bottom = ##t
 354 % Allow partial line for last stave (default: f)
 355         ragged-last = ##t
 356
 357 % To find out what's eating the space at the top...
 358 %       annotate-spacing = ##t
 359 }
 360