Shamusworld >> Repos - music/blob - linus-and-lucy.ly

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