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