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 "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;" } }
26 % Useful tweak abbreviations (hn = harmony note)
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
31 (set! (ly:music-property arg 'tweaks)
32 (acons 'font-size -3.0 (ly:music-property arg 'tweaks))) arg)
41 \override Staff.TimeSignature #'style = #'()
46 \once \override TextScript #'padding = #2.0
47 s1*0^\markup { \large \bold { Lively } }
49 % s1*0^\markup { \hspace #0.0 \raise #2.0 \larger \bold { "Moderate pop (*** CAPO 4 ***)" } }
53 s1*30 %\bar "||" % 1-30
55 % \mark \markup { \override #'(font-family . sans) { \box { A } } }
62 LeftHand = \relative c,
64 % \set Staff.instrument = #"Lead vox"
66 \override Staff.TimeSignature #'style = #'()
68 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
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 ~ |
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 ~ |
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 ~ |
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 ~ |
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 |
100 <df df'>8-^ r4 <ef ef'>8-^ r2 |
101 r2 r4 r8 <af, af'>8-^ |
103 <df df'>8-^ r4 <ef ef'>8-^ r2 |
104 r2 r4 r8 <af, af'>8-^ |
106 <df df'>8-^ r4 <ef ef'>8-^ r2 |
114 RightHand = \relative c'
116 % \set Staff.instrument = #"Lead vox"
118 \override Staff.TimeSignature #'style = #'()
120 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
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'> ~ |
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'> ~ |
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'> ~ |
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 ~ |
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 |
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 |
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 |
165 Riffs = \relative c''
169 % \override Score.SpacingSpanner #'average-spacing-wishes = ##f
185 %Bah, can't we set this globally? YES!!!
200 a2 d8/fs fs:m7 | % 10
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...
219 %% \set Voice.autoBeaming = ##f
220 %% \set Staff.instrument = #"Rhythm"
221 \override Staff.TimeSignature #'style = #'()
222 \override NoteHead #'style = #'slash
250 s4_\markup { \italic { snare pat. } } s2 | % 1
251 s4_\markup { \italic { simile } } s2 | % 2
253 s4_\markup { \italic { spacey } } s2 | % 22
257 s4_\markup { \italic { Last time } } s2 | % 51
265 \set Score.skipBars = ##t
266 \set Score.melismaBusyProperties = #'()
270 % \new ChordNames \Chords
272 % \new ChordNames \transpose b g \Chords
273 % \new RhythmicStaff << \Rhythm \Dynamics >>
278 \Global % The "roadmap" that everything else depends on
279 \new Voice = "lead" \RightHand
284 \Global % The "roadmap" that everything else depends on
285 \new Voice = "lead" \LeftHand
293 #(define fonts (make-pango-font-tree
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)
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)