New chart "Christmas Time Is Here".

diff --git a/christmas-time-is-here.ly b/christmas-time-is-here.ly
new file mode 100644 (file)
index 0000000..530f492
--- /dev/null
+++ b/christmas-time-is-here.ly
@@ -0,0 +1,165 @@
+\version "2.16.0"
+\language "english"
+
+\header
+{
+  title = "Christmas Time Is Here"
+%%  subtitle = "Second Movement"
+  composer = "V. Guaraldi"
+  arranger = "S. Hammons"
+  meter = "Largo"
+}
+
+%paperOFF = { \set Score.skipTypesetting = ##t }
+%paperON = { \set Score.skipTypesetting = ##f }
+
+barRest =  { s2. }
+
+
+playRH =  \relative d''
+{
+       \clef treble
+       \key f \major
+       \time 3/4
+
+       << { <g a c>2. } \\ { e8 c c4. a8 } >>
+       << { <df ef f>2. } \\ { a2 r4 } >>
+
+
+
+       <c-4 af-2>2 <bf g>4 | % 1
+       <ef-5 af,-2>-. ) r <df f,>-. | % 2
+       <c-4 af>4-. r <bf g>-. | % 3
+       af4-. r <gf'-5 df-1> ( | % 4
+       <f-4 df-2>2 <ef c>4 | % 5
+       <af df,>4-. ) r <gf bf,>-. | % 6
+       <f df>4-. r <ef c>-. | % 7
+       df4-. r <df-4 df,> ( ~ | % 8
+
+       <df df,>4 <c-5 c,> ) << { bf ~ ( } \\ { bf,-. } >> | % 9
+       << { bf'4 ef ) df-5 ( } \\ { ef,4-. r f-. } >> | % 10
+       << { df'4 c ) bf-4 ~ ( } \\ { af-. r g-. } >> | % 11
+       << { bf4 af-3 ) } \\ { s2 } >> <gf' gf,>4 ~ ( | % 12
+       <gf gf,>4 <f f,> ) << { ef ~ ( } \\ { ef,-. } >> | % 13
+       << { ef'4 af ) gf ~ ( } \\ { af,-. r bf-. } >> | % 14
+       << { gf'4 f ) ef-4 ~ ( } \\ { df-. r c-. } >> | % 15
+       \partial 2 << { ef4 df-3 ) } \\ { s2 } >> | % 16
+
+}
+
+playDyn =
+{
+}
+
+playLH =  \relative f'
+{
+       \clef bass
+       \key f \major
+       \time 3/4
+
+       %% A Section
+
+       f2.
+       ef2.
+
+       f2.
+       ef2.
+
+       b2 bf1
+       a2 af1
+
+       g2.
+       c2.
+
+       %% A Section
+
+       f2.
+       ef2.
+
+       f2.
+       ef2.
+
+       b2 bf1
+       a2 af1
+
+       g2.
+       c2.
+
+       %% B Section
+
+       df2.
+       gf2.
+
+       df2.
+       gf2.
+
+       a2 ef1
+       d2.
+
+       g2.
+       c2.
+
+       %% A Section
+
+       f2.
+       ef2.
+
+       f2.
+       ef2.
+
+       b2 bf1
+       a2 af1
+
+       g2.
+       c2.
+}
+
+scoreAll =
+{
+    \new PianoStaff
+    {
+%        \override PianoStaff.VerticalAlignment #'forced-distance = #13   % gap between staves -- default 12
+        \set PianoStaff.midiInstrument = "acoustic grand"
+        %% \accidentalStyle "piano"
+        <<
+            \context Staff = "rh"
+            {
+                %% \override Staff.TextScript #'staff-padding = #2
+                \override Staff.DynamicLineSpanner #'staff-padding = #3.5  % (forced-distance - 6) / 2
+                %% \override Staff.Hairpin #'minimum-length = #3
+                <<
+                    \playRH
+                    \playDyn
+                >>
+                \bar "|."
+            }
+            \context Staff = "lh"
+            {
+                \set Staff.pedalSustainStyle = #'bracket
+                %% \override Staff.PianoPedalBracket  #'shorten-pair = #'(0 . -1.0)
+                \playLH
+                \bar "|."
+            }
+        >>
+    }
+}
+
+
+\score
+{
+    {
+        \scoreAll
+    }
+    \layout {}
+    \midi
+    {
+        \tempo 4 = 50
+        %% Remove the dynamics from the midi output
+        \context
+        {
+            \Voice
+            \remove "Dynamic_performer"
+%            \remove "Span_dynamic_performer"
+        }
+    }
+}

diff --git a/lamb-of-god.ly b/lamb-of-god.ly
index 0328571502bccfa038fd2706f4f895a2e993a4a6..7161a15a037e76b8b42a6c81dd27272e8d49861d 100644 (file)
--- a/lamb-of-god.ly
+++ b/lamb-of-god.ly
@@ -483,6 +483,7 @@ Dynamics =
 %let's try this: [It works! Huzzah!]
        obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
 
+       % This doesn't quite do what I want :-P
        system-system-spacing #'padding = #1
        markup-system-spacing #'padding = #4
        score-markup-spacing #'padding = #4