Shamusworld >> Repos - music/blob - we-are-one-in-the-spirit-vocals.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 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  15 %Let's bump up the title size and switch to the chord font. :-)
  16
  17         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "We Are One In The Spirit" }
  18 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 % Let's try a chord dictionary
  22 %       subtitle =  \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-column { "A13" \fret-diagram-terse #"x;o;2;o;2;2;" }  }
  23 }
  24
  25 % Useful tweak abbreviations (hn = harmony note)
  26
  27 hn = #(define-music-function (parser location arg) (ly:music?)
  28 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  29
  30   (set! (ly:music-property arg 'tweaks)
  31     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  32
  33
  34 %
  35 % Song's structure
  36 %
  37 Global =
  38 {
  39         \key e \minor
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42
  43         \once \override TextScript #'padding = #2.0
  44         s1*0^\markup { \large \bold { Funk } }
  45 % Capo 4 version
  46 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  47
  48         % Intro
  49
  50         s1*4 \bar "||"   % 1-4
  51         s1*4 \bar "||:"   % 5-8
  52
  53         \repeat volta 3
  54         {
  55                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  56                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  57                 s1*6 \bar "||"   % 9-14
  58
  59                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  60                 s1*4 |   % 15-18
  61
  62                 s1*2 |   % 19-20
  63         }
  64         \alternative
  65         {
  66                 {
  67                         s1 |   % 21
  68                 }
  69                 {
  70                         s1 |   % 22
  71                 }
  72         }
  73
  74         \repeat volta 2
  75         {
  76                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  77
  78                 s1*0^\markup { \large \bold \italic { Solos } }
  79                 s1*2 |   % 23-24
  80         }
  81
  82         % Coda
  83
  84         s2. s4^\markup { \large \bold \italic { Free Time } } |   % 39
  85         s1*3 \bar "|."   % 40-42
  86 }
  87
  88
  89 %
  90 % Lead vocal
  91 %
  92 LeadVox = \relative c'
  93 {
  94 %       \set Staff.instrument = #"Lead vox"
  95         \clef G
  96         \override Staff.TimeSignature #'style = #'()
  97 %Hm. Needed anymore?
  98 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  99
 100         % Intro
 101
 102         r1 |   % 1
 103         r1 |   % 2
 104         r1 |   % 3
 105         r1 |   % 4
 106         r1 |   % 5
 107         r1 |   % 6
 108         r1 |   % 7
 109         r2 r4 b8 d |   % 8
 110
 111         % Verse
 112
 113         e4 e8 d e g b, d |   % 9
 114         e4 e8 d e r e b'  |   % 10
 115         a4 a8 g a g e d |   % 11
 116         e4 e8 b d r e b' |   % 12
 117         a4 a8 g a g e d |   % 13
 118         e8 e e d e r b d |   % 14
 119
 120         e4 e8 b e g b, d |   % 15
 121         e4 e8 g a r g a |   % 16
 122         b8 ( a ) g e a g e d |   % 17
 123         e4 r r2 |   % 18
 124         r1 |   % 19
 125         r1 |   % 20
 126
 127         r2 r4 b8 d |   % 21
 128
 129         r1 |   % 22
 130
 131         % Verse
 132
 133         r1 |   % 23
 134         r1 |   % 24
 135
 136         % Coda
 137
 138         r2 r4 g8 a |   % 39
 139         b8 a g e a g e-> d-> |   % 40
 140         b1-\fermata |   % 41
 141         r1-\fermata |   % 42
 142 }
 143
 144
 145 LeadVoxText = \lyricmode
 146 {
 147         We are one in the spi -- rit,
 148         we are one in the Lord.
 149         We are one in the spi -- rit,
 150         we are one in the Lord.
 151         And we pray that all un -- i -- ty
 152         may one day be re -- stored.
 153         And they’ll know we are Christ -- ians
 154         by our love, by our love,
 155         yes they’ll know _ we are Christ -- ians by our love.
 156
 157         We will
 158 }
 159
 160 LeadVoxTextB = \lyricmode
 161 {
 162         _ _ work with each oth -- er,
 163         We will work side by side.
 164         We will work with each oth -- er,
 165         We will work side by side.
 166         And we’ll guard each one’s dig -- ni -- ty
 167         And save _ each one’s pride.
 168
 169         _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
 170
 171         We will
 172 }
 173
 174 LeadVoxTextC = \lyricmode
 175 {
 176         _ _ walk with each oth -- er,
 177         We will walk hand in hand.
 178         We will walk with each oth -- er,
 179         We will walk hand in hand.
 180         And to -- ge -- ther we’ll spread the news
 181         that God is in our land.
 182 }
 183
 184
 185 Riffs = \relative c
 186 {
 187         \clef G
 188 %Hm. Needed anymore?
 189 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 190
 191         % Intro
 192
 193 %       \tiny
 194 %       \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } |   % 1-4
 195 %       \normalsize
 196 }
 197
 198
 199 %
 200 % Chord names
 201 %
 202 Chords = \chordmode
 203 {
 204         % Intro
 205
 206         e1:m9 |   % 1
 207         s1 |   % 2
 208         s1 |   % 3
 209         s1 |   % 4
 210         e1:m9 |   % 5
 211         s4.. a16:13 s2 |   % 5
 212         e1:m9 |   % 7
 213         s4.. a16:13 s2 |   % 8
 214
 215         % Verse
 216
 217         e4.:sus4.7 e8:sus4.7/a s4.. e16:sus4.7 |   % 9
 218         s2. s8. e16:m7/a |   % 10
 219         s4. a8:9 s4.. e16:sus4.7 |   % 11
 220         s2. s8. e16:m7/a |   % 12
 221         s4. a8:9 s4.. e16:sus4.7 |   % 13
 222         s2. ef8.:m9 d16:m9 |   % 14
 223
 224         s4.. g2:13.9- c16:maj9 |   % 15
 225         s4.. f2:maj7 fs16:m7.5- |   % 16
 226         s4.. b16:7 s4 b8.:aug7.9+ e16:m9 |   % 17
 227         s4.. a2:13 e16:m9 |   % 18
 228         s4.. a16:13 s4 b8.:aug7.9+ e16:m9 |   % 19
 229         s4.. a16:13 s4.. e16:m9 |   % 20
 230
 231         s4.. a16:13 s2 |   % 21
 232
 233         s4.. a16:13 s2 |   % 22
 234
 235         % Verse
 236
 237         e4.:m9 a8:5.9 s2  |   % 23
 238         e4.:m9 a8:9 s2 |   % 24
 239
 240         % Coda
 241
 242         e4..:m9 a2:13 s16 |   % 39
 243         fs2:m7.5- b:aug7.9+ |   % 40
 244         b1:aug/f |   % 41
 245         d1/e |   % 42
 246 }
 247
 248
 249 %
 250 % Chord rhythms
 251 %
 252 % Use a RhythmicStaff on the chords instead of this?
 253 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 254 %
 255 Rhythm = \relative c
 256 {
 257 %%      \set Voice.autoBeaming = ##f
 258 %%      \set Staff.instrument = #"Rhythm"
 259         \override Staff.TimeSignature #'style = #'()
 260         \override NoteHead #'style = #'slash
 261
 262 %Not small enough...
 263         \teeny
 264 %       \magnify #0.3
 265         % Intro
 266
 267          |   % 1
 268          |   % 2
 269          |   % 3
 270          |   % 4
 271          |   % 5
 272          |   % 6
 273          |   % 7
 274          |   % 8
 275
 276         % Verse
 277
 278          |   % 9
 279          |   % 10
 280          |   % 11
 281          |   % 12
 282          |   % 13
 283          |   % 14
 284
 285          |   % 15
 286          |   % 16
 287          |   % 17
 288          |   % 18
 289          |   % 19
 290          |   % 20
 291
 292          |   % 21
 293
 294          |   % 22
 295
 296         % Verse
 297
 298          |   % 23
 299          |   % 24
 300
 301         % Coda
 302
 303          |   % 39
 304          |   % 40
 305          |   % 41
 306          |   % 42
 307         \normalsize
 308 }
 309
 310
 311 Dynamics =
 312 {
 313         s1*2 |   % 1-2
 314         s4_\markup { \bold \italic { Drums In } } s2. |   % 3
 315         s1 |   % 4
 316         s4_\markup { \bold \italic { Band In } } s2. |   % 5
 317 }
 318
 319
 320 \score
 321 {
 322         <<
 323                 \set Score.skipBars = ##t
 324                 \set Score.melismaBusyProperties = #'()
 325
 326 %               \new Staff
 327                 <<
 328                         \new ChordNames \Chords
 329 %Capo 4 edition
 330 %                       \new ChordNames \transpose b g \Chords
 331                         \new RhythmicStaff << \Rhythm \Dynamics >>
 332                 >>
 333
 334                 \new Staff
 335                 <<
 336                         \Global                                         % The "roadmap" that everything else depends on
 337                         \new Voice = "lead" \LeadVox
 338 %                       \new Voice \Riffs
 339                         \new Lyrics \lyricsto "lead" \LeadVoxText
 340                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 341                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 342                 >>
 343         >>
 344 }
 345
 346
 347 \paper
 348 {
 349   #(define fonts (make-pango-font-tree
 350     "Times New Roman"
 351     "DomCasual BT"
 352     "Luxi Mono"
 353     (/ staffSize 20)))
 354
 355 % Spread staves vertically across last page (default: t)
 356         ragged-last-bottom = ##f
 357 % Don't spread staves vertically across the page (default: f)
 358 %       ragged-bottom = ##t
 359 % Allow partial line for last stave (default: f)
 360         ragged-last = ##t
 361
 362 % To find out what's eating the space at the top...
 363 %       annotate-spacing = ##t
 364 %let's try this: [It works! Huzzah!]
 365         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 366 }