Shamusworld >> Repos - music/blob - christmas-time-is-here.ly

   1 \version "2.16.0"
   2 \language "english"
   3
   4 % Good sizes are 16, 18, & 20
   5 staffSize = #18
   6 #(set-default-paper-size "letter")
   7 #(set-global-staff-size staffSize)
   8 #(ly:set-option (quote no-point-and-click))
   9
  10 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}
  11
  12 \header
  13 {
  14         title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Christmas Time Is Here" }
  15 %%  subtitle = "Second Movement"
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "V. Guaraldi" }
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. S. Hammons" }
  18         meter = \markup { \override #'(font-family . sans) \fontsize #1.3 "Largo" }
  19 }
  20
  21 %paperOFF = { \set Score.skipTypesetting = ##t }
  22 %paperON = { \set Score.skipTypesetting = ##f }
  23
  24 barRest =  { s2. }
  25
  26
  27 playRH =  \relative d''
  28 {
  29         \clef treble
  30         \key f \major
  31         \time 3/4
  32
  33         %% A section
  34
  35         \mark \markup { \override #'(font-family . sans) { \box { A } } }
  36
  37         << { e8 c c4. a8 } \\ { <g a c>2. } >> |
  38         << { a2 r4 } \\ { <df, ef f>2. } >> |
  39
  40         << { e'8 c c4. a8 } \\ { <g a c>2. } >> |
  41         << { a2 r4 } \\ { <df, ef f>2. } >> |
  42
  43         << { a'8 f f4 e } \\ { <b d f>2 <bf df e>4 } >> |
  44         << { g'8 e e4 ef } \\ { <a, c e>2 <af cf ef>4 } >> |
  45
  46         << { d8 f d4 f } \\ { <g, bf>2 <bf d>4 } >> |
  47         <a c e g>2 r4 \bar "||"
  48
  49         %% A section
  50
  51         \mark \markup { \override #'(font-family . sans) { \box { B } } }
  52
  53         << { e''8 c c4. a8 } \\ { <g a c>2. } >> |
  54         << { a2 r4 } \\ { <df, ef f>2. } >> |
  55
  56         << { e'8 c c4. a8 } \\ { <g a c>2. } >> |
  57         << { a2 r4 } \\ { <df, ef f>2. } >> |
  58
  59         << { a'8 f f4 e } \\ { <b d f>2 <bf df e>4 } >> |
  60         << { g'8 e e4 ef } \\ { <a, c e>2 <af cf ef>4 } >> |
  61
  62         << { d8 f d4 f } \\ { <g, bf>2 <bf d>4 } >> |
  63         <a c e g>2 r4 \bar "||"
  64
  65         %% B Section
  66
  67         \mark \markup { \override #'(font-family . sans) { \box { C } } }
  68
  69         << { c'8 af af4. c8 } \\ { <ef, f>2. } >> |
  70         << { c'2. } \\ { <df, e af>2. } >> |
  71
  72         << { c'8 af af4. c8 } \\ { <ef, f>2. } >> |
  73         << { c'2. } \\ { <df, e af>2. } >> |
  74
  75         << { c'8 a a4 c } \\ { <e, g>2 <ef g>4 } >> |
  76         << { c'8 a a4 bf } \\ { <d, fs>2 <d fs>4 } >> |
  77
  78         << { bf'8 g g4 a } \\ { <d, f>2. } >> |
  79         << { a'2. } \\ { <bf, d f> } >> \bar "||"
  80
  81         %% A section
  82
  83         \mark \markup { \override #'(font-family . sans) { \box { D } } }
  84
  85         << { e'8 c c4. a8 } \\ { <g a c>2. } >> |
  86         << { a2 r4 } \\ { <df, ef f>2. } >> |
  87
  88         << { e'8 c c4. a8 } \\ { <g a c>2. } >> |
  89         << { a2 r4 } \\ { <df, ef f>2. } >> |
  90
  91         << { a'8 f f4 e } \\ { <b d f>2 <bf df e>4 } >> |
  92         << { g'8 e e4 ef } \\ { <a, c e>2 <af cf ef>4 } >> |
  93
  94         << { d8 f d4 f } \\ { <g, bf>2 <bf d>4 } >> |
  95         <a c e g>2 r4 \bar "||"
  96 }
  97
  98 playDyn =
  99 {
 100 }
 101
 102 playLH =  \relative f
 103 {
 104         \clef bass
 105         \key f \major
 106         \time 3/4
 107
 108         %% A Section
 109
 110         f2.
 111         ef2.
 112
 113         f2.
 114         ef2.
 115
 116         b2 bf4
 117         a2 af4
 118
 119         g2 c4
 120         f2.
 121
 122         %% A Section
 123
 124         f2.
 125         ef2.
 126
 127         f2.
 128         ef2.
 129
 130         b2 bf4
 131         a2 af4
 132
 133         g2 c4
 134         f2.
 135
 136         %% B Section
 137
 138         df2.
 139         gf2.
 140
 141         df2.
 142         gf2.
 143
 144         a2 ef4
 145         d2.
 146
 147         g2.
 148         c,2.
 149
 150         %% A Section
 151
 152         f2.
 153         ef2.
 154
 155         f2.
 156         ef2.
 157
 158         b2 bf4
 159         a2 af4
 160
 161         g2 c4
 162         f2.
 163 }
 164
 165
 166 LeadVoxText = \lyricmode
 167 {
 168         Christ8 -- mas time4. is8 here,2.
 169         Hap8 -- pi -- ness4. and8 cheer,2.
 170         Fun8 for all4 that chil8 -- dren call4
 171         Their fav’8 -- rite time4 of year.2.
 172
 173         Snow8 -- flakes in4. the8 air,2.
 174         Ca8 -- rols ev’4. -- ry-8 where,2.
 175         Ol8 -- den times4 and anc8 -- ient rhymes4
 176         Of love8 and dreams4 to share.2.
 177
 178         Sleigh8 bells in4. the8 air,2.
 179         Beau8 -- ty ev’4. -- ry8 -- where,2.
 180         Yule8 -- tide by4 the fi8 -- re -- side4
 181         And joy8 -- ful mem’4 -- ries there.2.
 182
 183         Christ8 -- mas time4. is8 here,2.
 184         We’ll8 be draw4. -- ing8 near,2.
 185         Oh,8 that we4 could al8 -- ways see4
 186         Such spi8 -- rit through4 the year.2.
 187 }
 188
 189
 190 scoreAll =
 191 {
 192     \new PianoStaff
 193     {
 194 %        \override PianoStaff.VerticalAlignment #'forced-distance = #13   % gap between staves -- default 12
 195         \set PianoStaff.midiInstrument = "acoustic grand"
 196         %% \accidentalStyle "piano"
 197         <<
 198             \context Staff = "rh"
 199             {
 200                 %% \override Staff.TextScript #'staff-padding = #2
 201                 \override Staff.DynamicLineSpanner #'staff-padding = #3.5  % (forced-distance - 6) / 2
 202                 %% \override Staff.Hairpin #'minimum-length = #3
 203                 <<
 204                     \playRH
 205                     \playDyn
 206                 >>
 207                 \bar "|."
 208             }
 209                         \new Lyrics  \LeadVoxText
 210             \context Staff = "lh"
 211             {
 212                 \set Staff.pedalSustainStyle = #'bracket
 213                 %% \override Staff.PianoPedalBracket  #'shorten-pair = #'(0 . -1.0)
 214                 \playLH
 215                 \bar "|."
 216             }
 217         >>
 218     }
 219 }
 220
 221
 222 \score
 223 {
 224     {
 225         \scoreAll
 226     }
 227     \layout {}
 228 %{    \midi
 229     {
 230         \tempo 4 = 50
 231         %% Remove the dynamics from the midi output
 232         \context
 233         {
 234             \Voice
 235             \remove "Dynamic_performer"
 236 %            \remove "Span_dynamic_performer"
 237         }
 238     }
 239 %}
 240 }
 241
 242
 243 \paper
 244 {
 245   #(define fonts (make-pango-font-tree
 246     "Times New Roman"
 247     "LilyJazz Text"
 248     "Luxi Mono"
 249     (/ staffSize 20)))
 250
 251 % Spread staves vertically across last page (default: t)
 252         ragged-last-bottom = ##f
 253 % Don't spread staves vertically across the page (default: f)
 254 %       ragged-bottom = ##t
 255 % Allow partial line for last stave (default: f)
 256 %       ragged-last = ##t
 257
 258 % To find out what's eating the space at the top...
 259 %       annotate-spacing = ##t
 260 %let's try this: [It works! Huzzah!] [not no more it don't]
 261 %       obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 262 }
 263