Shamusworld >> Repos - music/blob - one-small-child.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 "One Small Child" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "D. Meece" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 % Let's try a chord dictionary
  22 %       subtitle =  \markup { \center-align { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-align { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-align { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-align { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-align { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-align { "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 d \minor
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42
  43 %       \once \override TextScript #'padding = #2.0
  44 %       s1*0^\markup { \large \bold { Samba } }
  45 % Capo 4 version
  46 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  47
  48         % Intro
  49
  50         s1*4 \bar "||"   % 1-4
  51
  52         % Verse
  53
  54         \mark \markup { \override #'(font-family . sans) { \box { A } } }
  55
  56         s1*9 |   % 5-13
  57
  58         \once \override Score.RehearsalMark #'self-alignment-X = #right
  59         \mark \markup { { To Coda } \hspace #0.5 \musicglyph #"scripts.coda" }
  60
  61         s1 \bar "||:"   % 14
  62
  63         \repeat volta 2
  64         {
  65                 % Verse
  66
  67                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  68
  69                 s1*10 \bar "||"   % 15-24
  70
  71                 % Bridge
  72
  73                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  74
  75                 s1*7 |   % 25-31
  76         }
  77         \alternative
  78         {
  79                 {
  80                         \time 6/4 s1. |   % 32
  81                 }
  82                 {
  83                         s1. \bar "||"   % 33
  84                 }
  85         }
  86
  87         \once \override Score.RehearsalMark #'self-alignment-X = #right
  88         \mark \markup { \hspace #0.0 \raise #1.0 \italic { D.C. al Coda } }
  89
  90         % Coda
  91
  92         % blank measure between last measure and coda
  93 %       \stopStaff s1 \bar "" \startStaff   % That removed the spurious floating bar line from line break
  94         \stopStaff s1 \startStaff   % That removed the spurious floating bar line from line break
  95 %       \break % Meh
  96         \set Score.currentBarNumber = #34
  97
  98         \once \override Score.RehearsalMark #'self-alignment-X = #left
  99         \mark \markup { { \musicglyph #"scripts.coda" } "Coda" }
 100
 101         \time 4/4 s1*5 \bar "|."   % 34-38
 102 }
 103
 104
 105 %
 106 % Lead vocal
 107 %
 108 LeadVox = \relative c'
 109 {
 110 %       \set Staff.instrument = #"Lead vox"
 111         \clef G
 112         \override Staff.TimeSignature #'style = #'()
 113 %Hm. Needed anymore?
 114 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 115
 116         % Intro
 117
 118         s1*4 |    % 1-4
 119
 120         % Verse
 121
 122         d4 a' g f8 e |    % 5
 123         d4 e8 f e ( d ) c4 |    % 6
 124         d4 a' c c8 c |    % 7
 125         b8 a g4 a2 |    % 8
 126         d,4 a' g f8 e |    % 9
 127         d4 e8 f e ( d ) c4 |    % 10
 128         d4 a' g f8 e |    % 11
 129         d1 |    % 12
 130         d4 a' g f8 e |    % 13
 131         d2. r4 |    % 14
 132
 133         % Verse
 134
 135         d4 a' g f8 e |    % 15
 136         d4 e8 ( f ) e ( d ) c4 |    % 16
 137         d4 a' c c8 c |    % 17
 138         b8 a g4 a2 |    % 18
 139         d,4 a' g f8 e |    % 19
 140         d4 e8 f e d c4 |    % 20
 141         d4 a' g f8 e |    % 21
 142         d4 ( a' g ) f8 ( e |    % 22
 143         d4 a' g f8 e |    % 23
 144         d1 ) |    % 24
 145
 146         % Bridge
 147
 148         a'4 a g a8 bf |    % 25
 149         a4 bf8 a g4 c, |    % 26
 150         a'4 a g c |    % 27
 151         f,8 ( e ) d4 c2 |    % 28
 152         a'4 a g c |    % 29
 153         a4 bf8 a g4 c, |    % 30
 154         a'4 a g c |    % 31
 155
 156         f,8 ( e ) d4 c1 |    % 32
 157
 158         f8 ( e ) d4 c1 |    % 33
 159
 160         % Coda
 161
 162         s1   % For blank measure
 163
 164         d1 |    % 34
 165         d4 a' g-\fermata f8 c' |   % 35
 166         d1 |   % 36
 167         s1*2 |    % 37-38
 168 }
 169
 170
 171 LeadVoxText = \lyricmode
 172 {
 173         One small child in a land of a thou -- _ sand,
 174         One small dream of a sav -- ior to -- night.
 175         One small hand reach -- ing out to the star -- _ light,
 176         One small ci -- ty of life.
 177         One small ci -- ty of life.
 178
 179         One king bring -- ing his gold and _ ri -- _ ches,
 180         One king rul -- ing an ar -- my of might,
 181         One king kneel -- ing with in -- cense and can -- dle -- light,
 182         One King bring -- ing us life. __ _ _
 183         Oh, __ _ _ _ _ _ _ _
 184
 185         See him ly -- ing a cra -- dle be -- neath him,
 186         See him smil -- ing in _ the stall.
 187         See his moth -- er prais -- ing his fa -- ther,
 188         See his ti -- ny eye -- _ lids fall.
 189
 190         _ _ _ _
 191         life.
 192         One small sav -- ior of life.
 193 }
 194
 195 LeadVoxTextB = \lyricmode
 196 {
 197         One small child in a land of a thou -- _ sand,
 198         One small dream in a peo -- ple of might,
 199         One small hand reach -- ing out to the star -- _ light,
 200         One small sav -- ior of life.
 201         One small sav -- ior of _
 202
 203         One small light from the flame of a can -- _ dle,
 204         One small light from a ci -- ty of might,
 205         One small light from the stars in the end -- less night,
 206         One small light from his face. __ _ _
 207         Oh, __ _ _ _ _ _ _ _
 208
 209         See the shep -- herds _ kneel -- ing be -- fore him,
 210         See the kings on bend -- _ ed knee,
 211         See the moth -- er prais -- ing his fa -- ther,
 212         See the bless -- ed _ _ _ _ in -- _ fant sleep.
 213 }
 214
 215
 216 Riffs = \relative c'''
 217 {
 218 %       \clef G
 219 %Hm. Needed anymore?
 220 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 221
 222         % Intro
 223
 224         \tiny
 225         << { \tiny a2 g } \\ { \tiny r8 a, d f c4 g } >> |   % 1
 226         << { f'2 e } \\ { a,4 d8 a bf4 g } >> |   % 2
 227         << { d'4 e8 f e4 ~ e16 d cs8 } \\ { f,2 g } >> |   % 3
 228         << { <a d>1 } \\ { g2 f  } >> |   % 4
 229
 230         s1*27 |   % 5-31
 231         s1.*2 |   % 32-33
 232         s1*3 |   % 34-35 (+ blank Coda measure)
 233
 234         << { \tiny a'2 g } \\ { \tiny r8 a, d f c4 g } >> |   % 36
 235         << { f'2 e } \\ { a,4 d8 a bf4 g } >> |   % 37
 236         <fs a d>1-\fermata |   % 38
 237         \normalsize
 238 }
 239
 240
 241 %
 242 % Chord names
 243 %
 244 Chords = \chordmode
 245 {
 246         % Intro
 247
 248         d2:m c/e |    % 1
 249         d2:m/f g:m6 |    % 2
 250         d2:m/a a:7 |    % 3
 251         d2:sus4 d:m |    % 4
 252
 253         % Verse
 254
 255         d2:m c |    % 5
 256         d2:m a:m7 |    % 6
 257         d2:m f |    % 7
 258         g2 a4:sus4 a |    % 8
 259         d2:m a:m |    % 9
 260         bf2:maj7 a:m7 |    % 10
 261         g2:m7 a:m7 |    % 11
 262         d2:m c |    % 12
 263         bf2:maj7 c |    % 13
 264         d2:sus4 d:m |    % 14
 265
 266         % Verse
 267
 268         d2:m c |    % 15
 269         bf2:maj7 a:m7 |    % 16
 270         d2:m f |    % 17
 271         g2 a4:sus4 a |    % 18
 272         d2:m a:m7 |    % 19
 273         bf2:maj7 a:m7 |    % 20
 274         g2:m7 a:m7 |    % 21
 275         d2:m7 c |    % 22
 276         bf2:maj7 c |    % 23
 277         d1:m |    % 24
 278
 279         % Bridge
 280
 281         f2 g:m/f |    % 25
 282         f2 g:m/f |    % 26
 283         f2 c/e |    % 27
 284         d4:m7 g:7 c2:sus2 |    % 28
 285         f2 g:m/f |    % 29
 286         f2 g:m/f |    % 30
 287         f2 c/e |    % 31
 288
 289         d4:m7 g:7 c1:sus2 |    % 32
 290
 291         d4:m7 g:7 c1:sus2 |    % 33
 292
 293         % Coda
 294
 295         s1   % For blank measure
 296
 297         bf2:maj7 a:m7 |    % 34
 298         g2:m7 c |    % 35
 299         d2:m c/e |    % 36
 300         d2:m/f g:m6 |    % 37
 301         d1 |    % 38
 302 }
 303
 304
 305 %
 306 % Chord rhythms
 307 %
 308 % Use a RhythmicStaff on the chords instead of this?
 309 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 310 %
 311 Rhythm = \relative c
 312 {
 313 %%      \set Voice.autoBeaming = ##f
 314 %%      \set Staff.instrument = #"Rhythm"
 315         \override Staff.TimeSignature #'style = #'()
 316         \override NoteHead #'style = #'slash
 317
 318 %Not small enough...
 319         \teeny
 320 %       \magnify #0.3
 321
 322         % Intro
 323
 324         c2 c |    % 1
 325         c2 c |    % 2
 326         c2 c |    % 3
 327         c4 c c2 |    % 4
 328
 329         % Verse
 330
 331         c4 c c c |    % 5
 332         c4 c c c |    % 6
 333         c4 c c c |    % 7
 334         c4 c c c |    % 8
 335         c4 c c c |    % 9
 336         c4 c c c |    % 10
 337         c4 c c c |    % 11
 338         c4 c c c |    % 12
 339         c4 c c c |    % 13
 340         c4 c c2 |    % 14
 341
 342         % Verse
 343
 344         c4 c c c |    % 15
 345         c4 c c c |    % 16
 346         c4 c c c |    % 17
 347         c4 c c c |    % 18
 348         c4 c c c |    % 19
 349         c4 c c c |    % 20
 350         c4 c c c |    % 21
 351         c4 c c c |    % 22
 352         c4 c c c |    % 23
 353         c4 c c c |    % 24
 354
 355         % Bridge
 356
 357         c4 c c c |    % 25
 358         c4 c c c |    % 26
 359         c4 c c c |    % 27
 360         c4 c c c |    % 28
 361         c4 c c c |    % 29
 362         c4 c c c |    % 30
 363         c4 c c c |    % 31
 364
 365         c4 c c2 ~ c2 |    % 32
 366
 367         c4 c c2 ~ c2 |    % 33
 368
 369         % Coda
 370
 371         s1   % For blank measure
 372
 373         c4 c c c |    % 34
 374         c4 c c2-\fermata |    % 35
 375         c2 c |    % 36
 376         c2 c |    % 37
 377         c1-\fermata |    % 38
 378 }
 379
 380
 381 Dynamics =
 382 {
 383 %       s1*4 |   % 1-4
 384 %       s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 385 %       s1*38 |   % 1-38
 386 %       s4_\markup { \bold \italic { Double Chorus 2nd X } } s2. |   % 39
 387 %       s1*7 |   % 40-46
 388 %       s4_\markup { \bold { Tutti } } s2. |   % 47
 389 }
 390
 391
 392 \score
 393 {
 394         <<
 395                 \set Score.skipBars = ##t
 396                 \set Score.melismaBusyProperties = #'()
 397
 398 %               \new Staff
 399                 <<
 400                         \new ChordNames \Chords
 401 %Capo 4 edition
 402 %                       \new ChordNames \transpose b g \Chords
 403                         \new RhythmicStaff << \Rhythm \Dynamics >>
 404                 >>
 405
 406                 \new Staff
 407                 <<
 408                         \Global                                         % The "roadmap" that everything else depends on
 409                         \new Voice = "lead" \LeadVox
 410                         \new Voice \Riffs
 411                         \new Lyrics \lyricsto "lead" \LeadVoxText
 412                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 413                 >>
 414         >>
 415 }
 416
 417
 418 \paper
 419 {
 420   #(define fonts (make-pango-font-tree
 421     "Times New Roman"
 422     "DomCasual BT"
 423     "Luxi Mono"
 424     (/ staffSize 20)))
 425
 426 % Spread staves vertically across last page (default: t)
 427         ragged-last-bottom = ##f
 428 % Don't spread staves vertically across the page (default: f)
 429 %       ragged-bottom = ##t
 430 % Allow partial line for last stave (default: f)
 431         ragged-last = ##t
 432
 433 % To find out what's eating the space at the top...
 434 %       annotate-spacing = ##t
 435 %let's try this: [It works! Huzzah!]
 436         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 437 }