2 \include "pop-chords.ly"
5 % Good sizes are 16, 18, & 20
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
15 %Let's bump up the title size and switch to the chord font. :-)
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;" } }
25 % Useful tweak abbreviations (hn = harmony note)
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
30 (set! (ly:music-property arg 'tweaks)
31 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
40 \override Staff.TimeSignature #'style = #'()
43 \once \override TextScript #'padding = #2.0
44 s1*0^\markup { \large \bold { Not too fast } }
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
56 \mark \markup { \override #'(font-family . sans) { \box { A } } }
72 \mark \markup { \override #'(font-family . sans) { \box { B } } }
74 s1*4 \bar "||" % 18-21
75 s1*10 \bar "|." % 22-31
82 LeadVox = \relative c''
84 % \set Staff.instrument = #"Lead vox"
86 \override Staff.TimeSignature #'style = #'()
88 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
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
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
110 a4-^ gs8.-^ a16-> ~ a2 | % 16
112 a4-^ gs8.-^ a16-> ~ a2 | % 17
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
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
131 LeadVoxText = \lyricmode
140 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
145 % \repeat percent 4 { e8_\markup { \italic { bass figure } } e e e e e e e } | % 1-4
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
163 d4:m7 e8.:7.9- a16:m s2 | % 6
165 f4:9 e8.:7.9- a16:m s2 | % 8
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
175 f4:9 e8.:7.9- a16:m s2 | % 16
177 f4:9 e8.:7.9- a16:m s4 f:9 | % 17
180 ef4:m7 f8.:7.9- bf16:m s2 | % 19
182 gf4:9 f8.:7.9- bf16:m s2 | % 21
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
193 gf4:9 f8.:7.9- bf16:m s2 | % 31
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...
205 %% \set Voice.autoBeaming = ##f
206 %% \set Staff.instrument = #"Rhythm"
207 \override Staff.TimeSignature #'style = #'()
208 \override NoteHead #'style = #'slash
217 c4-^ c8.-^ c16-> ~ c4 c | % 1
218 c4-^ c8.-^ c16-> ~ c4 c | % 2
219 c4-^ c8.-^ c16-> ~ c4 c | % 3
220 c4-^ c8.-^ c16-> ~ c4 c | % 4
223 c4-^ c8.-^ c16-> ~ c4 c | % 6
225 c4-^ c8.-^ c16-> ~ c4 c | % 8
227 c4-^ c8.-^ c16-> ~ c4 c | % 9
228 c4-^ c8.-^ c16-> ~ c4 c | % 10
229 c4.. c16 ~ c4 c | % 11
230 c4.. c16 ~ c4 c | % 12
231 c4-^ c8.-^ c16-> ~ c4 c | % 13
232 c4-^ c8.-^ c16-> ~ c4 c | % 14
233 c4-^ c8.-^ c16-> ~ c4 c | % 15
235 c4-^ c8.-^ c16-> ~ c4 c | % 16
237 c4-^ c8.-^ c16-> ~ c4 c | % 17
240 c4-^ c8.-^ c16-> ~ c4 c | % 19
242 c4-^ c8.-^ c16-> ~ c4 c | % 21
244 c4-^ c8.-^ c16-> ~ c4 c | % 22
245 c4-^ c8.-^ c16-> ~ c4 c | % 23
246 c4.. c16 ~ c4 c | % 24
247 c4.. c16 ~ c4 c | % 25
248 c4-^ c8.-^ c16-> ~ c4 c | % 26
249 c4-^ c8.-^ c16-> ~ c4 c | % 27
250 c4-^ c8.-^ c16-> ~ c4 c | % 28
251 c4-^ c8.-^ c16-> ~ c4 c | % 29
253 c4-^ c8.-^ c16-^ r2 | % 31
261 s4_\markup { \italic { 1st X: Melody, 2nd X+: Solos } } s2. | % 5
268 \set Score.skipBars = ##t
269 \set Score.melismaBusyProperties = #'()
273 \new ChordNames \Chords
275 % \new ChordNames \transpose b g \Chords
276 \new RhythmicStaff << \Rhythm \Dynamics >>
281 \Global % The "roadmap" that everything else depends on
282 \new Voice = "lead" \LeadVox
284 % \new Lyrics \lyricsto "lead" \LeadVoxText
292 #(define fonts (make-pango-font-tree
298 % Spread staves vertically across last page (default: t)
299 ragged-last-bottom = ##f
300 % Don't spread staves vertically across the page (default: f)
301 % ragged-bottom = ##t
302 % Allow partial line for last stave (default: f)
305 % To find out what's eating the space at the top...
306 % annotate-spacing = ##t
307 %let's try this: [It works! Huzzah!]
308 obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)