From 1bb615203ff424ec823e9c9934e0322fa636f11e Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Thu, 6 Oct 2016 21:41:37 +0200
Subject: circus: stick: Simplify sustain.

---
 03-circus/music/stick.ly | 109 ++++++++++++++++++++++++-----------------------
 1 file changed, 56 insertions(+), 53 deletions(-)

diff --git a/03-circus/music/stick.ly b/03-circus/music/stick.ly
index 8cea157..9a927a1 100644
--- a/03-circus/music/stick.ly
+++ b/03-circus/music/stick.ly
@@ -145,24 +145,27 @@ stickBeforeArpeggioLeft = \relative c, {
 }
 
 stickArpeggioLeft = \relative c, {
-  e8\sustainOn b' g' ~ g4. |
+  \mark \markup { \italic { Sustain throughout }}
+  e8 b' g' ~ g4. |
   e,8 b' g' ~ g4. |
   e,4. g'4. | r2. |
 
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
-  d,8 a' fis' ~ fis4.
+  d,8_\markup { \musicglyph #"scripts.thumb" \italic { = right hand thumb }} a'
+  fis'\thumb ~ fis4.
+  d,8 a'
+  fis'\thumb ~ fis4.
   d,2. ~ d2.
 
   %% repeat, but with more pathos!
-  e8\sustainOn b' g' ~ g4. |
+  e8 b' g' ~ g4. |
   e,8 b' g' ~ g4. |
   e,8 b' g' ~ g4. |
   e,8 b' g' ~ g4. |
 
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
 }
 
 stickBeforeArpeggioRight = \relative c' {
@@ -172,93 +175,93 @@ stickBeforeArpeggioRight = \relative c' {
 
 stickArpeggioRight = \relative c' {
   \time 3/4
-  r4.\sustainOn d,8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
+  r4. d,8 b' fis
+  r4. d8 b' fis
   d4 b' fis ~ | fis2.
 
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
   r2. r2.
 
   %% repeat, but with more pathos!
-  r4.\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
 }
 
 stickArpeggioLeftHigher = \relative c, {
   \time 3/4
-  e8\sustainOn b' g' ~ g4.
+  e8 b' g' ~ g4.
   e,8 b' g' ~ g4.
   e,8 b' g' ~ g4.
   e,8 b' g' ~ g4.
 
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
   d,8 a' fis' ~ fis4.
   d,8 a' fis' ~ fis4.
-  d,8 a' fis' ~ fis4.\sustainOff
+  d,8 a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
 }
 
 stickArpeggioRightHigher = \relative c' {
   \time 3/4
-  r4.\sustainOff\sustainOn d,8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis\sustainOff
+  r4. d,8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
 }
 
 stickArpeggioRightLonger = \relative c' {
   \time 3/4
-  r4.\sustainOn d,8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
+  r4. d,8 b' fis
+  r4. d8 b' fis
   d4 b' fis ~ | fis2.
 
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
   r2. r2. r2.
 
   %% repeat, but with more pathos!
-  r4.\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
-  r4.\sustainOff\sustainOn d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
+  r4. d8 b' fis
 }
 
 stickArpeggioLeftLonger = \relative c, {
-  e8\sustainOn b' g' ~ g4. |
+  e8 b' g' ~ g4. |
   e,8 b' g' ~ g4. |
   e,4. g'4. | r2. |
 
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
   d,8 a' fis' ~ fis4.
   d,2. ~ d2. ~ d2.
 
   %% repeat, but with more pathos!
-  e8\sustainOn b' g' ~ g4. |
+  e8 b' g' ~ g4. |
   e,8 b' g' ~ g4. |
   e,8 b' g' ~ g4. |
   e,8 b' g' ~ g4. |
 
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
-  d,8\sustainOff\sustainOn a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
+  d,8 a' fis' ~ fis4.
 }
 
 
-- 
cgit v1.2.3