Shamusworld >> Repos - music/blob - linus-and-lucy.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 "Linus and Lucy" }
  18         subtitle = \markup { \override #'(font-family . sans) \fontsize #1.3 "Main Theme" }
  19         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Vince Guaraldi" }
  20         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
  21         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
  22 % Let's try a chord dictionary
  23 %       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;" }  }
  24 }
  25
  26 % Useful tweak abbreviations (hn = harmony note)
  27
  28 hn = #(define-music-function (parser location arg) (ly:music?)
  29 ;; Harmony Note: Set the tweaks property of the passed in note to use a smaller font
  30
  31   (set! (ly:music-property arg 'tweaks)
  32     (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
  33
  34
  35 %
  36 % Song's structure
  37 %
  38 Global =
  39 {
  40         \key af \major
  41         \override Staff.TimeSignature #'style = #'()
  42         \time 4/4
  43
  44         % Intro
  45
  46         \once \override TextScript #'padding = #2.0
  47         s1*0^\markup { \large \bold { Lively } }
  48 % Capo 4 version
  49 %       s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
  50
  51         \repeat volta 2
  52         {
  53                 s1*30 %\bar "||"   % 1-30
  54         }
  55 %               \mark \markup { \override #'(font-family . sans) { \box { A } } }
  56 }
  57
  58
  59 %
  60 % Lead vocal
  61 %
  62 LeftHand = \relative c,
  63 {
  64 %       \set Staff.instrument = #"Lead vox"
  65         \clef F
  66         \override Staff.TimeSignature #'style = #'()
  67 %Hm. Needed anymore?
  68 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
  69
  70         \ottava #-1
  71         af8 ef' af af, ef' af4 af,8 ~ |
  72         af8 ef' f af, ef' f4 af,8 ~ |
  73         af8 ef' af af, ef' af4 af,8 ~ |
  74         af8 ef' f af, ef' f4 af,8 ~ |
  75
  76         af8 ef' af af, ef' af4 af,8 ~ |
  77         af8 ef' f af, ef' f4 af,8 ~ |
  78         af8 ef' af af, ef' af4 af,8 ~ |
  79         af8 ef' f af, ef' f4 af,8 ~ |
  80
  81         af8 ef' af af, ef' af4 af,8 ~ |
  82         af8 ef' f af, ef' f4 cf8 ~ |
  83         cf8 gf' c cf, gf' cf4 cf,8 ~ |
  84         cf8 gf' af cf, gf' af4 af,8 ~ |
  85         af8 ef' af af, ef' af4 af,8 ~ |
  86         af8 ef' f af, ef' f4 af,8 ~ |
  87
  88         af8 ef' af af, ef' af4 af,8 ~ |
  89         af8 ef' f af, ef' f4 af,8 ~ |
  90         af8 ef' af af, ef' af4 af,8 ~ |
  91         af8 ef' f af, ef' f4 af,8 ~ |
  92
  93         af8 ef' af af, ef' af4 af,8 ~ |
  94         af8 ef' f af, ef' f4 cf8 ~ |
  95         cf8 gf' c cf, gf' cf4 cf,8 ~ |
  96         cf8 gf' af cf, gf' af4 af,8 ~ |
  97         af8 ef' af af, ef' af4 af,8 ~ |
  98         af8 ef' f af,4 bf8 c4 |
  99
 100         <df df'>8-^ r4 <ef ef'>8-^ r2 |
 101         r2 r4 r8 <af, af'>8-^ |
 102
 103         <df df'>8-^ r4 <ef ef'>8-^ r2 |
 104         r2 r4 r8 <af, af'>8-^ |
 105
 106         <df df'>8-^ r4 <ef ef'>8-^ r2 |
 107         r1 |
 108 }
 109
 110
 111 %
 112 % Lead vocal
 113 %
 114 RightHand = \relative c'
 115 {
 116 %       \set Staff.instrument = #"Lead vox"
 117         \clef G
 118         \override Staff.TimeSignature #'style = #'()
 119 %Hm. Needed anymore?
 120 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 121
 122         r1 |
 123         r1 |
 124         r1 |
 125         r2 r4 r8 <c af'> ~ |
 126
 127         <c af'>8 <ef bf'> <af c> r <af c> <ef bf'> <c af'> r |
 128         <ef bf'>4. <c af'>8 ~ <c af'>4 r8 <c af'> ~ |
 129         <c af'>8 <ef bf'> <af c> r <af c>2 ~ |
 130         <af c>2. r8 <c, af'> ~ |
 131
 132         <c af'>8 <ef bf'> <af c> r <af c> <ef bf'> <c af'> r |
 133         <ef bf'>4. <c af'>8 ~ <c af'>4 r8 <ef af> ~ |
 134         <ef af>4 r8 <ef bf'> <ef bf'>2 ~ |
 135         <ef bf'>2. r8 <c af'> ~ |
 136         <c af'>4 r8 <ef bf'> <ef bf'>2 ~ |
 137         <ef bf'>2. r8 <c af'> ~ |
 138
 139         <c af'>8 <ef bf'> <af c> r <af c> <ef bf'> <c af'> r |
 140         <ef bf'>4. <c af'>8 ~ <c af'>4 r8 <c af'> ~ |
 141         <c af'>8 <ef bf'> <af c> r <af c>2 ~ |
 142         <af c>2. r8 <c, af'> ~ |
 143
 144         <c af'>8 <ef bf'> <af c> r <af c> <ef bf'> <c af'> r |
 145         <ef bf'>4. <c af'>8 ~ <c af'>4 r8 <ef af> ~ |
 146         <ef af>4 r8 <ef bf'> <ef bf'>2 ~ |
 147         <ef bf'>2. r8 <c af'> ~ |
 148         <c af'>4 r8 <ef bf'> <ef bf'>2 ~ |
 149         <ef bf'>2. r4 |
 150
 151         <f af df>8-^ <f af df>-^ <f af df>-^ <g bf ef>-^
 152         r8 <ef' af>-. f-. <f af>-. |
 153         <ef af>8-. f-. <f af>-. <ef af>-. f-. <f af>-. <ef af>-. r |
 154
 155         <f, af df>8-^ <f af df>-^ <f af df>-^ <g bf ef>-^
 156         r8 <ef' af>-. f-. <f af>-. |
 157         <ef af>8-. f-. <f af>-. <ef af>-. f-. <f af>-. <ef af>-. r |
 158
 159         <f, af df>8-^ <f af df>-^ <f af df>-^ <g bf ef>-^
 160         r8 <ef' af>-. f-. <f af>-. |
 161         <ef af>8-. f-. <f af>-. <ef af>-. f-. <f af>-. <ef af>-. r |
 162 }
 163
 164
 165 Riffs = \relative c''
 166 {
 167         \clef G
 168 %Hm. Needed anymore?
 169 %       \override Score.SpacingSpanner #'average-spacing-wishes = ##f
 170
 171         % Intro
 172
 173 %{
 174         \tiny
 175         \normalsize
 176 %}
 177 }
 178
 179
 180 %
 181 % Chord names
 182 %
 183 Chords = \chordmode
 184 {
 185 %Bah, can't we set this globally? YES!!!
 186 %       \popChords
 187
 188         s4. d8 g4/a |   % 0
 189         d2 g4 |   % 1
 190         a4:sus4 a b:m |   % 2
 191         g4 a4. g8/a |   % 3
 192         d2 g4/a |   % 4
 193
 194         d4 d/cs b:m |   % 5
 195         g4:6 a b:m |   % 6
 196         g4 a4. g8/a |   % 7
 197         d2 d4/fs |   % 8
 198
 199         g2 d4/a |   % 9
 200         a2 d8/fs fs:m7 |   % 10
 201         g2 b4:m7 |   % 11
 202         a2 g4/a |   % 12
 203
 204         d4:sus4 d g |   % 13
 205         a4:sus4 a b:m |   % 14
 206         g4 a4. g8/a |   % 15
 207         d4. s |   % 16
 208 }
 209
 210
 211 %
 212 % Chord rhythms
 213 %
 214 % Use a RhythmicStaff on the chords instead of this?
 215 % It almost works, but not quite. Doesn't collapse chords above to single notes...
 216 %
 217 Rhythm = \relative c
 218 {
 219 %%      \set Voice.autoBeaming = ##f
 220 %%      \set Staff.instrument = #"Rhythm"
 221         \override Staff.TimeSignature #'style = #'()
 222         \override NoteHead #'style = #'slash
 223
 224         r4 r8 c c4 |   % 0
 225         c4 c c |   % 1
 226         c4 c c |   % 2
 227         c4 c4. c8 |   % 3
 228         c4 c c |   % 4
 229
 230         c4 c c |   % 5
 231         c4 c c |   % 6
 232         c4 c4. c8 |   % 7
 233         c4 c c |   % 8
 234
 235         c4 c c |   % 9
 236         c4 c c8 c |   % 10
 237         c4 c c |   % 11
 238         c4 c c |   % 12
 239
 240         c4 c c |   % 13
 241         c4 c c |   % 14
 242         c4 c4. c8 |   % 15
 243         c4. r |   % 16
 244 }
 245
 246
 247 Dynamics =
 248 {
 249 %{
 250         s4_\markup { \italic { snare pat. } } s2 |   % 1
 251         s4_\markup { \italic { simile } } s2 |   % 2
 252         s2.*19
 253         s4_\markup { \italic { spacey } } s2 |   % 22
 254         s2.*5
 255         s4 s \< s \! |   % 28
 256         s2.*22
 257         s4_\markup { \italic { Last time } } s2 |   % 51
 258 %}
 259 }
 260
 261
 262 \score
 263 {
 264         <<
 265                 \set Score.skipBars = ##t
 266                 \set Score.melismaBusyProperties = #'()
 267
 268 %               \new Staff
 269                 %               <<
 270                 %                       \new ChordNames \Chords
 271 %Capo 4 edition
 272 %                       \new ChordNames \transpose b g \Chords
 273                 %                       \new RhythmicStaff << \Rhythm \Dynamics >>
 274                 %               >>
 275
 276                 \new Staff
 277                 <<
 278                         \Global                                         % The "roadmap" that everything else depends on
 279                         \new Voice = "lead" \RightHand
 280                         %                       \new Voice \Riffs
 281                 >>
 282                 \new Staff
 283                 <<
 284                         \Global                                         % The "roadmap" that everything else depends on
 285                         \new Voice = "lead" \LeftHand
 286                 >>
 287         >>
 288 }
 289
 290
 291 \paper
 292 {
 293   #(define fonts (make-pango-font-tree
 294     "Times New Roman"
 295     "JazzText"
 296     "Luxi Mono"
 297     (/ staffSize 20)))
 298
 299 % Spread staves vertically across last page (default: t)
 300         ragged-last-bottom = ##f
 301 % Don't spread staves vertically across the page (default: f)
 302 %       ragged-bottom = ##t
 303 % Allow partial line for last stave (default: f)
 304 %       ragged-last = ##t
 305
 306 % To find out what's eating the space at the top...
 307 %       annotate-spacing = ##t
 308 %let's try this: [It works! Huzzah!]
 309         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 310 }