Shamusworld >> Repos - music/blob - the-first-noel.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 = #18
   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 "The First Noel" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "English Carol" }
  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 d \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 3/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         \partial 4*1 s4 \bar "||"   % 0
  39         s2. |   % 1
  40         s2. |   % 2
  41         s2. |   % 3
  42         s2. |   % 4
  43
  44         \repeat volta 3
  45         {
  46                 s2. |   % 5
  47                 s2. |   % 6
  48                 s2. |   % 7
  49 \break % Bleah
  50                 s2 fs8 e \bar "||"   % 8
  51
  52                 % Verse
  53
  54 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  55
  56                 d4. ( e8 ) fs ( g ) |   % 9
  57                 a2 b8 ( cs ) |   % 10
  58                 d4 cs b |   % 11
  59                 a2 b8 cs |   % 12
  60                 d4 ( cs ) b |   % 13
  61                 a4 ( b ) cs |   % 14
  62                 d4 ( a ) g |   % 15
  63                 fs2 fs8 ( e ) |   % 16
  64
  65 \mark \markup { \override #'(font-family . sans) { \box { A9 } } }
  66
  67                 d4. ( e8 ) fs ( g ) |   % 17
  68                 a2 b8 ( cs ) |   % 18
  69                 d4 ( cs ) b |   % 19
  70                 a2 b8 ( cs ) |   % 20
  71                 d4 cs b |   % 21
  72                 a4 ( b ) cs |   % 22
  73                 d4 ( a ) g |   % 23
  74                 fs2 fs8 ( e ) \bar "||"   % 24
  75 \break % bah, only valid for size 18
  76
  77                 % Chorus
  78
  79 %\mark \markup { \override #'(font-family . sans) { \box { B } } }
  80 \once \override Score.RehearsalMark #'self-alignment-X = #left
  81 \mark \markup { \override #'(font-family . sans) { \box { B } } \hspace #1.0 \raise #2.0 \musicglyph #"scripts.segno" }
  82
  83                 d4. ( e8 ) fs ( g ) |   % 25
  84                 a2 d8 ( cs ) |   % 26
  85                 b2 b4 |   % 27
  86                 a2. |   % 28
  87                 d4 cs b |   % 29
  88                 a4 ( b ) cs |   % 30
  89         }
  90         \alternative
  91         {
  92                 {
  93                         d4 ( a ) g |   % 31
  94                         d2. |   % 32
  95                 }
  96                 {
  97                         d'4 ( a ) g |   % 33
  98                         fs2^\markup { \hspace #3.0 \raise #1.0 { D.S. } } fs8 ( e ) \bar "||"   % 34
  99                 }
 100                 {
 101                         d'4 ( a ) g |   % 35
 102                         d2. |   % 36
 103                 }
 104         }
 105
 106         s2. |   % 37
 107         s2. |   % 38
 108         s2. |   % 39
 109         s2. \bar "|."   % 40
 110 }
 111
 112 LeadVoxText = \lyricmode
 113 {
 114         The _ first _ no -- _ el the _ an -- gel did say
 115         Was to cer -- tain poor shep -- herds in fields as they lay
 116         In _ fields _ where _ they lay _ keep -- ing their sheep
 117         On a cold win -- ter’s night _ that was _ so deep.
 118
 119         No -- _ el, _ no -- _ el! No -- _ el, no -- el!
 120         Born is the king _ of Is -- _ ra -- el!
 121
 122         Is -- _ ra -- el!
 123         No -- _
 124
 125         Is -- _ ra -- el!
 126 }
 127
 128 LeadVoxTextB = \lyricmode
 129 {
 130         They _ look -- _ ed _ up and _ saw _ a star
 131         Shi -- ning in _ the east _ be -- yond _ them far
 132         And _ to _ the _ earth it _ gave _ great light,
 133         And _ so it con -- tin -- ued both day _ and night.
 134 }
 135
 136
 137 Riffs = \relative c'
 138 {
 139         \clef G
 140         \key d \major
 141         \override Staff.TimeSignature #'style = #'()
 142         \time 3/4
 143 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 144
 145         % Intro
 146
 147         \tiny
 148         \partial 4*1 fs8 e |   % 0
 149         d4. e8 fs g |   % 1
 150         a2 d8 cs |   % 2
 151         b2 b4 |   % 3
 152         a2. |   % 4
 153
 154         d4 cs b |   % 5
 155         a4 b cs |   % 6
 156         d4 a g |   % 7
 157         fs2 s4 |   % 8
 158
 159         s2.*28
 160
 161         d'4 cs b |   %
 162         a4 b cs |   %
 163         d4 a g |   %
 164         fs2.^\fermata |   %
 165         \normalsize
 166 }
 167
 168
 169 %
 170 % Chord names
 171 %
 172
 173 Chords = \chordmode
 174 {
 175 %Bah, can't we set this globally?
 176 %       \popChords
 177
 178         % Intro
 179
 180         \partial 4*1 d4/a |   % 0
 181         d2.:9^7 |   % 1
 182         a2.:9^7 |   % 2
 183         g2.:9^7 |   % 3
 184         d2 a4:9^7/cs |   % 4
 185
 186         \repeat volta 3
 187         {
 188                 % Verse
 189
 190                 g4:6/b a:11^9.7 g |   % 5
 191                 d4:sus2 g fs:m |   % 6
 192                 e2:m7 a4:sus4.7 |   % 7
 193                 d2 d4/a |   % 8
 194
 195                 d2.:9^7 |   % 9
 196                 fs2.:m7 |   % 10
 197                 g2.:maj7 |   % 11
 198                 d2.:9^7/fs |   % 12
 199                 g2.:maj9 |   % 13
 200                 d2./fs |   % 14
 201                 e2.:m7 |   % 15
 202                 a4:13 b:m a/cs |   % 16
 203
 204                 d2.:9^7 |   % 17
 205                 a2.:sus2/cs |   % 18
 206                 g2./b |   % 19
 207                 d2./a |   % 20
 208                 g2.:maj9 |   % 21
 209                 d2.:9^7/fs |   % 22
 210                 e2:m7 a4:sus4.7 |   % 23
 211                 d4 a:13 a:7 |   % 24
 212
 213                 % Chorus
 214
 215                 d2.:9^7 |   % 25
 216                 a2:9^7 d4:9^7/fs |   % 26
 217                 g2. |   % 27
 218                 d2 a4:sus2/cs |   % 28
 219                 g4:6/b a:11^9.7 g |   % 29
 220                 d4:sus2/fs g fs:m |   % 30
 221         }
 222         \alternative
 223         {
 224                 {
 225                         e2:m7 a4:sus4.7 |   % 31
 226                         d2 d4/cs |   % 32
 227                 }
 228                 {
 229                         e2:m7 a4:sus4.7 |   % 33
 230                         d2 d4/a |   % 34
 231                 }
 232                 {
 233                         e2:m7 a4:sus4.7 |   % 35
 234                         d2 d4/cs |   % 36
 235                 }
 236         }
 237
 238         g4:6/b a:11^9.7 g |   % 37
 239         d4:sus2/fs g fs:m |   % 38
 240         e2:m7 a4:sus4.7 |   % 39
 241         d2. |   % 40
 242 }
 243
 244
 245 %
 246 % Chord rhythms
 247 %
 248
 249 % Use a RhythmicStaff on the chords instead of this?
 250 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 251
 252 StaffC = \relative c
 253 {
 254 %       \set Voice.autoBeaming = ##f
 255 %       \set Staff.instrumentName = #"Rhythm"
 256         \override Staff.TimeSignature #'style = #'()
 257         \time 3/4
 258         \override NoteHead #'style = #'slash
 259
 260         % Intro
 261
 262         \partial 4*1 c4 \bar "||"   % 0
 263         c4 c c |   % 1
 264         c4 c c |   % 2
 265         c4 c c |   % 3
 266         c4 c c |   % 4
 267
 268         \repeat volta 3
 269         {
 270                 % Verse
 271
 272                 c4 c c |   % 5
 273                 c4 c c |   % 6
 274                 c4 c c |   % 7
 275                 c4 c c \bar "||"   % 8
 276
 277                 c4 c c |   % 9
 278                 c4 c c |   % 10
 279                 c4 c c |   % 11
 280                 c4 c c |   % 12
 281                 c4 c c |   % 13
 282                 c4 c c |   % 14
 283                 c4 c c |   % 15
 284                 c4 c c |   % 16
 285
 286                 c4 c c |   % 17
 287                 c4 c c |   % 18
 288                 c4 c c |   % 19
 289                 c4 c c |   % 20
 290                 c4 c c |   % 21
 291                 c4 c c |   % 22
 292                 c4 c c |   % 23
 293                 c4 c c \bar "||"   % 24
 294
 295                 % Chorus
 296
 297                 c4 c c |   % 25
 298                 c4 c c |   % 26
 299                 c4 c c |   % 27
 300                 c4 c c |   % 28
 301                 c4 c c |   % 29
 302                 c4 c c |   % 30
 303         }
 304         \alternative
 305         {
 306                 {
 307                         c4 c c |   % 31
 308                         c4 c c |   % 32
 309                 }
 310                 {
 311                         c4 c c |   % 33
 312                         c4 c c |   % 34
 313                 }
 314                 {
 315                         c4 c c |   % 35
 316                         c4 c c |   % 36
 317                 }
 318         }
 319
 320         c4 c c |   % 37
 321         c4 c c |   % 38
 322         c4 c c |   % 39
 323         c2.^\fermata \bar "|."   % 40
 324 }
 325
 326
 327 Dynamics =
 328 {
 329 %disnowok
 330 %       \override TextScript #'staff-padding = #-4.0
 331
 332         \once \override TextScript #'extra-offset = #'( 0.0 . -1.0 )
 333         \partial 4*1 s8_\markup { \italic { guitar, light perc. } } s8
 334
 335         s2.*16
 336
 337         s4_\markup { \italic { bass in 1st X } } s2
 338
 339         s2.*7
 340
 341         s4_\markup { \italic { add snare } } s2
 342 }
 343
 344
 345 \score
 346 {
 347         <<
 348                 <<
 349 %                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 350                         \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 351                         \new Lyrics \lyricsto "lead" \LeadVoxText
 352                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 353                 >>
 354
 355                 \new ChoirStaff = "Rhythm"
 356                 <<
 357                         \new ChordNames = "chords" \Chords
 358                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 359                 >>
 360
 361                 \set Score.skipBars = ##t
 362                 \set Score.melismaBusyProperties = #'()
 363         >>
 364
 365         \layout
 366         {
 367 %               \context { \Staff \RemoveEmptyStaves }
 368                 ragged-last-bottom = ##t
 369                 ragged-last = ##t
 370         }
 371 }
 372
 373
 374 \paper
 375 {
 376   #(define fonts (make-pango-font-tree
 377     "Times New Roman"
 378     "DomCasual BT"
 379     "Luxi Mono"
 380     (/ staffSize 20)))
 381
 382 %  top-margin = -0.25 \in
 383 }