From 674b37b10bfd5b63b0f18409850675a1646de102 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Thu, 6 Oct 2016 23:19:22 +0200
Subject: circus: bass: Stub out arpeggio section.

---
 03-circus/music/bass.ly | 62 ++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 61 insertions(+), 1 deletion(-)

(limited to '03-circus')

diff --git a/03-circus/music/bass.ly b/03-circus/music/bass.ly
index 007efe9..ce4a309 100644
--- 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 = <<
-- 
cgit v1.2.3