Shamusworld >> Repos - music/blob - we-three-kings.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 = #16
   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 "We Three Kings" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "John H. Hopkins, Jr." }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  18         tagline  = "Engraved by JLH and Lilypond 2.8.6"
  19 }
  20
  21
  22 %
  23 % Lead vocal
  24 %
  25
  26 LeadVox = \relative c''
  27 {
  28 %       \set Voice.autoBeaming = ##f
  29 %       \set Staff.instrumentName = #"Lead vox"
  30         \clef G
  31         \key e \minor
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 3/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         s2.^\markup { \hspace #0.0 \raise #1.0 { Light jazz waltz } } |   % 1
  39         s2. |   % 2
  40
  41         \repeat volta 3
  42         {
  43                 % Interlude
  44
  45 \mark \markup { \override #'(font-family . sans) { \box { 1 } } }
  46
  47                 s2. |   % 3
  48                 r2. |   % 4
  49                 r2. |   % 5
  50                 r2. |   % 6
  51                 r2. |   % 7
  52                 r2. |   % 8
  53                 r2. |   % 9
  54                 r2. \bar "||"   % 10
  55
  56 \break %bleh, only valid for size 16
  57
  58                 % Verse
  59
  60 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  61
  62                 b2 a4 |   % 11
  63                 g2 e4 |   % 12
  64                 fs4 g fs |   % 13
  65                 e2. |   % 14
  66                 b'2 a4 |   % 15
  67                 g2 e4 |   % 16
  68                 fs4 ( g ) fs |   % 17
  69                 e2. \bar "||"   % 18
  70
  71                 g2 g4 |   % 19
  72                 a2 a4 |   % 20
  73
  74 \break %bleh, only valid for size 16
  75
  76                 b2 b4 |   % 21
  77                 d4 ( c ) b |   % 22
  78                 a4 b a |   % 23
  79                 g2 fs4 |   % 24
  80                 e2. |   % 25
  81                 fs2. ( |   % 26
  82                 a2. ) \bar "||"   % 27
  83
  84                 % Chorus
  85
  86 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  87
  88                 g2 g4 |   % 28
  89                 g2 d4 |   % 29
  90
  91 \break %bleh, only valid for size 16
  92
  93                 g2 e4 |   % 30
  94                 g2 r4 |   % 31
  95                 g2 g4 |   % 32
  96                 g2 d4 |   % 33
  97                 g2 e4 |   % 34
  98                 g2. |   % 35
  99                 g2 g4 |   % 36
 100                 a2 b4 |   % 37
 101                 c2 b4 |   % 38
 102                 a2 b4 |   % 39
 103
 104 \break %bleh, only valid for size 16
 105
 106                 g2 g4 |   % 40
 107                 g2 d4 |   % 41
 108         }
 109         \alternative
 110         {
 111                 {
 112                         g2 e4 |   % 42
 113                         g2. |   % 43
 114                 }
 115                 {
 116                         g2. |   % 44
 117                 }
 118         }
 119
 120         e2. |   % 45
 121
 122         % Outro
 123
 124         \repeat volta 2
 125         {
 126
 127 \mark \markup { \override #'(font-family . sans) { \box { C } } }
 128
 129                 g2. |   % 46
 130                 r2. |   % 47
 131                 r2. |   % 48
 132                 r2. |   % 49
 133         }
 134
 135         r2.-\fermata \bar "|."   % 50
 136 }
 137
 138 LeadVoxText = \lyricmode
 139 {
 140         We three kings of O -- ri -- ent are
 141         bear -- ing gifts we trav -- erse a -- far,
 142         Field and foun -- tain, moor and moun -- _ tain,
 143         fol -- low -- ing yon -- der star.
 144
 145         O! __ _
 146         star of won- der, star of night,
 147         star with roy -- al beau -- ty bright,
 148         West -- ward lea -- ding, still pro -- cee -- ding,
 149         guide us to thy per -- fect light.
 150
 151         per -- fect light.
 152 }
 153
 154 LeadVoxTextB = \lyricmode
 155 {
 156         Born a king on Beth -- le -- hem’s plain,
 157         gold I bring to crown him a -- gain,
 158         King for -- e -- ver, cea -- sing ne -- _ ver
 159         o -- ver us all to reign.
 160 }
 161
 162 LeadVoxTextC = \lyricmode
 163 {
 164         Glo -- rious now be -- hold him a -- rise,
 165         king and God and sa -- _ cri -- fice;
 166         Al -- le -- lu -- ia, Al -- le -- lu -- _ ia!
 167         Sounds thru the earth and skies.
 168 }
 169
 170
 171 Riffs = \relative c''
 172 {
 173         \clef G
 174         \key e \minor
 175         \override Staff.TimeSignature #'style = #'()
 176         \time 3/4
 177 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 178
 179         % Intro
 180
 181         \tiny
 182         a4 b a |   % 1
 183         g2 fs4 |   % 2
 184         e2. |   % 3
 185         \normalsize
 186 }
 187
 188
 189 %
 190 % Chord names
 191 %
 192
 193 Chords = \chordmode
 194 {
 195 %Bah, can't we set this globally?
 196 %       \popChords
 197
 198         % Intro
 199
 200         s2. |   % 1
 201         s2. |   % 2
 202
 203         \repeat volta 3
 204         {
 205                 s8 e2:m7 s8 |   % 3
 206                 a2.:m9 |   % 4
 207                 s8 e2:m7 s8 |   % 5
 208                 c4.:9 b:7.5+.9- |   % 6
 209                 s8 e2:m7 s8 |   % 7
 210                 a2.:m9 |   % 8
 211                 s8 e2:m7 s8 |   % 9
 212                 c4.:9 b:7.5+.9- |   % 10
 213
 214                 e2.:m7 |   % 11
 215                 c2.:maj7 |   % 12
 216                 b2.:7.5+.9- |   % 13
 217                 e2.:m7 |   % 14
 218                 c2.:maj7 |   % 15
 219                 a2.:m7 |   % 16
 220                 b2.:7.5+.9- |   % 17
 221                 e4.:m7 d/fs |   % 18
 222
 223                 g2. |   % 19
 224                 d2. |   % 20
 225                 c2.:maj7 |   % 21
 226                 b2:m7 e4:m7 |   % 22
 227                 a2.:m7 |   % 23
 228                 b2.:7.5+.9- |   % 24
 229                 e2.:m7 |   % 25
 230                 d2. |   % 26
 231                 d2.:7 |   % 27
 232
 233                 g2. |   % 28
 234                 s2. |   % 29
 235                 c2.:maj7 |   % 30
 236                 g2. |   % 31
 237                 s2. |   % 32
 238                 s2. |   % 33
 239                 c2.:maj7 |   % 34
 240                 g4. d/fs |   % 35
 241                 e2.:m7 |   % 36
 242                 b4.:m7 e:m7 |   % 37
 243                 a2.:m7 |   % 38
 244                 b2.:7.5+.9- |   % 39
 245                 c2.:maj7 |   % 40
 246                 b2.:m7 |   % 41
 247         }
 248         \alternative
 249         {
 250                 {
 251                         a2.:m7 |   % 42
 252                         g4. g/fs |   % 43
 253                 }
 254                 {
 255                         a2.:m7 |   % 44
 256                 }
 257         }
 258
 259         a2.:m7/d |   % 45
 260
 261         \repeat volta 2
 262         {
 263                 s8 g2 s8 |   % 46
 264                 c2.:maj7 |   % 47
 265                 s8 g2 s8 |   % 48
 266                 c2.:maj7 |   % 49
 267         }
 268
 269         g2. |   % 50
 270 }
 271
 272
 273 %
 274 % Chord rhythms
 275 %
 276
 277 % Use a RhythmicStaff on the chords instead of this?
 278 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 279
 280 StaffC = \relative c
 281 {
 282 %       \set Voice.autoBeaming = ##f
 283 %       \set Staff.instrumentName = #"Rhythm"
 284         \override Staff.TimeSignature #'style = #'()
 285         \time 3/4
 286         \override NoteHead #'style = #'slash
 287
 288         % Intro
 289
 290         r2. |   % 1
 291         r2. |   % 2
 292
 293         \repeat volta 3
 294         {
 295                 r8 c4.-> c4-^ |   % 3
 296                 c2. |   % 4
 297                 r8 c4.-> c4-^ |   % 5
 298                 c4. c |   % 6
 299                 r8 c4.-> c4-^ |   % 7
 300                 c2. |   % 8
 301                 r8 c4.-> c4-^ |   % 9
 302                 c4. c \bar "||"   % 10
 303
 304                 c2. |   % 11
 305                 c2. |   % 12
 306                 c2. |   % 13
 307                 c2. |   % 14
 308                 c2. |   % 15
 309                 c2. |   % 16
 310                 c2. |   % 17
 311                 c4. c \bar "||"   % 18
 312
 313                 c2. |   % 19
 314                 c2. |   % 20
 315                 c2. |   % 21
 316                 c2 c4 |   % 22
 317                 c2. |   % 23
 318                 c2. |   % 24
 319                 c2. |   % 25
 320                 c2.-> |   % 26
 321                 c4 c c \bar "||"   % 27
 322
 323                 c4 c c |   % 28
 324                 c4 c c |   % 29
 325                 c4 c c |   % 30
 326                 c4 c c |   % 31
 327                 c4 c c |   % 32
 328                 c4 c c |   % 33
 329                 c4 c c |   % 34
 330                 c4. c |   % 35
 331                 c4 c c |   % 36
 332                 c4. c |   % 37
 333                 c4 c c |   % 38
 334                 c4 c c |   % 39
 335                 c4 c c |   % 40
 336                 c4 c c |   % 41
 337         }
 338         \alternative
 339         {
 340                 {
 341                         c4 c c |   % 42
 342                         c4. c |   % 43
 343                 }
 344                 {
 345                         c4 c c |   % 44
 346                 }
 347         }
 348
 349         c4 c c |   % 45
 350
 351         \repeat volta 2
 352         {
 353                 r8 c4.-> c4-^ |   % 46
 354                 c2. |   % 47
 355                 r8 c4.-> c4-^ |   % 48
 356                 c2. |   % 49
 357         }
 358
 359         c2.-\fermata \bar "|."   % 50
 360 }
 361
 362
 363 Dynamics =
 364 {
 365         s2.*10
 366         s4_\mf s2 |   % 11
 367         s2.*15
 368         s4 s \< s |   % 27
 369         s4_\f s2 |   % 28
 370         s2.*20
 371         s4_\markup { \italic { rit. 2nd time } } s2 |   % 49
 372 }
 373
 374
 375 \score
 376 {
 377         <<
 378                 <<
 379 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 380                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 381                         \new Lyrics \lyricsto "lead" \LeadVoxText
 382                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 383                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 384                 >>
 385
 386                 \new ChoirStaff = "Rhythm"
 387                 <<
 388                         \new ChordNames = "chords" \Chords
 389                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 390                 >>
 391
 392                 \set Score.skipBars = ##t
 393                 \set Score.melismaBusyProperties = #'()
 394         >>
 395
 396         \layout
 397         {
 398 %               \context { \Staff \RemoveEmptyStaves }
 399 %               ragged-last-bottom = ##t
 400 %               ragged-last = ##t
 401         }
 402 }
 403
 404
 405 \paper
 406 {
 407   #(define fonts (make-pango-font-tree
 408     "Times New Roman"
 409     "DomCasual BT"
 410     "Luxi Mono"
 411     (/ staffSize 20)))
 412
 413 %  top-margin = -0.25 \in
 414 }