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