From d1e3c47037ff937c7bc8b7ef6f971f571a581af2 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Mon, 23 Jan 2017 23:20:35 +0100
Subject: white noise: end of shifter is longer.

---
 04-white-noise/music/bass.ly  |  6 ++----
 04-white-noise/music/click.ly |  8 +++++++-
 04-white-noise/music/keys.ly  | 17 ++++++++++++++++-
 04-white-noise/music/stick.ly | 22 ++++++++++++++++++++--
 4 files changed, 45 insertions(+), 8 deletions(-)

(limited to '04-white-noise')

diff --git a/04-white-noise/music/bass.ly b/04-white-noise/music/bass.ly
index b0f0567..c9b1638 100644
--- a/04-white-noise/music/bass.ly
+++ b/04-white-noise/music/bass.ly
@@ -101,10 +101,8 @@ bassShifter = \relative fis,, {
   \time 4/4
   fis4 cis8 fis4 a gis8 |
   e r e8 r8 e r4. |
-
-  fis4 cis8 fis4 a gis8 |
-  \time 2/4
-  e r e8 r8 |
+  fis4 cis8 fis4 a4. |
+  gis4 e cis cis |
 }
 
 bassEnding = \relative fis,, {
diff --git a/04-white-noise/music/click.ly b/04-white-noise/music/click.ly
index d9efb9d..3eb1c49 100644
--- a/04-white-noise/music/click.ly
+++ b/04-white-noise/music/click.ly
@@ -88,7 +88,7 @@ click = \drummode {
   }
 
   %% shifter
-  \repeat unfold 4 {
+  \repeat unfold 3 {
     \time 4/4
     bd4 hh hh hh |
     bd4 hh hh hh |
@@ -96,6 +96,12 @@ click = \drummode {
     \time 2/4
     bd4 bd4 |
   }
+  \time 4/4
+  bd4 hh hh hh |
+  bd4 hh hh hh |
+  bd4 hh hh hh |
+  \time 4/4
+  bd4 bd4 bd4 bd4 |
 
   %% ending
   \time 4/4
diff --git a/04-white-noise/music/keys.ly b/04-white-noise/music/keys.ly
index 8d657b2..7607667 100644
--- a/04-white-noise/music/keys.ly
+++ b/04-white-noise/music/keys.ly
@@ -98,6 +98,21 @@ keysShifter = \relative c' {
   <fis, a,>4. cis'4 <cis fis,>4.    |
   \time 2/4
   <cis e,>4 <b e,>4 |
+
+  \key e \minor
+  \time 4/4
+  <g e>4. b'4 <e, b'>4.         |
+  <d b'>4 <d a'>4 d'8 r4.       |
+  <g,, e'>4. b'4 <e, b'>4.      |
+  \time 2/4
+  <d b'>4 <d a'>4 |
+
+  \key fis \minor
+  \time 4/4
+  <fis a,>4. cis'4 <cis fis,>4.    |
+  <cis e,>4 <b e,>4 e8 r4. |
+  <fis, a,>4. cis'4 <cis fis,>4.    |
+  <cis e,>4 <b e,>4 ~ <b e,>2 |
 }
 
 keysEnding = \relative c' {
@@ -151,7 +166,7 @@ keyboard = {
   \keysFast
   \keysToto
   \transpose c d {
-    \repeat unfold 2 \keysShifter
+    \keysShifter
     \keysEnding
   }
 }
diff --git a/04-white-noise/music/stick.ly b/04-white-noise/music/stick.ly
index 3cf93d8..77a3e81 100644
--- a/04-white-noise/music/stick.ly
+++ b/04-white-noise/music/stick.ly
@@ -179,6 +179,19 @@ stickShifterLeft = \relative c {
   fis8 a' fis, a' fis, a' fis, <fis a'> |
   \time 2/4
   <e gis'> r <e gis'> r |
+
+  \time 4/4
+  e8 g' e, g' e, g' e, <e g'> |
+  <d fis'> r <d fis'> r <d fis'> r4. |
+  e8 g' e, g' e, g' e, <e g'> |
+  \time 2/4
+  <d fis'> r <d fis'> r |
+
+  \time 4/4
+  fis8 a' fis, a' fis, a' fis, <fis a'> |
+  <e gis'> r <e gis'> r <e gis'> r4.   |
+  fis8 a' fis, a' fis, a' fis, <fis a'> |
+  <e gis'> r <e gis'> r r2 |
 }
 
 %% TODO
@@ -187,6 +200,11 @@ stickShifterRight = \relative c {
   \time 2/4 R4*2
   \time 4/4 R1*3
   \time 2/4 R4*2
+
+  \time 4/4 R1*3
+  \time 2/4 R4*2
+  \time 4/4 R1*3
+  \time 4/4 R1
 }
 
 
@@ -209,7 +227,7 @@ stickLeft = {
   \transpose c d { \stickTotoLeft }
   \stickTotoLeft
   \transpose c d {
-    \repeat unfold 2 \stickShifterLeft
+    \stickShifterLeft
   }
 }
 
@@ -231,7 +249,7 @@ stickRight = {
   \transpose c d { \stickTotoRight }
   \stickTotoRight
   \transpose c d {
-    \repeat unfold 2 \stickShifterRight
+    \stickShifterRight
   }
 }
 
-- 
cgit v1.2.3