Shamusworld >> Repos - music/blob - silent-night.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 "Silent Night" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Franz Gruber" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  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 bf \major
  32         \override Staff.TimeSignature #'style = #'()
  33         \time 3/4
  34 \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  35
  36         % Intro
  37
  38         r2. |   % 1
  39         r2. |   % 2
  40         r2. |   % 3
  41         r2. |   % 4
  42
  43         \repeat volta 2
  44         {
  45                 % Verse
  46
  47 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  48
  49                 f4. ( g8 ) f4 |   % 5
  50                 d2. |   % 6
  51                 f4. ( g8 ) f4 |   % 7
  52                 d2. |   % 8
  53                 c'2 c4 |   % 9
  54                 a2. |   % 10
  55                 bf2 bf4 |   % 11
  56                 f2. \bar "||"   % 12
  57
  58 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  59
  60                 g2 g4 |   % 13
  61                 bf4. ( a8 ) g4 |   % 14
  62                 f4. g8 f4 |   % 15
  63                 d2. |   % 16
  64                 g2 g4 |   % 17
  65                 bf4. ( a8 ) g4 |   % 18
  66                 f4. g8 f4 |   % 19
  67                 d2. \bar "||"   % 20
  68
  69                 c'2 c4 |   % 21
  70                 ef4. c8 a4 |   % 22
  71                 bf2. ( |   % 23
  72                 d2. ) |   % 24
  73                 bf4 ( f ) d |   % 25
  74                 f4. ef8 c4 |   % 26
  75                 bf2. ~ |   % 27
  76                 bf2. |   % 28
  77
  78                 r2. |   % 29
  79                 r2. |   % 30
  80         }
  81
  82         r2.^\fermata \bar "|."   % 31
  83 }
  84
  85 LeadVoxText = \lyricmode
  86 {
  87         Si -- _ lent night, ho -- _ ly night,
  88         all is calm, all is bright;
  89         Round yon vir -- _ gen mo -- ther and child,
  90         Ho -- ly in -- fant so ten -- der and mild;
  91         Sleep in hea -- ven --  ly peace, __ _
  92         sleep _ in hea -- ven -- ly peace.
  93 }
  94
  95 LeadVoxTextB = \lyricmode
  96 {
  97 %       Si -- _ lent night, ho -- _ ly night,
  98         _ _ _ _ _ _ _ _
  99         shep -- herds quake at the sight.
 100         Glo -- ries stream _ from hea -- ven a -- far,
 101         Heaven -- ly hosts _ sing al -- le -- lu -- ia;
 102         Christ, the sa -- vior is born! __ _
 103         Christ, _ the sa -- vior is born!
 104 }
 105
 106 LeadVoxTextC = \lyricmode
 107 {
 108 %       Si -- _ lent night, ho -- _ ly night,
 109         _ _ _ _ _ _ _ _
 110         Son of God, love’s pure light;
 111         Ra -- diant beams _ from thy ho -- ly face,
 112         with the dawn of re -- deem -- _ ing grace,
 113         Je -- sus, lord at thy birth, __ _
 114         Je -- _ sus, lord at thy birth.
 115 }
 116
 117
 118 %
 119 % Chord names
 120 %
 121
 122 Chords = \chordmode
 123 {
 124 %Bah, can't we set this globally?
 125 %       \popChords
 126
 127         % Intro
 128
 129         bf2.:sus2 |   % 1
 130         ef2.:maj9 |   % 2
 131         bf2.:sus2 |   % 3
 132         ef2.:maj9 |   % 4
 133
 134         \repeat volta 2
 135         {
 136                 % Verse
 137
 138                 bf2.:sus2 |   % 5
 139                 ef2.:maj9 |   % 6
 140                 bf2.:sus2 |   % 7
 141                 bf2. |   % 8
 142                 c2.:m11 |   % 9
 143                 f2.:7 |   % 10
 144                 bf2. |   % 11
 145                 f2.:m7/bf |   % 12
 146                 ef2.:maj7 |   % 13
 147                 c2.:m11 |   % 14
 148                 d2.:m7 |   % 15
 149                 g2.:m11 |   % 16
 150                 ef2.:maj7 |   % 17
 151                 c2.:m11 |   % 18
 152                 d2.:m7 |   % 19
 153                 g2.:m11 |   % 20
 154                 af2.:5.9 |   % 21
 155                 ef2/f f4:7 |   % 22
 156                 g2.:m7 |   % 23
 157                 c2.:sus2/e |   % 24
 158                 bf2./f |   % 25
 159                 ef2./f |   % 26
 160                 bf2.:sus2 |   % 27
 161                 ef2.:maj9 |   % 28
 162                 bf2.:sus2 |   % 29
 163                 ef2.:maj9 |   % 30
 164         }
 165
 166         bf2.:sus2 |   % 31
 167 }
 168
 169
 170 %
 171 % Chord rhythms
 172 %
 173
 174 % Use a RhythmicStaff on the chords instead of this?
 175 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 176
 177 StaffC = \relative c
 178 {
 179 %       \set Voice.autoBeaming = ##f
 180 %       \set Staff.instrumentName = #"Rhythm"
 181         \override Staff.TimeSignature #'style = #'()
 182         \time 3/4
 183         \override NoteHead #'style = #'slash
 184
 185         % Intro
 186
 187         c4 c c |   % 1
 188         c4 c c |   % 2
 189         c4 c c |   % 3
 190         c4 c c |   % 4
 191
 192         \repeat volta 2
 193         {
 194                 % Verse
 195
 196                 c4 c c |   % 5
 197                 c4 c c |   % 6
 198                 c4 c c |   % 7
 199                 c4 c c |   % 8
 200                 c4 c c |   % 9
 201                 c4 c c |   % 10
 202                 c4 c c |   % 11
 203                 c4 c c |   % 12
 204                 c4 c c |   % 13
 205                 c4 c c |   % 14
 206                 c4 c c |   % 15
 207                 c4 c c |   % 16
 208                 c4 c c |   % 17
 209                 c4 c c |   % 18
 210                 c4 c c |   % 19
 211                 c4 c c |   % 20
 212                 c4 c c |   % 21
 213                 c4 c c |   % 22
 214                 c4 c c |   % 23
 215                 c4 c c |   % 24
 216                 c4 c c |   % 25
 217                 c4 c c |   % 26
 218                 c4 c c |   % 27
 219                 c4 c c |   % 28
 220                 c4 c c |   % 29
 221                 c4 c c |   % 30
 222         }
 223
 224         c2.^\fermata \bar "|."   % 31
 225 }
 226
 227
 228 Dynamics =
 229 {
 230         \once \override TextScript #'extra-offset = #'( 0.0 . -1.0 )
 231
 232         s2.*29
 233         s4_\markup { \italic { rit. 3rd time } } s2
 234 }
 235
 236
 237 \score
 238 {
 239         <<
 240                 <<
 241                         \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
 242 %                       \new Staff = leadStaff { << \new Voice = "lead" \LeadVox \new Voice = "riffs" \Riffs >> }
 243                         \new Lyrics \lyricsto "lead" \LeadVoxText
 244                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 245                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 246                 >>
 247
 248                 \new ChoirStaff = "Rhythm"
 249                 <<
 250                         \new ChordNames = "chords" \Chords
 251                         \new RhythmicStaff = "chordRhythm" << \StaffC \Dynamics >>
 252                 >>
 253
 254                 \set Score.skipBars = ##t
 255                 \set Score.melismaBusyProperties = #'()
 256         >>
 257
 258         \layout
 259         {
 260 %               \context { \Staff \RemoveEmptyStaves }
 261                 ragged-last-bottom = ##t
 262                 ragged-last = ##t
 263         }
 264 }
 265
 266
 267 \paper
 268 {
 269   #(define fonts (make-pango-font-tree
 270     "Times New Roman"
 271     "DomCasual BT"
 272     "Luxi Mono"
 273     (/ staffSize 20)))
 274
 275 %  top-margin = -0.25 \in
 276 }