Shamusworld >> Repos - music/blob - we-are-one-in-the-spirit.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 2
  54         {
  55 %               \mark \markup { \override #'(font-family . sans) { \box { A } } }
  56                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  57                 \mark \markup { \override #'(font-family . sans) { \box { A } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  58
  59                 s1*6 \bar "||"   % 9-14
  60                 s1*4 |   % 15-18
  61
  62                 \once \override Score.RehearsalMark #'self-alignment-X = #left
  63                 \mark \markup { \override #'(font-family . sans) \hspace #1.0 \raise #2.0 \musicglyph #"scripts.coda" { \bold { To CODA } } }
  64                 s1*2 |   % 19-20
  65         }
  66         \alternative
  67         {
  68                 {
  69                         s1 |   % 21
  70                 }
  71                 {
  72                         s1 |   % 22
  73                 }
  74         }
  75
  76         \repeat volta 2
  77         {
  78                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  79
  80                 s1*0^\markup { \large \bold \italic { Solos } }
  81                 s1*2 \bar "||"   % 23-24
  82                 s1*4 |   % 25-36
  83 %bleh
  84 \break
  85                 s1*8 |   % 25-36
  86         }
  87         \alternative
  88         {
  89                 {
  90                         s1 |   % 37
  91                 }
  92                 {
  93                         s1 |   % 38
  94                         \once \override Score.RehearsalMark #'self-alignment-X = #right
  95                         \mark \markup { \bold { D.S. al Coda } }
  96                 }
  97         }
  98
  99         % Coda
 100
 101         % blank measure between last measure and coda
 102         \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
 103 %       \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
 104 %       \break % Meh
 105         \set Score.currentBarNumber = #39
 106
 107         \once \override Score.RehearsalMark #'self-alignment-X = #left
 108         \mark \markup { { \musicglyph #"scripts.coda" } { \bold { Coda } } }
 109
 110 %bleh
 111 \break
 112 s2. s4^\markup { \large \bold \italic { Free Time } } |   % 39
 113         s1*3 \bar "|."   % 40-42
 114 }
 115
 116
 117 %
 118 % Lead vocal
 119 %
 120 LeadVox = \relative c'
 121 {
 122 %       \set Staff.instrument = #"Lead vox"
 123         \clef G
 124         \override Staff.TimeSignature #'style = #'()
 125 %Hm. Needed anymore?
 126 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 127
 128         % Intro
 129
 130         r1 |   % 1
 131         r1 |   % 2
 132         r1 |   % 3
 133         r1 |   % 4
 134         r1 |   % 5
 135         r1 |   % 6
 136         r1 |   % 7
 137         r2 r4 b8 d |   % 8
 138
 139         % Verse
 140
 141         e4 r16 e d e ~ e g8.-> b,8 d |   % 9
 142         e4 r16 e d e-. r4 e8-- ( b'-- )  |   % 10
 143         a4 r16 a g a ~ a ( g8.-> ) e8 d |   % 11
 144         e8 b e16 b d e-. r8. d16 \override Glissando #'style = #'zigzag e8 \glissando b' |   % 12
 145 %\override Glissando #'style = #'zigzag
 146 %d,2 \glissando d'2
 147         a8 r r16 a g a ~ a ( g8. ) e8 d |   % 13
 148         e8-- e-- e-- d16 e-^ r4 b8 d |   % 14
 149
 150         e8 r e16 b d e ~ e g8. e8 d16 e ~ |   % 15
 151         e8 r e g16 a ~ a8 r g a16 b ~ |   % 16
 152         b8 a g e16 a ~ a g8. e8 d16 e ~ |   % 17
 153         e4 r r2 |   % 18
 154         r1 |   % 19
 155         r1 |   % 20
 156
 157         r2 r4 b8 d |   % 21
 158
 159         r1 |   % 22
 160
 161         % Verse
 162
 163         r1 |   % 23
 164         r1 |   % 24
 165
 166         r1 |   % 25
 167         r1 |   % 26
 168         r1 |   % 27
 169         r1 |   % 28
 170         r1 |   % 29
 171         r1 |   % 30
 172         r1 |   % 31
 173         r1 |   % 32
 174         r1 |   % 33
 175         r1 |   % 34
 176         r1 |   % 35
 177         r1 |   % 36
 178
 179         r1 |   % 37
 180
 181         r2 r4 b8 d |   % 38
 182
 183         % Blank measure, for Coda
 184         s1
 185
 186         % Coda
 187
 188         r2 r4 g8 a |   % 39
 189         b8 a g e a g e-> d-> |   % 40
 190         b1-\fermata |   % 41
 191         r1-\fermata |   % 42
 192 }
 193
 194
 195 LeadVoxText = \lyricmode
 196 {
 197 }
 198
 199
 200 Riffs = \relative c
 201 {
 202         \clef G
 203 %Hm. Needed anymore?
 204 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 205
 206         % Intro
 207
 208 %       \tiny
 209 %       \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } |   % 1-4
 210 %       \normalsize
 211 }
 212
 213
 214 %
 215 % Chord names
 216 %
 217 Chords = \chordmode
 218 {
 219         % Intro
 220
 221         e1:m9 |   % 1
 222         s1 |   % 2
 223         s1 |   % 3
 224         s1 |   % 4
 225         e1:m9 |   % 5
 226         s4.. a16:13 s2 |   % 5
 227         e1:m9 |   % 7
 228         s4.. a16:13 s2 |   % 8
 229
 230         % Verse
 231
 232         e4.:sus4.7 e8:sus4.7/a s4.. e16:sus4.7 |   % 9
 233         s2. s8. e16:m7/a |   % 10
 234         s4. a8:9 s4.. e16:sus4.7 |   % 11
 235         s2. s8. e16:m7/a |   % 12
 236         s4. a8:9 s4.. e16:sus4.7 |   % 13
 237         s2. ef8.:m9 d16:m9 |   % 14
 238
 239         s4.. g2:13.9- c16:maj9 |   % 15
 240         s4.. f2:maj7 fs16:m7.5- |   % 16
 241         s4.. b16:7 s4 b8.:aug7.9+ e16:m9 |   % 17
 242         s4.. a2:13 e16:m9 |   % 18
 243         s4.. a16:13 s4 b8.:aug7.9+ e16:m9 |   % 19
 244         s4.. a16:13 s4.. e16:m9 |   % 20
 245
 246         s4.. a16:13 s2 |   % 21
 247
 248         s4.. a16:13 s4 ef:sus4.7 |   % 22
 249
 250         % Verse
 251
 252         e4.:sus4.7 a8:5.9 s2  |   % 23
 253         e4.:m9 a8:9 s2 |   % 24
 254
 255         e4.:m9 a8:9 s2 |   % 25
 256         e4.:m9 a8:9 s2 |   % 26
 257         e2:m9 a:9 |   % 27
 258         e2:m9 a:9 |   % 28
 259         e2:m9 a:9 |   % 29
 260         e2:m9 a4:9 ef8.:m9 d16:m9 |   % 30
 261         s4.. g2:13.9- c16:maj9 |   % 31
 262         s4.. f2:maj7 fs16:m7.5- |   % 32
 263         s4.. b2:aug7.9+ e16:m9 |   % 33
 264         s4.. a2:13 e16:m9 |   % 34
 265         s4.. a2:13 e16:m9 |   % 35
 266         s4.. a2:13 e16:m9 |   % 36
 267
 268         s4.. a2:13 s16 |   % 37
 269
 270         s4.. a2:13 s16 |   % 38
 271
 272         % Blank measure, for Coda
 273         s1
 274
 275         % Coda
 276
 277         e4..:m9 a2:13 s16 |   % 39
 278         fs2:m7.5- b:aug7.9+ |   % 40
 279         b1:aug/f |   % 41
 280         d1/e |   % 42
 281 }
 282
 283
 284 %
 285 % Chord rhythms
 286 %
 287 % Use a RhythmicStaff on the chords instead of this?
 288 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 289 %
 290 Rhythm = \relative c
 291 {
 292 %%      \set Voice.autoBeaming = ##f
 293 %%      \set Staff.instrument = #"Rhythm"
 294         \override Staff.TimeSignature #'style = #'()
 295         \override NoteHead #'style = #'slash
 296
 297 %Not small enough...
 298         \teeny
 299 %       \magnify #0.3
 300         % Intro
 301
 302          |   % 1
 303          |   % 2
 304          |   % 3
 305          |   % 4
 306          |   % 5
 307          |   % 6
 308          |   % 7
 309          |   % 8
 310
 311         % Verse
 312
 313          |   % 9
 314          |   % 10
 315          |   % 11
 316          |   % 12
 317          |   % 13
 318          |   % 14
 319
 320          |   % 15
 321          |   % 16
 322          |   % 17
 323          |   % 18
 324          |   % 19
 325          |   % 20
 326
 327          |   % 21
 328
 329          |   % 22
 330
 331         % Verse
 332
 333          |   % 23
 334          |   % 24
 335
 336          |   % 25
 337          |   % 26
 338          |   % 27
 339          |   % 28
 340          |   % 29
 341          |   % 30
 342          |   % 31
 343          |   % 32
 344          |   % 33
 345          |   % 34
 346          |   % 35
 347          |   % 36
 348
 349          |   % 37
 350
 351          |   % 38
 352
 353         % Blank measure, for Coda
 354         s1
 355
 356         % Coda
 357
 358          |   % 39
 359          |   % 40
 360          |   % 41
 361          |   % 42
 362         \normalsize
 363 }
 364
 365
 366 Dynamics =
 367 {
 368 %       s1*4 |   % 1-4
 369 %       s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 370 }
 371
 372
 373 \score
 374 {
 375         <<
 376                 \set Score.skipBars = ##t
 377                 \set Score.melismaBusyProperties = #'()
 378
 379 %               \new Staff
 380                 <<
 381                         \new ChordNames \Chords
 382 %Capo 4 edition
 383 %                       \new ChordNames \transpose b g \Chords
 384                         \new RhythmicStaff << \Rhythm \Dynamics >>
 385                 >>
 386
 387                 \new Staff
 388                 <<
 389                         \Global                                         % The "roadmap" that everything else depends on
 390                         \new Voice = "lead" \LeadVox
 391 %                       \new Voice \Riffs
 392 %                       \new Lyrics \lyricsto "lead" \LeadVoxText
 393                 >>
 394         >>
 395 }
 396
 397
 398 \paper
 399 {
 400   #(define fonts (make-pango-font-tree
 401     "Times New Roman"
 402     "DomCasual BT"
 403     "Luxi Mono"
 404     (/ staffSize 20)))
 405
 406 % Spread staves vertically across last page (default: t)
 407         ragged-last-bottom = ##f
 408 % Don't spread staves vertically across the page (default: f)
 409 %       ragged-bottom = ##t
 410 % Allow partial line for last stave (default: f)
 411         ragged-last = ##t
 412
 413 % To find out what's eating the space at the top...
 414 %       annotate-spacing = ##t
 415 %let's try this: [It works! Huzzah!]
 416         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 417 }