more memorial

memorial.ly

@@ -16,6 +16,10 @@ global = {
   \numericTimeSignature
 }
 
+keyChange = {
+  \key c \major
+}
+
 right = {
   \global
   <<
@@ -46,10 +50,39 @@ right = {
   >>
 
   <<
-    { b'2 fs8 gs a gs   | fs4. e8 ds4 e16 gs ds' e | } \\
-    { e,4.    b8 ~ b2 ~ | b2. s4                   | }
+    { b'2 fs8 gs a gs   | fs4. e8 ds2 | } \\
+    { e4.    b8 ~ b2 ~ | b2. s4      | }
   >>
 
+  <<
+    { \grace { e16 gs } cs4. gs8     ~ gs b4.   | gs2           ~ gs8 ds gs4     | } \\
+    {                   gs4. <cs, e>8 ~ q  gs'4. | ds4. bs8 ~ bs4.           ds8 | }
+  >>
+
+  <<
+    { a'2 ~   a8   e a4   | fs2 ~    fs8 ds fs4 | } \\
+    { cs4. b8 cs4.     e8 | a,4.  a8 bs4    a4  |  }
+  >>
+
+  <<
+    { r2      <gs' gs'>4 <a a'> | } \\
+    { <gs, e'>2 s2                | }
+  >>
+
+  <b' b'>2 <fs fs'>4 <gs gs'> |
+  <a a'>2 <gs gs'>4 <fs fs'> |
+  <fs fs'>4. <e e'>8 <ds ds'>4 <e e'>8 <fs fs'> |
+  <e e'>4 <cs cs'>8 <b b'> <a a'> <b b'> <cs cs'> <e e'> ~ |
+  q4 <cs cs'>8 <b b'> <a a'> <b b'> <cs cs'> <e e'> |
+  <fs fs'>4. q8 ~ q8 q4. | <e b' e>2 <ds b' ds> |
+
+  <b e>4. <b e gs>8 ~ q2 |
+  <<
+    { a'4 \times 2/3 { a8 gs fs } gs2 } \\
+    { <b, e>4 q q2 }
+  >>
+
+  \keyChange
 }
 
 left = {
@@ -78,6 +111,25 @@ left = {
   a8 e' a2 e4 |
   e,8 b' e2 b4 |
   b8 fs' b2. |
+
+  cs,,8 gs' cs4 gs cs |
+  gs8 ds' gs4 ds gs |
+  a,8 e' a4 e a |
+  ds,,8 a' ds4 ds, a' |
+
+  e8 b' e b ~ b4 b |
+  b8 fs' b fs ~ fs4 fs |
+  fs,8 cs' fs cs ~ cs fs4 cs8 |
+  b8 fs' b2 fs4  |
+
+  a,8 e' a2. |
+  gs,8 e' gs2. |
+  fs,8 cs' fs2 cs4 |
+  b,8 fs' b2 b4 |
+
+  <e, e'>1 | q2 q2 |
+
+  \keyChange
 }
 
 highStrings = \new Staff \with {
@@ -99,9 +151,22 @@ highStrings = \new Staff \with {
     >>
 
     <<
-      { gs'2     a4 gs | fs e2 cs4 | b2 e8 gs cs gs | ds'2 e4 fs | } \\
-      { <cs, e>2 q     | <a cs>1   | <e gs>1        |   }
+      { gs'2     a4 gs | fs e2 cs4 | b2       e8 gs cs gs | ds'2 e4  fs | } \\
+      { <cs, e>2 q     | <a cs>1   | <e gs>2  b'4    e4   | fs2  gs4 b  | }
     >>
+
+    <<
+      { e4. cs8 e fs gs e | a4 gs8 fs gs2               | e1        | fs1 | } \\
+      { gs,1 ~              | gs2 ~        gs8 ds' cs bs | cs2 b?4 a | ds1 | }
+    >>
+
+    e2 gs4 a | b2 fs4 gs | a2 gs4 fs | fs4. e8 ds4 e8 fs |
+    e4 cs8 b a b cs e ~ | e4 cs8 b a b cs e |
+    fs2 gs4 a | b1 |
+
+    e,1 ~ | e |
+
+    \keyChange
   }
 }
 
@@ -121,7 +186,7 @@ brass = \new Staff \with {
 } {
   \clef treble \relative c {
     \global
-    \repeat unfold 8 r1
+    \repeat unfold 32 r1
   }
 }