From: Shamus Hammons <jlhamm@acm.org>
Date: Sun, 18 Oct 2015 14:39:08 +0000 (-0500)
Subject: New chart "Christmas Time Is Here".
X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=music;a=commitdiff_plain;h=4123062c344af742155e141d9b3ed1ff40979a01

New chart "Christmas Time Is Here".
---

diff --git a/christmas-time-is-here.ly b/christmas-time-is-here.ly
new file mode 100644
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 0328571..7161a15 100644
--- 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