circus: bass: Stub out arpeggio section.

diff --git a/03-circus/music/bass.ly b/03-circus/music/bass.ly
index 007efe95797bceeaa7abe73dc69d8ca1d956e182..ce4a3099e9121bf27c5f31e0bda710a040529989 100644 (file)
--- a/03-circus/music/bass.ly
+++ b/03-circus/music/bass.ly
@@ -126,6 +126,53 @@ bassBeauty = \relative cis, {
   }
 }
 
+bassBeforeArpeggio = \relative c, {
+  \time 3/4
+  e,2. ~ | e2. ~ | e2. ~ | e2. |
+}
+
+bassArpeggio = \relative c, {
+  e2.  | e | e ~ | e4 e'-. b,-. |
+  d2.  | d | d, ~ | d |
+
+  e'2. | e | e | e' |
+  d,2. | d | d | d  |
+}
+
+bassArpeggioLonger = \relative c, {
+  e2.  | e | e | e' |
+  d,2. | d | d, ~ | d ~ | d |
+
+  e'2. | e | e | e' |
+  d,2. | d | d | d  |
+}
+
+
+bassArpeggioHigher = \relative c, {
+  e8 e e e e e | e e e e e e | e e e e e e | e e e e e e |
+  d  d d d d d | d d d d d d | d d d d d d | d d d d d d |
+}
+
+bassDrama = \relative c, {
+  \key b \minor
+  \time 3/4
+  \repeat unfold 2 {
+    e2 r4
+    e2 r4
+    e2 r4
+    e2 r4
+    b,2. ~ | b2. ~ | b2. ~ | b2. |
+  }
+}
+
+bassDramaEnding = \relative c, {
+  a2.  ~ | a   | a' ~ | a |
+  e,2. ~ | e ~ | e  ~ | e |
+}
+
+%% TODO
+bassFinal = {}
+
 bassMusic = {
   \set Staff.midiInstrument = #"electric bass (finger)"
   \set Staff.pedalSustainStyle = #'bracket
@@ -164,7 +211,20 @@ bassMusic = {
   \bassBeauty
 
   %% Arpeggio
-  %% TODO
+  \key e \minor
+  \bassBeforeArpeggio
+  \bassArpeggio
+
+  \key fis \minor
+  \transpose c d { \bassArpeggioHigher }
+  \bassDrama
+  \bassDramaEnding
+
+  \bassArpeggioLonger
+  \key fis \minor
+  \transpose c d { \bassArpeggioHigher }
+  \bassDrama
+  \bassFinal
 }
 
 bass = <<