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 "Don’t Touch Me" }
18 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Robert Cray" }
19 arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
20 tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
21 % Let's try a chord dictionary
22 subtitle = \markup { \center-align { "F13" \fret-diagram-terse #"x;8;7;8;8;10;" } " " \center-align { "F7#9" \fret-diagram-terse #"x;8;7;8;9;x;" } } % " " \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;" } }
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 = #'()
46 % s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
49 \once \override TextScript #'padding = #2.0
50 s1*0^\markup { \large \bold { Moderate shuffle } }
54 \mark \markup { \override #'(font-family . sans) { \box { A } } }
69 \mark \markup { \override #'(font-family . sans) { \box { B } } }
70 s1*8 \bar "||" % 11-18
71 \mark \markup { \override #'(font-family . sans) { \box { C } } }
89 LeadVox = \relative c'
91 % \set Staff.instrument = #"Lead vox"
93 \override Staff.TimeSignature #'style = #'()
95 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
133 LeadVoxText = \lyricmode
136 Don't touch me baby, no
138 Because the way you treat me baby
139 You know that's wrong
140 I'm leaving you, baby
141 Gonna hit that highway back home
143 When I took you off the streets
144 And gave you everything that I had
145 When I ask you for some love baby
146 You haul off and get mad
147 I'm gone baby, hey baby
148 Gonna hit that highway back home
152 Not one thing that I do
153 And you're always talking about
154 How you and I are through
155 You take all of my money
156 And you take it so much pride
158 Darling I know that you're never satisfied
161 And there's no need to cry, no
162 I'm gonna grab my coat and put on my hat
164 I'm gone baby, hey baby
165 Gonna hit that highway back home
167 Well, I'm leaving you baby
168 Oh, there's no need to cry
169 When I grab my coat and put on my hat
170 It's just to say bye-bye
172 Gonna hit that highway back home
176 LeadVoxTextB = \lyricmode
185 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
206 bf2 \times 2/3 { s8 g af a bf b } | % 6
207 c4 s \times 2/3 { s8 f4:7 s4. } | % 7
227 bf2 \times 2/3 { s8 g af a bf b } | % 23
228 c4 s \times 2/3 { s8 f4:7 s4. } | % 24
240 % Use a RhythmicStaff on the chords instead of this?
241 % It almost works, but not quite. Doesn't collapse chords above to single notes...
245 %% \set Voice.autoBeaming = ##f
246 %% \set Staff.instrument = #"Rhythm"
247 \override Staff.TimeSignature #'style = #'()
248 \override NoteHead #'style = #'slash
256 c4 c \times 2/3 { r8 c c } \times 2/3 { c c c } | % 6
257 c8-. r r4 \times 2/3 { r8 c c } \times 2/3 { c c c } | % 7
277 c4 c \times 2/3 { r8 c c } \times 2/3 { c c c } | % 23
278 c8-. r r4 \times 2/3 { r8 c c } \times 2/3 { c c c } | % 24
289 s4_\markup { \italic { Let notes ring } } s2. | % 1
291 s4_\markup { \italic { snare pat. } } s2 | % 1
292 s4_\markup { \italic { simile } } s2 | % 2
294 s4_\markup { \italic { spacey } } s2 | % 22
298 s4_\markup { \italic { Last time } } s2 | % 51
306 \set Score.skipBars = ##t
307 \set Score.melismaBusyProperties = #'()
311 \new ChordNames \Chords
313 % \new ChordNames \transpose b g \Chords
314 \new RhythmicStaff << \Rhythm \Dynamics >>
319 \Global % The "roadmap" that everything else depends on
320 \new Voice = "lead" \LeadVox
322 \new Lyrics \lyricsto "lead" \LeadVoxText
323 \new Lyrics \lyricsto "lead" \LeadVoxTextB
331 #(define fonts (make-pango-font-tree
337 % Spread staves vertically across last page (default: t)
338 ragged-last-bottom = ##f
339 % Don't spread staves vertically across the page (default: f)
340 % ragged-bottom = ##t
341 % Allow partial line for last stave (default: f)
344 % To find out what's eating the space at the top...
345 % annotate-spacing = ##t
346 %let's try this: [It works! Huzzah!][Nope!]
347 % obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)