white-noise: Add shifter part.

diff --git a/04-white-noise/parts/bass.ly b/04-white-noise/parts/bass.ly
index f41fc005941d7d529f39f5e33860ad5066637ee3..f5ba6917a266347381c789b4a1a5cd8b46603693 100644 (file)
--- 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 b258e61c2e782e0618b332c0d3c354d1aae8e7b5..62d9f88fe497efe1e338cfca65d5c1e6485a11c0 100644 (file)
--- 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 ffacaa6bfc06a51a27f9b3afde7d4eb349db7339..98b8541d285f7daf88c6a26129b3d0d35f178237 100644 (file)
--- 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 3f6bf0961fa9bde71279e6e6ca1380e7fcc6b7b2..84f1d89e49693a3337e7ed49dfb53b7738facd36 100644 (file)
--- 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 <<