Shamusworld >> Repos - music/blob - covers/don't-touch-me.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 "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;" }  }
  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 bf \major
  40         \override Staff.TimeSignature #'style = #'()
  41         \time 4/4
  42
  43         % Intro
  44
  45 % Capo 4 version
  46 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \bigger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  47
  48         s1 | % 1
  49         \once \override TextScript #'padding = #2.0
  50         s1*0^\markup { \large \bold { Moderate shuffle } }
  51
  52         \repeat volta 2
  53         {
  54                 \mark \markup { \override #'(font-family . sans) { \box { A } } }
  55                 s1*7 \bar "||"   % 2-8
  56         }
  57         \alternative
  58         {
  59                 {
  60                         s1 |   % 9
  61                 }
  62                 {
  63                         s1 |   % 10
  64                 }
  65         }
  66
  67         \repeat volta 2
  68         {
  69                 \mark \markup { \override #'(font-family . sans) { \box { B } } }
  70                 s1*8 \bar "||"   % 11-18
  71                 \mark \markup { \override #'(font-family . sans) { \box { C } } }
  72                 s1*7 |   % 19-25
  73         }
  74         \alternative
  75         {
  76                 {
  77                         s1 |   % 26
  78                 }
  79                 {
  80                         s1 \bar "|."   % 27
  81                 }
  82         }
  83 }
  84
  85
  86 %
  87 % Lead vocal
  88 %
  89 LeadVox = \relative c'
  90 {
  91 %       \set Staff.instrument = #"Lead vox"
  92         \clef G
  93         \override Staff.TimeSignature #'style = #'()
  94 %Hm. Needed anymore?
  95 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  96
  97          |   % 1
  98
  99          |   % 2
 100          |   % 3
 101          |   % 4
 102          |   % 5
 103          |   % 6
 104          |   % 7
 105          |   % 8
 106
 107          |   % 9
 108
 109          |   % 10
 110
 111          |   % 11
 112          |   % 12
 113          |   % 13
 114          |   % 14
 115          |   % 15
 116          |   % 16
 117          |   % 17
 118          |   % 18
 119
 120          |   % 19
 121          |   % 20
 122          |   % 21
 123          |   % 22
 124          |   % 23
 125          |   % 24
 126          |   % 25
 127
 128          |   % 26
 129
 130          |   % 27
 131 }
 132
 133 LeadVoxText = \lyricmode
 134 {
 135 %{
 136 Don't touch me baby, no
 137 Just leave me alone
 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
 142
 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
 149
 150 (Now check this out)
 151 You don't appreciate
 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
 157 Baby you,
 158 Darling I know that you're never satisfied
 159
 160 I'm leaving you baby
 161 And there's no need to cry, no
 162 I'm gonna grab my coat and put on my hat
 163 And wave you bye-bye
 164 I'm gone baby, hey baby
 165 Gonna hit that highway back home
 166
 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
 171 Gone baby, hey baby
 172 Gonna hit that highway back home
 173 %}
 174 }
 175
 176 LeadVoxTextB = \lyricmode
 177 {
 178 }
 179
 180
 181 Riffs = \relative c'
 182 {
 183         \clef G
 184 %Hm. Needed anymore?
 185 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 186
 187         % Intro
 188
 189         \tiny
 190         f8 a ef' g d' r s4
 191         \normalsize
 192 }
 193
 194
 195 %
 196 % Chord names
 197 %
 198 Chords = \chordmode
 199 {
 200         f1:13 |   % 1
 201
 202         bf1 |   % 2
 203         bf1 |   % 3
 204         ef1 |   % 4
 205         af1 |   % 5
 206         bf2 \times 2/3 { s8 g af a bf b } |   % 6
 207         c4 s \times 2/3 { s8 f4:7 s4. } |   % 7
 208         bf1 |   % 8
 209
 210         f1:7 |   % 9
 211
 212         bf1 |   % 10
 213
 214         ef1 |   % 11
 215         ef1 |   % 12
 216         bf1 |   % 13
 217         bf1 |   % 14
 218         ef1 |   % 15
 219         ef1 |   % 16
 220         c1 |   % 17
 221         f1:7.9+ |   % 18
 222
 223         bf1 |   % 19
 224         bf1 |   % 20
 225         ef1 |   % 21
 226         af1 |   % 22
 227         bf2 \times 2/3 { s8 g af a bf b } |   % 23
 228         c4 s \times 2/3 { s8 f4:7 s4. } |   % 24
 229         bf1 |   % 25
 230
 231         bf1 |   % 26
 232
 233         bf1 |   % 27
 234 }
 235
 236
 237 %
 238 % Chord rhythms
 239 %
 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...
 242 %
 243 Rhythm = \relative c
 244 {
 245 %%      \set Voice.autoBeaming = ##f
 246 %%      \set Staff.instrument = #"Rhythm"
 247         \override Staff.TimeSignature #'style = #'()
 248         \override NoteHead #'style = #'slash
 249
 250         c1-\fermata |   % 1
 251
 252         c4 c c c |   % 2
 253         c4 c c c |   % 3
 254         c4 c c c |   % 4
 255         c4 c c c |   % 5
 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
 258         c4 c c c |   % 8
 259
 260         c4 c c c |   % 9
 261
 262         c4 c c c |   % 10
 263
 264         c4 c c c |   % 11
 265         c4 c c c |   % 12
 266         c4 c c c |   % 13
 267         c4 c c c |   % 14
 268         c4 c c c |   % 15
 269         c4 c c c |   % 16
 270         c4 c c c |   % 17
 271         c4 c c c |   % 18
 272
 273         c4 c c c |   % 19
 274         c4 c c c |   % 20
 275         c4 c c c |   % 21
 276         c4 c c c |   % 22
 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
 279         c4 c c c |   % 25
 280
 281         c4 c c c |   % 26
 282
 283         c4 c c c |   % 27
 284 }
 285
 286
 287 Dynamics =
 288 {
 289         s4_\markup { \italic { Let notes ring } } s2. |   % 1
 290 %{
 291         s4_\markup { \italic { snare pat. } } s2 |   % 1
 292         s4_\markup { \italic { simile } } s2 |   % 2
 293         s2.*19
 294         s4_\markup { \italic { spacey } } s2 |   % 22
 295         s2.*5
 296         s4 s \< s \! |   % 28
 297         s2.*22
 298         s4_\markup { \italic { Last time } } s2 |   % 51
 299 %}
 300 }
 301
 302
 303 \score
 304 {
 305         <<
 306                 \set Score.skipBars = ##t
 307                 \set Score.melismaBusyProperties = #'()
 308
 309 %               \new Staff
 310                 <<
 311                         \new ChordNames \Chords
 312 %Capo 4 edition
 313 %                       \new ChordNames \transpose b g \Chords
 314                         \new RhythmicStaff << \Rhythm \Dynamics >>
 315                 >>
 316
 317                 \new Staff
 318                 <<
 319                         \Global                                         % The "roadmap" that everything else depends on
 320                         \new Voice = "lead" \LeadVox
 321                         \new Voice \Riffs
 322                         \new Lyrics \lyricsto "lead" \LeadVoxText
 323                         \new Lyrics \lyricsto "lead" \LeadVoxTextB
 324                 >>
 325         >>
 326 }
 327
 328
 329 \paper
 330 {
 331   #(define fonts (make-pango-font-tree
 332     "Times New Roman"
 333     "DomCasual BT"
 334     "Luxi Mono"
 335     (/ staffSize 20)))
 336
 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)
 342 %       ragged-last = ##t
 343
 344 % To find out what's eating the space at the top...
 345 %       annotate-spacing = ##t
 346 %let's try this: [It works! Huzzah!]
 347         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 348 }