Shamusworld >> Repos - music/blob - we-are-one-in-the-spirit.ly

   1 \version "2.19.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   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         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "We Are One In The Spirit" }
  16 %       composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" }
  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.0 (ly:music-property arg 'tweaks))) arg)
  28
  29
  30 %
  31 % Song's structure
  32 %
  33 Global =
  34 {
  35         \key e \minor
  36         \numericTimeSignature
  37         \time 4/4
  38
  39         \once \override TextScript #'padding = #2.0
  40         s1*0^\markup { \large \bold { Funk } }
  41 % Capo 4 version
  42 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  43
  44         % Intro
  45
  46         s1*4 \bar "||"   % 1-4
  47         s1*4 \bar ".|:-||"   % 5-8
  48
  49         \repeat volta 2
  50         {
  51                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  52                 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  53
  54                 s1*6 \bar "||"   % 9-14
  55                 s1*4 |   % 15-18
  56
  57                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  58                 \mark \markup { \override #'(font-family . sans) \hspace #1.0 \raise #2.0 \musicglyph #"scripts.coda" { \bold { To CODA } } }
  59                 s1*2 |   % 19-20
  60         }
  61         \alternative
  62         {
  63                 {
  64                         s1 |   % 21
  65                 }
  66                 {
  67                         s1 |   % 22
  68                 }
  69         }
  70
  71         \repeat volta 2
  72         {
  73                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  74
  75                 s1*0^\markup { \large \bold \italic { Solos } }
  76                 s1*2 \bar "||"   % 23-24
  77                 s1*4 |   % 25-36
  78 %bleh
  79 \break
  80                 s1*8 |   % 25-36
  81         }
  82         \alternative
  83         {
  84                 {
  85                         s1 |   % 37
  86                 }
  87                 {
  88                         s1 |   % 38
  89                         \once \override Score.RehearsalMark #'self-alignment-X = #right
  90                         \mark \markup { \bold { D.S. al Coda } }
  91                 }
  92         }
  93
  94         % Coda
  95
  96         % blank measure between last measure and coda
  97         \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
  98 %       \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
  99 %       \break % Meh
 100         \set Score.currentBarNumber = #39
 101
 102         \once \override Score.RehearsalMark #'self-alignment-X = #left
 103         \mark \markup { { \musicglyph #"scripts.coda" } { \bold { Coda } } }
 104
 105 %bleh
 106 \break
 107         s2. s4^\markup { \large \bold \italic { Free Time } } |   % 39
 108         s1*3 \bar "|."   % 40-42
 109 }
 110
 111
 112 %
 113 % Lead vocal
 114 %
 115 LeadVox = \relative c'
 116 {
 117         % Intro
 118
 119         r1 |   % 1
 120         r1 |   % 2
 121         r1 |   % 3
 122         r1 |   % 4
 123         r1 |   % 5
 124         r1 |   % 6
 125         r1 |   % 7
 126         r2 r4 b8 d |   % 8
 127
 128         % Verse
 129
 130         e4 r16 e d e ~ e g8.-> b,8 d |   % 9
 131         e4 r16 e d e-. r4 e8-- ( b'-- )  |   % 10
 132         a4 r16 a g a ~ a ( g8.-> ) e8 d |   % 11
 133         e8 b e16 b d e-. r8. d16 \override Glissando #'style = #'zigzag e8 \glissando b' |   % 12
 134 %\override Glissando #'style = #'zigzag
 135 %d,2 \glissando d'2
 136         a8 r r16 a g a ~ a ( g8. ) e8 d |   % 13
 137         e8-- e-- e-- d16 e-^ r4 b8 d |   % 14
 138
 139         e8 r e16 b d e ~ e g8. e8 d16 e ~ |   % 15
 140         e8 r e g16 a ~ a8 r g a16 b ~ |   % 16
 141         b8 a g e16 a ~ a g8. e8 d16 e ~ |   % 17
 142         e4 r r2 |   % 18
 143         r1 |   % 19
 144         r1 |   % 20
 145
 146         r2 r4 b8 d |   % 21
 147
 148         r1 |   % 22
 149
 150         % Verse
 151
 152         r1 |   % 23
 153         r1 |   % 24
 154
 155         r1 |   % 25
 156         r1 |   % 26
 157         r1 |   % 27
 158         r1 |   % 28
 159         r1 |   % 29
 160         r1 |   % 30
 161         r1 |   % 31
 162         r1 |   % 32
 163         r1 |   % 33
 164         r1 |   % 34
 165         r1 |   % 35
 166         r1 |   % 36
 167
 168         r1 |   % 37
 169
 170         r2 r4 b8 d |   % 38
 171
 172         % Blank measure, for Coda
 173         s1
 174
 175         % Coda
 176
 177         r2 r4 g8 a |   % 39
 178         b8 a g e a g e-> d-> |   % 40
 179         b1-\fermata |   % 41
 180         r1-\fermata |   % 42
 181 }
 182
 183
 184 LeadVoxText = \lyricmode
 185 {
 186 }
 187
 188
 189 Riffs = \relative c
 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 s4 ef:sus4.7 |   % 22
 234
 235         % Verse
 236
 237         e4.:sus4.7 a8:3.5.9 s2  |   % 23
 238         e4.:m9 a8:9 s2 |   % 24
 239
 240         e4.:m9 a8:9 s2 |   % 25
 241         e4.:m9 a8:9 s2 |   % 26
 242         e2:m9 a:9 |   % 27
 243         e2:m9 a:9 |   % 28
 244         e2:m9 a:9 |   % 29
 245         e2:m9 a4:9 ef8.:m9 d16:m9 |   % 30
 246         s4.. g2:13.9- c16:maj9 |   % 31
 247         s4.. f2:maj7 fs16:m7.5- |   % 32
 248         s4.. b2:aug7.9+ e16:m9 |   % 33
 249         s4.. a2:13 e16:m9 |   % 34
 250         s4.. a2:13 e16:m9 |   % 35
 251         s4.. a2:13 e16:m9 |   % 36
 252
 253         s4.. a2:13 s16 |   % 37
 254
 255         s4.. a2:13 s16 |   % 38
 256
 257         % Blank measure, for Coda
 258         s1
 259
 260         % Coda
 261
 262         e4..:m9 a2:13 s16 |   % 39
 263         fs2:m7.5- b:aug7.9+ |   % 40
 264         b1:aug/f |   % 41
 265         d1/e |   % 42
 266 }
 267
 268
 269 %
 270 % Chord rhythms
 271 %
 272 Rhythm = \relative c
 273 {
 274         \numericTimeSignature
 275         \override NoteHead #'style = #'slash
 276         \teeny
 277
 278         % Intro
 279
 280          |   % 1
 281          |   % 2
 282          |   % 3
 283          |   % 4
 284          |   % 5
 285          |   % 6
 286          |   % 7
 287          |   % 8
 288
 289         % Verse
 290
 291          |   % 9
 292          |   % 10
 293          |   % 11
 294          |   % 12
 295          |   % 13
 296          |   % 14
 297
 298          |   % 15
 299          |   % 16
 300          |   % 17
 301          |   % 18
 302          |   % 19
 303          |   % 20
 304
 305          |   % 21
 306
 307          |   % 22
 308
 309         % Verse
 310
 311          |   % 23
 312          |   % 24
 313
 314          |   % 25
 315          |   % 26
 316          |   % 27
 317          |   % 28
 318          |   % 29
 319          |   % 30
 320          |   % 31
 321          |   % 32
 322          |   % 33
 323          |   % 34
 324          |   % 35
 325          |   % 36
 326
 327          |   % 37
 328
 329          |   % 38
 330
 331         % Blank measure, for Coda
 332         s1
 333
 334         % Coda
 335
 336          |   % 39
 337          |   % 40
 338          |   % 41
 339          |   % 42
 340         \normalsize
 341 }
 342
 343
 344 Dynamics =
 345 {
 346 %       s1*4 |   % 1-4
 347 %       s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 348 }
 349
 350
 351 \score
 352 {
 353         <<
 354                 \set Score.skipBars = ##t
 355                 \set Score.melismaBusyProperties = #'()
 356
 357 %               \new Staff
 358                 <<
 359                         \new ChordNames \Chords
 360                         \new RhythmicStaff << \Rhythm \Dynamics >>
 361                 >>
 362
 363                 \new Staff
 364                 <<
 365                         \Global         % The "roadmap" that everything else depends on
 366                         \new Voice = "lead" \LeadVox
 367                 >>
 368         >>
 369 }
 370
 371
 372 \paper
 373 {
 374         #(define fonts (make-pango-font-tree
 375                 "Times New Roman"
 376                 "LilyJAZZText"
 377                 "Luxi Mono"
 378                 (/ staffSize 20)))
 379
 380 % Spread staves vertically across last page (default: t)
 381         ragged-last-bottom = ##f
 382 % Don't spread staves vertically across the page (default: f)
 383 %       ragged-bottom = ##t
 384 % Allow partial line for last stave (default: f)
 385         ragged-last = ##t
 386
 387 % To find out what's eating the space at the top...
 388 %       annotate-spacing = ##t
 389 }
 390