From a0cbce54d5f2b910d715e90e61436fbb98191499 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Sun, 17 Apr 2016 22:09:06 +0200
Subject: white-noise: Add shifter part.

---
 04-white-noise/parts/bass.ly  | 33 +++++++++++++++++++++++++++++++++
 04-white-noise/parts/click.ly | 10 ++++++++++
 04-white-noise/parts/keys.ly  | 19 +++++++++++++++++++
 04-white-noise/parts/stick.ly | 26 ++++++++++++++++++++++++++
 4 files changed, 88 insertions(+)

(limited to '04-white-noise')

diff --git a/04-white-noise/parts/bass.ly b/04-white-noise/parts/bass.ly
index f41fc00..f5ba691 100644
--- a/04-white-noise/parts/bass.ly
+++ b/04-white-noise/parts/bass.ly
@@ -59,6 +59,39 @@ bassEleven = \relative fis,, {
   r f b g' ges c,4 f8 b, e-. ais,
 }
 
+bassShifter = \relative fis,, {
+  \key e \minor
+  \time 4/4
+  e1 ~ | e8 d2. dis8 | e1 ~ |
+  \time 7/8
+  e8 d2. |
+
+  \key fis \minor
+  \time 4/4
+  fis4 cis8 fis4 a gis8 ~ |
+  gis e r e r e r4        |
+  fis4 cis8 fis4 a gis8 ~ |
+  \time 7/8
+  gis e r e r e r8 |
+
+  \key e \minor
+  \time 4/4
+  e4 b8 e4 g fis8 ~ |
+  fis d r d8 r8 d r4 |
+  e4 b8 e4 g fis8 ~ |
+  \time 7/8
+  fis8 d r d8 r8 d cis |
+
+  \key fis \minor
+  \time 4/4
+  fis4 cis8 fis4 a gis8 ~ |
+  gis e r e8 r8 e r4 |
+
+  fis4 cis8 fis4 a gis8 ~ |
+  \time 7/8
+  gis8 e r e8 r8 e cis |
+}
+
 bass = {
   \set Staff.midiInstrument = #"electric bass (finger)"
   \clef "bass_8"
diff --git a/04-white-noise/parts/click.ly b/04-white-noise/parts/click.ly
index b258e61..62d9f88 100644
--- a/04-white-noise/parts/click.ly
+++ b/04-white-noise/parts/click.ly
@@ -79,4 +79,14 @@ click = \drummode {
     hh8 hh hh hh hh hh hh hh hh hh hh
   }
 
+  %% shifter
+  \repeat unfold 4 {
+    \time 4/4
+    bd4 hh hh hh |
+    bd4 hh hh hh |
+    bd4 hh hh hh |
+    \time 7/8
+    bd8 bd bd bd bd bd bd |
+  }
+
 }
diff --git a/04-white-noise/parts/keys.ly b/04-white-noise/parts/keys.ly
index ffacaa6..98b8541 100644
--- a/04-white-noise/parts/keys.ly
+++ b/04-white-noise/parts/keys.ly
@@ -73,6 +73,24 @@ keysEleven = \relative c' {
   r8 r4 r4 r4 r4 r4
 }
 
+keysShifter = \relative c' {
+  \key e \minor
+  \time 4/4
+  <g e'>4. b'4 <e, b'>4. ~       |
+  <e b'>8 <d b'>4 <d a'>4 d'8 r4 |
+  <g,, e'>4. b'4 <e, b'>4. ~     |
+  \time 7/8
+  <e b'>8 <d b'>4 <d a'>4 d'8 r8 |
+
+  \key fis \minor
+  \time 4/4
+  <fis, a,>4. cis'4 <cis fis,>4. ~    |
+  <cis fis,>8 <cis e,>4 <b e,>4 e8 r4 |
+  <fis, a,>4. cis'4 <cis fis,>4. ~    |
+  \time 7/8
+  <cis fis,>8 <cis e,>4 <b e,>4 e8 r8 |
+}
+
 keyboard = {
   \set Staff.midiInstrument = #"pad 3 (polysynth)"
   \set Staff.midiMinimumVolume = #0.4
@@ -107,5 +125,6 @@ keyboard = {
   \tempo 4 = 160
   \keysFast
   \repeat volta 2 \keysEleven
+  \repeat unfold 2 \keysShifter
 }
 
diff --git a/04-white-noise/parts/stick.ly b/04-white-noise/parts/stick.ly
index 3f6bf09..84f1d89 100644
--- a/04-white-noise/parts/stick.ly
+++ b/04-white-noise/parts/stick.ly
@@ -115,6 +115,28 @@ stickElevenRight = \relative c' {
   r8 r4 r4 r4 r4 r4
 }
 
+%% TODO
+stickShifterLeft = \relative c {
+}
+
+%% TODO
+stickShifterRight = \relative c {
+  \time 4/4
+  r8 e8 g' e, g' e, g' e,         |
+  g' fis e, fis' d, fis'4-. r8    |
+  r8 e,8 g' e, g' e, g' e,        |
+  \time 7/8
+  g' fis e, fis' d, fis'4-.       |
+
+  \time 4/4
+  r8 fis, a' fis, a' fis, a' fis, |
+  a' gis e, gis' e, gis'4-. r8    |
+  r8 fis, a' fis, a' fis, a' fis, |
+  \time 7/8
+  a' gis e, gis' e, gis'4-.       |
+}
+
+
 stickLeft = {
   \key fis \minor
   \clef "bass_8"
@@ -130,6 +152,9 @@ stickLeft = {
   \stickTransitionLeft
   \stickFastLeft
   \repeat volta 2 \stickElevenLeft
+
+  %% TODO: short transition
+  \repeat unfold 2 \stickShifterLeft
 }
 
 stickRight = {
@@ -146,6 +171,7 @@ stickRight = {
   \stickTransitionRight
   \stickFastRight
   \repeat volta 2 \stickElevenRight
+  \repeat unfold 2 \stickShifterRight
 }
 
 stick = \new PianoStaff <<
-- 
cgit v1.2.3