Shamusworld >> Repos - music/blob - fum-fum-fum.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 %{ 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 "Fum, Fum, Fum" }
  18         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Trad. Spanish Carol" }
  19         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }
  20         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  21 % Let's try a chord dictionary
  22 %       subtitle =  \markup { \center-column { "F#m" \fret-diagram-terse #"x;x;4;2;2;2;" } "       " \center-column { "F#m/F" \fret-diagram-terse #"x;x;3;2;2;2;" } "       " \center-column { "F#m/E" \fret-diagram-terse #"x;x;2;2;2;2;" }  "       " \center-column { "F#m/Eb" \fret-diagram-terse #"x;x;1;2;2;2;" }  "       " \center-column { "Em7" \fret-diagram-terse #"o;2;2;o;3;o;" }  "       " \center-column { "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 a \minor
  40         \numericTimeSignature
  41         \time 4/4
  42
  43         \once \override TextScript #'padding = #2.0
  44         s1*0^\markup { \large \bold { Not too fast } }
  45 % Capo 4 version
  46 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  47
  48         % Intro
  49
  50         s1*4 \bar ".|:-||"   % 1-4
  51
  52         % The rest...
  53
  54         \repeat volta 2
  55         {
  56                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  57
  58                 s1*4 \bar "||"   % 5-8
  59                 s1*7 |   % 9-15
  60         }
  61         \alternative
  62         {
  63                 {
  64                         s1 |   % 16
  65                 }
  66                 {
  67                         s1 \bar "||"   % 17
  68                 }
  69         }
  70
  71         \key bf \minor
  72         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  73
  74         s1*4 \bar "||"   % 18-21
  75         s1*10 \bar "|."   % 22-31
  76 }
  77
  78
  79 %
  80 % Lead vocal
  81 %
  82 LeadVox = \relative c''
  83 {
  84 %       \set Staff.instrument = #"Lead vox"
  85         \clef G
  86         \override Staff.TimeSignature #'style = #'()
  87 %Hm. Needed anymore?
  88 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  89
  90         % Intro
  91
  92         r1 |   % 1
  93         r1 |   % 2
  94         r1 |   % 3
  95         r1 |   % 4
  96
  97         a8. gs16 a c8 b16 ~ b a8 gs16 ~ gs e ~ e8 |   % 5
  98         a4-^ gs8.-^ a16-> ~ a2 |   % 6
  99         a8. gs16 a c8 b16 ~ b a8 gs16 ~ gs e ~ e8 |   % 7
 100         a4-^ gs8.-^ a16-> ~ a4. a16 b |   % 8
 101
 102         c8 c b b16 c ~ c g8 g16 ~ g g8 g16 ~ |   % 9
 103         g8 c b b16 c ~ c4. b16 c |   % 10
 104         d8. c16 b a8 gs16 ~ gs e ~ e8 a gs |   % 11
 105         a8 c16 b ~ b a8 gs16 ~ gs e ~ e8 ~ e4 |   % 12
 106         a4-^ gs8.-^ a16-> ~ a2 |   % 13
 107         a4-^ gs8.-^ a16-> ~ a2 |   % 14
 108         a4-^ gs8.-^ a16-> ~ a2 |   % 15
 109
 110         a4-^ gs8.-^ a16-> ~ a2 |   % 16
 111
 112         a4-^ gs8.-^ a16-> ~ a2 |   % 17
 113
 114         bf8. a16 bf df8 c16 ~ c bf8 a16 ~ a f ~ f8 |   % 18
 115         bf4-^ a8.-^ bf16-> ~ bf2 |   % 19
 116         bf8. a16 bf df8 c16 ~ c bf8 a16 ~ a f ~ f8 |   % 20
 117         bf4-^ a8.-^ bf16-> ~ bf4. bf16 c |   % 21
 118
 119         df8 df c c16 df ~ df af8 af16 ~ af af8 af16 ~ |   % 22
 120         af8 df c c16 df ~ df4. c16 df |   % 23
 121         ef8. df16 c bf8 a16 ~ a f ~ f8 bf a |   % 24
 122         bf8 df16 c ~ c bf8 a16 ~ a f ~ f8 ~ f4 |   % 25
 123         bf4-^ a8.-^ bf16-> ~ bf2 |   % 26
 124         bf4-^ a8.-^ bf16-> ~ bf2 |   % 27
 125         bf4-^ a8.-^ bf16-> ~ bf2 |   % 28
 126         bf4-^ a8.-^ bf16-> ~ bf2 |   % 29
 127         bf8. a16 bf df8 c16 ~ c bf8 a16 ~ a f ~ f8 |   % 30
 128         bf4-^ a8.-^ bf16-^ r2 |   % 31
 129 }
 130
 131 LeadVoxText = \lyricmode
 132 {
 133 }
 134
 135
 136 Riffs = \relative c
 137 {
 138         \clef G
 139 %Hm. Needed anymore?
 140 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 141
 142         % Intro
 143
 144 %       \tiny
 145 %       \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } |   % 1-4
 146 %       \normalsize
 147 }
 148
 149
 150 %
 151 % Chord names
 152 %
 153 Chords = \chordmode
 154 {
 155         % Intro
 156
 157         d4:m7 e8.:7.9- a16:m s2 |   % 1
 158         f4:9 e8.:7.9- a16:m s2 |   % 2
 159         d4:m7 e8.:7.9- a16:m s2 |   % 3
 160         f4:9 e8.:7.9- a16:m s2 |   % 4
 161
 162         a1:m |   % 5
 163         d4:m7 e8.:7.9- a16:m s2 |   % 6
 164         a1:m |   % 7
 165         f4:9 e8.:7.9- a16:m s2 |   % 8
 166
 167         d4:m7 g8.:7 c16:maj7 s2 |   % 9
 168         d4:m7 g8.:7 c16:maj7 s2 |   % 10
 169         b4..:m7.5- e16:7.9- s2 |   % 11
 170         f4..:9 e16:7.9- s2 |   % 12
 171         d4:m7 e8.:7.9- a16:m s2 |   % 13
 172         f4:9 e8.:7.9- a16:m s2 |   % 14
 173         d4:m7 e8.:7.9- a16:m s2 |   % 15
 174
 175         f4:9 e8.:7.9- a16:m s2 |   % 16
 176
 177         f4:9 e8.:7.9- a16:m s4 f:9 |   % 17
 178
 179         bf1:m |   % 18
 180         ef4:m7 f8.:7.9- bf16:m s2 |   % 19
 181         bf1:m |   % 20
 182         gf4:9 f8.:7.9- bf16:m s2 |   % 21
 183
 184         ef4:m7 af8.:7 df16:maj7 s2 |   % 22
 185         ef4:m7 af8.:7 df16:maj7 s2 |   % 23
 186         c4..:m7.5- f16:7.9- s2 |   % 24
 187         gf4..:9 f16:7.9- s2 |   % 25
 188         ef4:m7 f8.:7.9- bf16:m s2 |   % 26
 189         gf4:9 f8.:7.9- bf16:m s2 |   % 27
 190         ef4:m7 f8.:7.9- bf16:m s2 |   % 28
 191         gf4:9 f8.:7.9- bf16:m s2 |   % 29
 192         bf1:m |   % 30
 193         gf4:9 f8.:7.9- bf16:m s2 |   % 31
 194 }
 195
 196
 197 %
 198 % Chord rhythms
 199 %
 200 % Use a RhythmicStaff on the chords instead of this?
 201 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 202 %
 203 Rhythm = \relative c
 204 {
 205         \numericTimeSignature
 206         \override NoteHead #'style = #'slash
 207 %Not small enough... (?)
 208         \teeny
 209 %       \magnify #0.3
 210
 211         % Intro
 212
 213         c4-^ c8.-^ c16-> ~ c4 c |   % 1
 214         c4-^ c8.-^ c16-> ~ c4 c |   % 2
 215         c4-^ c8.-^ c16-> ~ c4 c |   % 3
 216         c4-^ c8.-^ c16-> ~ c4 c |   % 4
 217
 218         c4-> r r2 |   % 5
 219         c4-^ c8.-^ c16-> ~ c4 c |   % 6
 220         c4-> r r2 |   % 7
 221         c4-^ c8.-^ c16-> ~ c4 c |   % 8
 222
 223         c4-^ c8.-^ c16-> ~ c4 c |   % 9
 224         c4-^ c8.-^ c16-> ~ c4 c |   % 10
 225         c4.. c16 ~ c4 c |   % 11
 226         c4.. c16 ~ c4 c |   % 12
 227         c4-^ c8.-^ c16-> ~ c4 c |   % 13
 228         c4-^ c8.-^ c16-> ~ c4 c |   % 14
 229         c4-^ c8.-^ c16-> ~ c4 c |   % 15
 230
 231         c4-^ c8.-^ c16-> ~ c4 c |   % 16
 232
 233         c4-^ c8.-^ c16-> ~ c4 c |   % 17
 234
 235         c4-> r r2 |   % 18
 236         c4-^ c8.-^ c16-> ~ c4 c |   % 19
 237         c4-> r r2 |   % 20
 238         c4-^ c8.-^ c16-> ~ c4 c |   % 21
 239
 240         c4-^ c8.-^ c16-> ~ c4 c |   % 22
 241         c4-^ c8.-^ c16-> ~ c4 c |   % 23
 242         c4.. c16 ~ c4 c |   % 24
 243         c4.. c16 ~ c4 c |   % 25
 244         c4-^ c8.-^ c16-> ~ c4 c |   % 26
 245         c4-^ c8.-^ c16-> ~ c4 c |   % 27
 246         c4-^ c8.-^ c16-> ~ c4 c |   % 28
 247         c4-^ c8.-^ c16-> ~ c4 c |   % 29
 248         c4-> r r2 |   % 30
 249         c4-^ c8.-^ c16-^ r2 |   % 31
 250         \normalsize
 251 }
 252
 253
 254 Dynamics =
 255 {
 256         s1*4 |   % 1-4
 257         s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. |   % 5
 258 }
 259
 260
 261 \score
 262 {
 263         <<
 264                 \set Score.skipBars = ##t
 265                 \set Score.melismaBusyProperties = #'()
 266
 267 %               \new Staff
 268                 <<
 269                         \new ChordNames \Chords
 270 %Capo 4 edition
 271 %                       \new ChordNames \transpose b g \Chords
 272                         \new RhythmicStaff << \Rhythm \Dynamics >>
 273                 >>
 274
 275                 \new Staff
 276                 <<
 277                         \Global                                         % The "roadmap" that everything else depends on
 278                         \new Voice = "lead" \LeadVox
 279 %                       \new Voice \Riffs
 280 %                       \new Lyrics \lyricsto "lead" \LeadVoxText
 281                 >>
 282         >>
 283 }
 284
 285
 286 \paper
 287 {
 288   #(define fonts (make-pango-font-tree
 289     "Times New Roman"
 290     "JazzText"
 291     "Luxi Mono"
 292     (/ staffSize 20)))
 293
 294 % Spread staves vertically across last page (default: t)
 295         ragged-last-bottom = ##f
 296 % Don't spread staves vertically across the page (default: f)
 297 %       ragged-bottom = ##t
 298 % Allow partial line for last stave (default: f)
 299 %       ragged-last = ##t
 300
 301 % To find out what's eating the space at the top...
 302 %       annotate-spacing = ##t
 303 }
 304