Shamusworld >> Repos - music/blob - o-little-town-of-bethlehem.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 \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 "O Little Town Of Bethlehem" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Lewis H. Redner" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Craig Harris" }
  18         tagline  = "Engraved by JLH and Lilypond 2.8.8"
  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 f \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 4/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         \partial 4*1 a4 |   % 0
  39
  40         \repeat volta 2
  41         {
  42 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  43
  44                 a4 a af a |   % 1
  45                 c4 bf d, g |   % 2
  46                 f4 e8 ( f ) g4 c, |   % 3
  47                 a'2. a4 |   % 4
  48                 a4 a d c |   % 5
  49                 c4 bf d, g |   % 6
  50                 f4 e8 ( f ) a4 g |   % 7
  51                 f2. a4 \bar "||"   % 8
  52
  53 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  54
  55                 a4 a g f |   % 9
  56                 e2 e4 e |   % 10
  57                 d4 e f g |   % 11
  58                 a2. a4 |   % 12
  59                 a4 a af a |   % 13
  60                 c4 bf d, d' |   % 14
  61                 c4 f, a4. g8 |   % 15
  62         }
  63         \alternative
  64         {
  65                 {
  66                         f2. a4 |   % 16
  67                 }
  68                 {
  69                         f1^\fermata \bar "|."   % 17
  70                 }
  71         }
  72 }
  73
  74 LeadVoxText = \lyricmode
  75 {
  76         O lit -- tle town of Beth -- le -- hem, how still we _ see thee lie!
  77         A -- bove thy deep and dream -- less sleep the si -- lent _ stars go by;
  78         Yet in thy dark streets shi -- neth the e -- ver -- last -- ing light:
  79         The hopes and fears of all the years are met in thee to -- night.
  80
  81         O
  82 }
  83
  84 LeadVoxTextB = \lyricmode
  85 {
  86         _ ho -- ly child of Beth -- le -- hem! De -- scend to _ us, we pray;
  87         Cast out our sin and en -- ter in, be born in _ us to -- day.
  88         We hear the Christ -- mas an -- gels the great glad ti -- dings tell;
  89         O come to us, a -- bide with us, our lord Em -- man -- u- _ _ el!
  90 }
  91
  92
  93 %
  94 % Chord names
  95 %
  96
  97 Chords = \chordmode
  98 {
  99 %Bah, can't we set this globally?
 100 %       \popChords
 101
 102         \partial 4*1 s4 |   % 0
 103
 104         \repeat volta 2
 105         {
 106                 f2 f4:dim7 f |   % 1
 107                 bf2:5.9 g:m7 |   % 2
 108                 f2/c g4:m7/c c:7.9- |   % 3
 109                 f1:maj7 |   % 4
 110                 f2/ef d:7 |   % 5
 111                 g2.:m bf4:m6 |   % 6
 112                 f2/c g4:m7/c c:7.9- |   % 7
 113                 f2:sus4 f |   % 8
 114
 115                 f2 g4:dim7 gs:dim7 |   % 9
 116                 a1 |   % 10
 117                 d4:m a:7/e f:6 g:m/bf |   % 11
 118                 a2:sus4 a |   % 12
 119                 f2 f4:dim7 f |   % 13
 120                 bf2:5.9 g:7/b |   % 14
 121                 f2/c g4:m/c c:7.9- |   % 15
 122         }
 123         \alternative
 124         {
 125                 {
 126                         f2:sus4 f |   % 16
 127                 }
 128                 {
 129                         f2:sus4 f |   % 17
 130                 }
 131         }
 132 }
 133
 134
 135 %
 136 % Chord rhythms
 137 %
 138
 139 % Use a RhythmicStaff on the chords instead of this?
 140 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 141
 142 StaffC = \relative c
 143 {
 144 %       \set Voice.autoBeaming = ##f
 145 %       \set Staff.instrumentName = #"Rhythm"
 146         \override Staff.TimeSignature #'style = #'()
 147         \time 4/4
 148         \override NoteHead #'style = #'slash
 149
 150         % Intro
 151
 152         \partial 4*1 s4 |   % 0
 153
 154         \repeat volta 2
 155         {
 156                 c4 c c c |   % 1
 157                 c4 c c c |   % 2
 158                 c4 c c c |   % 3
 159                 c4 c c c |   % 4
 160                 c4 c c c |   % 5
 161                 c4 c c c |   % 6
 162                 c4 c c c |   % 7
 163                 c4 c c c \bar "||"   % 8
 164
 165                 c4 c-> c-> c-> |   % 9
 166                 c4 c c c |   % 10
 167                 c4 c c c |   % 11
 168                 c4 c c c |   % 12
 169                 c4 c c c |   % 13
 170                 c4 c c c |   % 14
 171                 c4 c c c |   % 15
 172         }
 173         \alternative
 174         {
 175                 {
 176                         c4 c c c |   % 16
 177                 }
 178                 {
 179                         c2 c^\fermata \bar "|."   % 17
 180                 }
 181         }
 182 }
 183
 184
 185 Dynamics =
 186 {
 187         \override TextScript #'extra-offset = #'( 0.0 . -1.0 )
 188
 189         \partial 4*1 s4 |   % 0
 190         s4_\markup { \italic { 1st X a capella } } s2. |   % 1
 191         s1*6
 192         s4_\markup { \dynamic mf \italic { band in } } s2. |   % 8
 193         s1*6
 194         s4_\markup { \italic { rit. 2nd X } } s2. |   % 15
 195
 196 %{
 197         \override TextScript #'extra-offset = #'( 0.0 . -1.0 )
 198
 199         \partial 4*1 s4_\f |   % 0
 200         s4_\markup { \italic { full band, snare } } s2. |   % 1
 201         s1*2
 202         s4 s \> s s \! |   % 4
 203         s4_\markup { \dynamic mf \italic { piano only } } s2. |   % 5
 204         s1*11
 205         s4_\markup { \dynamic mp \italic { bass in, cym } } s2. |   % 17
 206         s1*2
 207         s4 s \< s s_\f |   % 20
 208         s1*2
 209         s2 s_\markup { \italic { dr. fill } } |   % 23
 210         s4_\markup { \italic { dr. groove, s-stick 2&4 } } s2. |   % 24
 211         s1*13
 212         s4_\markup { \dynamic mp \italic { no backbeat } } s2. |   % 38
 213         s1*2
 214         s4 s \< s s_\f |   % 41
 215         s4_\markup { \italic { backbeat } } s2. |   % 42
 216         s1*2
 217         s2 s_\markup { \italic { dr. fill } } |   % 45
 218         s4_\markup { \italic { Majestic, slower w/snare } } s2. |   % 46
 219         s1*11
 220         s4_\markup { \dynamic mp \italic { no backbeat } } s2. |   % 58
 221         s1*2
 222         s4 s \< s_\markup { \hspace #0.0 \raise #-2.0 \italic { dr.fill } } s_\f |   % 61
 223         s4_\markup { \italic { backbeat } } s2. |   % 62
 224         s1*6
 225         s4_\markup { \italic { rit. } } s2. |   % 69
 226 %}
 227 }
 228
 229
 230 \score
 231 {
 232         <<
 233                 <<
 234                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 235 %                       \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 236                         \new Lyrics \lyricsto "lead" \LeadVoxText
 237                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 238                 >>
 239
 240                 \new ChoirStaff = "Rhythm"
 241                 <<
 242                         \new ChordNames = "chords" \Chords
 243                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 244                 >>
 245
 246                 \set Score.skipBars = ##t
 247                 \set Score.melismaBusyProperties = #'()
 248         >>
 249
 250         \layout
 251         {
 252 %               \context { \Staff \RemoveEmptyStaves }
 253 %               ragged-last-bottom = ##t
 254                 ragged-last = ##t
 255         }
 256 }
 257
 258
 259 \paper
 260 {
 261   #(define fonts (make-pango-font-tree
 262     "Times New Roman"
 263     "DomCasual BT"
 264     "Luxi Mono"
 265     (/ staffSize 20)))
 266
 267 %  top-margin = -0.25 \in
 268 }