Shamusworld >> Repos - music/blob - this-little-light-of-mine.ly

   1 \version "2.19.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"
   4
   5 % Good sizes are 16, 18, & 20 (11, 13, 14, 23, 26)
   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 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  12
  13 \header
  14 {
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "This Little Light Of Mine" }
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Traditional" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Group" }
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  19 }
  20
  21 % Useful tweak abbreviations (hn = harmony note)
  22
  23 hn = #(define-music-function (parser location arg) (ly:music?)
  24 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  25
  26   (set! (ly:music-property arg 'tweaks)
  27     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  28
  29
  30 %
  31 % Song's structure
  32 %
  33 Global =
  34 {
  35         \key e \major
  36         \numericTimeSignature
  37         \time 4/4
  38
  39         % Intro
  40
  41         \once \override TextScript #'padding = #2.0
  42         s1*0^\markup { \large \bold { Not too fast } }
  43 % Capo 4 version
  44 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  45
  46         s1*4 \bar "||:"   % 1-4
  47 %               \mark \markup { \override #'(font-family . sans) { \box { A } } }
  48
  49         \repeat volta 3
  50         {
  51                 s1*4 \bar "||"   % 5-8
  52
  53                 s1*7 |   % 9-15
  54         }
  55
  56         s1 \bar "||"   % 16
  57
  58         s1*6 |   % 17-22
  59
  60         \repeat volta 2
  61         {
  62                 s1*2 |   % 23-24
  63         }
  64
  65         s1*6 \bar "|."   % 25-30
  66 }
  67
  68
  69 %
  70 % Lead vocal
  71 %
  72 LeadVox = \relative c'
  73 {
  74         s1*8 |   % 1-8
  75
  76         b8 cs16 b e fs8 e16 ~ e4 r |   % 9
  77         gs8 gs 16 gs gs fs8 e16 ~ e4 r |   % 10
  78         cs8 e16 cs e8 fs16 e ~ e4 r |   % 11
  79         e8 e16 e e cs8 b16 ~ b4 r |   % 12
  80         b8 cs16 b e fs8 e16 ~ e4 r |   % 13
  81         gs8 gs16 gs gs fs8 e16 ~ e4 e16 fs8 gs16 ~ |   % 14
  82         gs4 a16 gs8 fs16 ~ fs4 gs16 fs8 e16 ~ |   % 15
  83
  84         e2 r2 |   % 16
  85
  86         b8 cs16 b e fs8 e16 ~ e4 r |   % 17
  87         gs8 gs 16 gs gs fs8 e16 ~ e4 r |   % 18
  88         cs8 e16 cs e8 fs16 e ~ e4 r |   % 19
  89         e8 e16 e e cs8 b16 ~ b4 r |   % 20
  90         b8 cs16 b e fs8 e16 ~ e4 r |   % 21
  91         gs8 gs16 gs gs fs8 e16 ~ e4 e16 fs8 gs16 ~ |   % 22
  92
  93         gs4 a16 gs8 fs16 ~ fs4 gs16 fs8 e16 ~ |   % 23
  94         e4. ~ e8 r4 e16 fs8 gs16 ~ |   % 24
  95
  96         gs4 a16 gs8 fs16 ~ fs4 gs16 fs8 e16 ~ |   % 25
  97         e1 ~ |   % 26
  98
  99         e2 r |   % 27
 100         r1 |   % 28
 101         r1 |   % 29
 102         r1 |   % 30
 103 }
 104
 105
 106 LeadVoxText = \lyricmode
 107 {
 108         This lit -- tle light of mine, _
 109         I’m gon -- na let it shine, _
 110         This lit -- tle light of mine, _
 111         I’m gon -- na let it shine, _
 112         This lit -- tle light of mine, _
 113         I’m gon -- na let it shine, _
 114         Let it shine, _ let it shine, _ let it shine. _
 115
 116         This lit -- tle light of mine, _
 117         I’m gon -- na let it shine, _
 118         This lit -- tle light of mine, _
 119         I’m gon -- na let it shine, _
 120         This lit -- tle light of mine, _
 121         I’m gon -- na let it shine, _
 122         Let it shine, _ let it shine, _ let it shine. _ _
 123         Let it shine, _ let it shine, _ let it shine. _ _
 124 }
 125
 126 LeadVoxTextB = \lyricmode
 127 {
 128         Ev -- ’ry -- _ where I go, _
 129         I’m gon -- na let it shine, _
 130         Ev -- ’ry -- _ where I go, _
 131         I’m gon -- na let it shine, _
 132         Ev -- ’ry -- _ where I go, _
 133         I’m gon -- na let it shine, _
 134         Let it shine, _ let it shine, _ let it shine. _
 135 }
 136
 137 LeadVoxTextC = \lyricmode
 138 {
 139         E -- ven when I’m a -- fraid, _
 140         I’m gon -- na let it shine, _
 141         E -- ven when I’m a -- fraid, _
 142         I’m gon -- na let it shine, _
 143         E -- ven when I’m a -- fraid, _
 144         I’m gon -- na let it shine, _
 145         Let it shine, _ let it shine, _ let it shine. _
 146 }
 147
 148
 149 Riffs = \relative c'
 150 {
 151         \override NoteHead #'style = #'cross
 152
 153         % Intro
 154
 155         \tiny
 156         \stemDown e8[ r e] r e[ r e] r |   % 1
 157         e8[ r e] r e[ r e] r \stemNeutral |   % 2
 158         << \override NoteHead #'style = #'cross { r8 b'[ r b] r b[ r b] } \\ \override NoteHead #'style = #'cross { e,8[ r e] r e[ r e] r } >> |   % 3
 159
 160         \repeat "percent" 5
 161         { << { r8 b'[ r b] r b[ r b] } \\ { e,8[ r e] r e[ r e] r } >> } |   % 4-8
 162         \normalsize
 163 }
 164
 165
 166 %
 167 % Chord names
 168 %
 169 Chords = \chordmode
 170 {
 171         s1*4 |   % 1-4
 172
 173         e2 s8 cs:m d4 |   % 5
 174         e2 s8 g a4 |   % 6
 175         e2 s8 cs:m d4 |   % 7
 176         e1 |   % 8
 177
 178         e1 |   % 9
 179         e1 |   % 10
 180         a1 |   % 11
 181         a2 e |   % 12
 182         e1 |   % 13
 183         e4 gs cs2:m |   % 14
 184         e2/b b |   % 15
 185
 186         e1 |   % 16
 187
 188         e1 |   % 17
 189         e1 |   % 18
 190         a1 |   % 19
 191         a2 e |   % 20
 192         e1 |   % 21
 193         e4 gs cs2:m |   % 22
 194
 195         e2/b b |   % 23
 196         e4. cs8:m s2 |   % 24
 197
 198         e2/b b |   % 25
 199         e1 |   % 26
 200
 201         e2 s8 cs:m d4 |   % 27
 202         e2 s8 g a4 |   % 28
 203         e2 s8 cs:m d4 |   % 29
 204         e1 |   % 30
 205 }
 206
 207
 208 %
 209 % Chord rhythms
 210 %
 211 Rhythm = \relative c
 212 {
 213         \numericTimeSignature
 214         \override NoteHead #'style = #'slash
 215         \teeny
 216
 217         s1*4 |   % 1-4
 218
 219         c8. c16 r8 c r c c4 |   % 5
 220         c8. c16 r8 c r c c4 |   % 6
 221         c8. c16 r8 c r c c4 |   % 7
 222         c8. c16 r8 c r2 |   % 8
 223
 224          |   % 9
 225          |   % 10
 226          |   % 11
 227          |   % 12
 228          |   % 13
 229          |   % 14
 230          |   % 15
 231
 232          |   % 16
 233
 234          |   % 17
 235          |   % 18
 236          |   % 19
 237          |   % 20
 238          |   % 21
 239          |   % 22
 240
 241          |   % 23
 242          |   % 24
 243
 244          |   % 25
 245          |   % 26
 246
 247          |   % 27
 248          |   % 28
 249          |   % 29
 250          |   % 30
 251 }
 252
 253
 254 Dynamics =
 255 {
 256         s4_\markup { \italic { stomp } } s2. |   % 1
 257         s1 |   % 2
 258         s4_\markup { \italic { add clap } } s2. |   % 3
 259         s1 |   % 4
 260         s4_\markup { \italic { band in } } s2. |   % 5
 261 }
 262
 263
 264 \score
 265 {
 266         <<
 267                 \set Score.skipBars = ##t
 268                 \set Score.melismaBusyProperties = #'()
 269
 270 %               \new ChoirStaff
 271                 <<
 272                         \new ChordNames \Chords
 273 %Capo 4 edition
 274 %                       \new ChordNames \transpose b g \Chords
 275                         \new RhythmicStaff << \Rhythm \Dynamics >>
 276                 >>
 277
 278                 \new Staff
 279                 <<
 280                         \Global         % The "roadmap" that everything else depends on
 281                         \new Voice = "lead" \LeadVox
 282                         \new Voice \Riffs
 283                         \new Lyrics \lyricsto "lead" \LeadVoxText
 284                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 285                         \new Lyrics \lyricsto "lead" \LeadVoxTextC
 286                 >>
 287         >>
 288 }
 289
 290
 291 \paper
 292 {
 293         #(define fonts (make-pango-font-tree
 294                 "Times New Roman"
 295                 "LilyJAZZText"
 296                 "Luxi Mono"
 297                 (/ staffSize 20)))
 298
 299 % Spread staves vertically across last page (default: t)
 300         ragged-last-bottom = ##f
 301 % Don't spread staves vertically across the page (default: f)
 302 %       ragged-bottom = ##t
 303 % Allow partial line for last stave (default: f)
 304 %       ragged-last = ##t
 305
 306 % To find out what's eating the space at the top...
 307 %       annotate-spacing = ##t
 308 }
 309