From a5196859a3fdd56824144ef4a298a0b580a2ffdc Mon Sep 17 00:00:00 2001
From: Shamus Hammons <jlhamm@acm.org>
Date: Thu, 13 Mar 2014 11:48:18 -0500
Subject: [PATCH] Added Moonlight Sonata 2nd movement.

---
 .gitignore       |   3 +
 moonlight-2nd.ly | 430 +++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 433 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 moonlight-2nd.ly

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..02268b2
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,3 @@
+*.pdf
+covers/*.pdf
+covers/*.gif
diff --git a/moonlight-2nd.ly b/moonlight-2nd.ly
new file mode 100644
index 0000000..327e8bd
--- /dev/null
+++ b/moonlight-2nd.ly
@@ -0,0 +1,430 @@
+\version "2.16.0"
+\language "english"
+
+\header
+{
+  title = "Sonata Una Quasi Fantasia"
+  subtitle = "Second Movement"
+  composer = "L. V. Beethoven"
+  meter = "Allegretto"
+}
+
+%paperOFF = { \set Score.skipTypesetting = ##t }
+%paperON = { \set Score.skipTypesetting = ##f }
+
+barRest =  { s2. }
+
+
+playRH =  \relative d''
+{
+	\clef treble
+	\key bf \minor
+	\time 3/4
+
+	\partial 1 <df-5 af-1>4 ( | % 0
+
+	<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
+
+	\repeat volta 2
+	{
+		\partial 1 <df-5 f,-2>4-.
+		<df f,-1>2-- <df f,-2>4 | % 17
+		<< { df4-5 ( c-3 ) } \\ { ef,2-1 } >> <cf'-5 ef,-2>4-. | % 18
+                <cf-- ef,-1>2 <cf ef,-2>4 | % 19
+                << { cf4 ( bf-3 ) } \\ { df,2-1 } >> <bf'-4 df,>4 ( | % 20
+                <c-5 gf-2>2 <df-4 f,-1>4 | % 21
+                <ef gf,>2 ) <gf,-4 ef-2>4 ~ ( | % 22
+                <gf ef>4 <f df> << { bf8 gf-4 } \\ { bf,4 } >> | % 23
+                <f' df>4 <ef c> ) <df' df,> ( | % 24
+                <c c,>2 <bf-4 bf,>4 | % 25
+                <ef ef,>4 ) r << { df-5 ~ ( } \\ { f,-. } >> | % 26
+                << { df'4 c ) bf ~ ( } \\ { af-. r g-. } >> | % 27
+                << { bf4 af ) } \\ { s2 } >> <gf' gf,>4 ( | % 28
+                <f f,>2 <ef ef,>4 | % 29
+                <af af,>4 ) r <gf gf,> ~ ( | % 30
+                <gf gf,>4 <f f,> ) <ef ef,>-. | % 31
+                <af af,>4-. r <gf-4 gf,> ~ ( | % 32
+                <gf gf,>4 <f f,> ) <bf-5 bf,> ~ ( | % 33
+                <bf bf,>4 <af-4 af,> ) r | % 34
+                << { c,,2-3 ( ef8-5 [ df-4 ] } \\ { gf,2. ( } >> | % 35
+                \partial 2 << { df'4-3 ) } \\ { f, ) } >> r % 36
+	}
+	\repeat volta 2
+	{
+                \partial 1 <f'-5 f,>4 ~
+                <f f,>2 <gf-4 gf,>4 ~ | % 37
+                <gf gf,>2 <ef'-4 ef,>4 ~ ( | % 38
+                <ef ef,>4 <c-5 c,> ) <af-5 af,>-. | % 39
+                <df-4 df,>4 ( <f f,> ) <f, f,> ~ | % 40
+                <f f,>2 <gf gf,>4 ~ | % 41
+                <gf gf,>2 <gf'-4 gf,>4 ~ ( | % 42
+                <gf gf,>4 <bf-5 bf,> ) <c, c,>-. | % 43
+                \partial 2 <ef-4 ef,>4 ( <df-3 df,> ) % 44
+        }
+	\repeat volta 2
+	{
+                \partial 1 <f f,>4 ~
+                <f f,>2 <bf,-4 bf,>4 ~ | % 45
+                <bf bf,>2 <ef ef,>4 ~ | % 46
+                <ef ef,>2 <af,-4 af,>4 ~ | % 47
+                <af af,>2 <df-5 df,>4 ~ | % 48
+                <df df,>2 <gf,-4 gf,>4 ~ | % 49
+                <gf gf,>2 <f f,>4 ~ ( | % 50
+                <f f,>4 <af af,> <cf cf,> ~ | % 51
+                <cf cf,>4 <bf bf,> ) <df df,> ~ ( | % 52
+                <df df,>2 \clef bass <gf, gf,>4 ~ | % 53
+                <gf gf,>2 <f f,>4 ~ | % 54
+                <f f,>2 <e e,>4 ~ | % 55
+                <e e,>2 ) <f f,>4 ~ ( | % 56
+                <f f,>2 <gf gf,>4 ~ | % 57
+                <gf gf,>2 ) <f f,>4 ~ ( | % 58
+                <f f,>4 <gf gf,> ) <c, c,>-. | % 59
+                \partial 2 <df df,>4-. r \clef treble % 60
+        }
+
+	\partial 1 <df' af>4 (
+
+	<c af>2 <bf g>4 | % 61
+	<ef af,>-. ) r <df f,>-. | % 62
+	<c af>4-. r <bf g>-. | % 63
+	af4-. r <gf' df> ( | % 64
+	<f df>2 <ef c>4 | % 65
+	<af df,>4-. ) r <gf bf,>-. | % 66
+	<f df>4-. r <ef c>-. | % 67
+	df4-. r <df df,> ( ~ | % 68
+
+	<df df,>4 <c c,> ) << { bf ~ ( } \\ { bf,-. } >> | % 9
+	<< { bf'4 ef ) df ( } \\ { ef,4-. r f-. } >> | % 10
+	<< { df'4 c ) bf ~ ( } \\ { af-. r g-. } >> | % 11
+	<< { bf4 af ) } \\ { 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 ~ ( } \\ { df-. r c-. } >> | % 15
+	<< { ef4 df ) } \\ { s2 } >> <df f,-2>4-. | % 
+
+        <df f,-1>2-- <df f,-2>4 | % 17
+        << { df4 ( c-3 ) } \\ { ef,2 } >> <cf' ef,-2>4-. | % 18
+        <cf-- ef,-1>2 <cf ef,-2>4 | % 19
+        << { cf4 ( bf-3 ) } \\ { df,2-1 } >> <bf'-4 df,>4 ( | % 20
+        <c gf>2 <df f,>4 | % 21
+        <ef gf,>2 ) <gf, ef>4 ~ ( | % 22
+        <gf ef>4 <f df> << { bf8 gf } \\ { bf,4 } >> | % 23
+        <f' df>4 <ef c> ) <df' df,> ( | % 24
+        <c c,>2 <bf bf,>4 | % 25
+        <ef ef,>4 ) r << { df ~ ( } \\ { f,-. } >> | % 26
+        << { df'4 c ) bf ~ ( } \\ { af-. r g-. } >> | % 27
+        << { bf4 af ) } \\ { s2 } >> <gf' gf,>4 ( | % 28
+        <f f,>2 <ef ef,>4 | % 29
+        <af af,>4 ) r <gf gf,> ~ ( | % 30
+        <gf gf,>4 <f f,> ) <ef ef,>-. | % 31
+        <af af,>4-. r <gf gf,> ~ ( | % 32
+        <gf gf,>4 <f f,> ) <bf bf,> ~ ( | % 33
+        <bf bf,>4 <af af,> ) r | % 34
+        << { c,,2 ( ef8 [ df ] } \\ { gf,2. ( } >> | % 35
+        << { df'4 ) } \\ { f, ) } >> r r \bar "|." % 36
+}
+
+playDyn =
+{
+	\partial 1 s4\p
+	\barRest |
+	s4 s s\pp |
+	\barRest |
+	s4 s s\p |
+	\barRest |
+	s4 s s\pp |
+	\barRest |
+	s4 s s\mf |
+	\barRest |
+	s4 s s\p |
+	\barRest |
+	s4 s s\mf |
+	\barRest |
+	s4 s s\p |
+	\barRest |
+	\barRest |
+	\barRest |
+	\barRest |
+	\barRest |
+        s4 s s\cresc |
+     	\barRest |
+        s4\sf s s\> |
+        s4\p s2 |
+        s2 s4\mf |
+	\barRest |
+        s2 s4\p |
+	\barRest |
+        s2 s4-\markup { \italic { dolce } } |
+	\barRest |
+        s2 s4\< |
+        s4 s\! s\> |
+        s8 s\! s4 s\cresc |
+        s2 s4\sf |
+	\barRest |
+        s4\p s2 |
+        s2 s4\f |
+        s4\fp s s\sf |
+        s2 s4\sf |
+        s4\> s\! s |
+        s4\p s s\sf |
+        s4\fp s s\sf |
+        s2 s4\sf |
+        s4\> s s\p |
+        s2 s4\pp |
+	\barRest |
+	\barRest |
+	\barRest |
+	\barRest |
+        s4\fp s s |
+	\barRest |
+        s8\< s s4\! s\> |
+        s4 s\! s |
+        s4\fp s s |
+	\barRest |
+	\barRest |
+	\barRest |
+        s4\cresc s s |
+	\barRest |
+        s4\p s s\pp |
+
+        s2 s4-\markup { \italic { dolce } } |
+	s4\< s s |
+        s8 s\! s4 s\p |
+	\barRest |
+	\barRest |
+	\barRest |
+        s4 s s\p |
+	\barRest |
+        s4 s s\mf |
+	\barRest |
+        s4 s s\p |
+	\barRest |
+        s4 s s\mf |
+	\barRest |
+        s4 s s\p |
+	\barRest |
+	\barRest |
+        s4\< s s\! |
+        s4\> s s\! |
+	\barRest |
+        s4 s s\cresc |
+	\barRest |
+        s4\sf s s\> |
+        s4\p s s |
+        s4 s s\p |
+	\barRest |
+        s4 s s\pp |
+	\barRest |
+        s4 s s-\markup { \italic { dolce } } |
+	\barRest |
+        s4 s s\< |
+        s4 s s |
+        s4\p s s\cresc |
+        s4 s s\sf |
+        s4 \> s s\pp |
+
+%{
+                                % 5 - 8
+    s4\p s s s |
+    \barRest |
+    \barRest |
+    \barRest |
+                                % 9 - 12
+    s4\pp s s s |
+    \barRest |
+    \crescTextCresc
+    \override DynamicLineSpanner #'staff-padding = #5
+    s4 s s\< s |
+    s s s s\! |
+
+                                % 13
+    \barRest |
+%}
+}
+
+playLH =  \relative f'
+{
+	\clef bass
+	\key bf \minor
+	\time 3/4
+
+
+	\partial 1 f4-1 ( | % 1
+
+	ef2 df4 | % 2
+	c4-.-1 ) r <bf-2 df,-5>-. | % 3
+	<ef ef,>4-. r <df ef,>-. | % 4
+	<c af>4-. r \clef treble bf'-1 ( | % 5
+	af2 gf4 | % 6
+	f4-.-1 ) r <ef-2 gf,>-. | % 7
+	<af af,>4-. r <gf af,>-. | % 8
+	<f df>4-. r \clef bass <af,-2 f-3> ( | % 9
+
+	<af-1 ef-4>2 <g-2 df-5>4 | % 10
+	<c c,>4 ) r <bf df,>-. | % 11
+	<ef ef,>4-. r <df ef,>-. | % 12
+	<c af>4-. r <df-2 bf-3> ( | % 13
+	<df-1 af-4>2 <c gf>4 | % 14
+	<f f,>4 ) r <ef gf,>-. | % 15
+	<af af,>4-. r <f af,>-. | % 16
+	\partial 2 <f df>-. r | % 17
+
+	\partial 1 df4-2 ( | % 18
+	bf2 af4 | % 19
+	g-5 af-4 ) af-.-3 | % 20
+        af2-2 ( gf4 | % 21
+        f4-4 gf-3 ) gf-2 ( | % 22
+        <af ef>2-3 <af df,>4 | % 23
+        <af c,>2. ) | % 24
+        <af df,-3>2 ( << { gf8 ef } \\ { gf,4 } >> | % 25
+        <af' af,>2 ) <af-1 f-2>4 ( | % 26
+
+        <af ef>2 <g df>4 | % 27
+        <c c,>4 ) r <bf-2 df,>-. | % 28
+        <ef ef,>4-. r <df ef,> | % 29
+        <c af>4-. r <df-1 bf-2> ( | % 30
+        <df af>2 <c gf>4 | % 31
+        <df f,>4 ) r <df bf> ( | % 32
+        <df af>2 ) <c-1 gf-4>4-. | % 33
+        <df-2 f,-5>4-. r <df bf> ( | % 34
+        <df af>2 ) <e df g,>4-> ( | % 35
+        <f df af-4>4 ) r r | % 36
+        <af,, af,>2. ( | % 37
+        \partial 2 <af df,>4 ) r | % 38
+
+        \partial 1 r4
+        << { af2. ~ } \\ { df,2.-5 } >> | % 39
+        << { af'2. ~ } \\ { ef2. } >> | % 40
+        << { af2. ~ } \\ { gf2. } >> | % 41
+        << { af2. } \\ { f2.-3 } >> | % 42
+        << { af2. ~ } \\ { df,2.-4 } >> | % 43
+        << { af'2. ~ } \\ { ef2. } >> | % 44
+        << { af2  af4 ~ } \\ { af,2 af'4 } >> | % 45
+        \partial 2 << { af2 } \\ { df, } >> | % 46
+
+        \partial 1 r4
+        <af''-1 d,-2>2. ( | % 47
+        <g-1 df-3>2. | % 48
+        <gf-1 c,-4>2. | % 49
+        <f-1 c-5> 2. ) | % 50
+        << { df2.-2 ~ } \\ { bf2.-3 } >> | % 51
+        << { df2.-1 ~ } \\ { af2. } >> | % 52
+        << { df2. ~ } \\ { df,4 ( f af } >> | % 53
+        << { df2. } \\ { gf,2. ) } >> | % 54
+        << { df'2. ~ } \\ { bf2.-2 ( } >> | % 55
+        << { df2. ~ } \\ { af2. } >> | % 56
+        << { df2. ~ } \\ { g,2. } >> | % 57
+        << { df'2. } \\ { af2. ) } >> | % 58
+        << { df2.-> ~ } \\ { bf2. ( } >> | % 59
+        << { df2. } \\ { af2.) } >> | % 60
+        << { af2 af4-. } \\ { af,2 s4 } >> | % 61
+        \partial 2 << { df4-. r } \\ { df4 s } >> % 62
+
+	\partial 1 f''4 (
+
+	ef2 df4 | % 63
+	c4-. ) r <bf df,>-. | % 64
+	<ef ef,>4-. r <df ef,>-. | % 65
+	<c af>4-. r \clef treble bf' ( | % 66
+	af2 gf4 | % 67
+	f4-. ) r <ef gf,>-. | % 68
+	<af af,>4-. r <gf af,>-. | % 69
+	<f df>4-. r \clef bass <af, f> ( | % 70
+
+	<af ef>2 <g df>4 | % 10
+	<c c,>4 ) r <bf df,>-. | % 11
+	<ef ef,>4-. r <df ef,>-. | % 12
+	<c af>4-. r <df bf> ( | % 13
+	<df af>2 <c gf>4 | % 14
+	<f f,>4 ) r <ef gf,>-. | % 15
+	<af af,>4-. r <f af,>-. | % 16
+	<f df>-. r df4-2 ( | % 18
+
+        bf2-3 af4 | % 19
+	g-5 af-4 ) af-.-3 | % 20
+        af2-2 ( gf4 | % 21
+        f4-4 gf-3 ) gf-2 ( | % 22
+        <af ef>2-3 <af df,>4 | % 23
+        <af c,>2. ) | % 24
+        <af df,>2 ( << { gf8 ef } \\ { gf,4 } >> | % 25
+        <af' af,>2 ) <af f>4 ( | % 26
+
+        <af ef>2 <g df>4 | % 27
+        <c c,>4 ) r <bf df,>-. | % 28
+        <ef ef,>4-. r <df ef,> | % 29
+        <c af>4-. r <df bf> ( | % 30
+        <df af>2 <c gf>4 | % 31
+        <df f,>4 ) r <df bf> ( | % 32
+        <df af>2 ) <c gf>4-. | % 33
+        <df f,>4-. r <df bf> ( | % 34
+        <df af>2 ) <e df g,>4-> ( | % 35
+        <f df af>4 ) r r | % 36
+        <af,, af,>2. ( | % 37
+        <af df,>4 ) r r | % 38
+}
+
+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"
+        }
+    }
+}
-- 
2.37.2