From 60e4076189744d8b8f7688d4feaec3bae9c658c8 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Fri, 13 Jan 2017 23:08:04 +0100
Subject: white noise: draft Toto part.

---
 04-white-noise/music/bass.ly  | 15 +++++++++++++++
 04-white-noise/music/click.ly |  9 +++++++++
 04-white-noise/music/keys.ly  | 15 +++++++++++++++
 04-white-noise/music/stick.ly | 20 ++++++++++++++++++++
 4 files changed, 59 insertions(+)

(limited to '04-white-noise')

diff --git a/04-white-noise/music/bass.ly b/04-white-noise/music/bass.ly
index 5fbe9aa..6d00ae9 100644
--- a/04-white-noise/music/bass.ly
+++ b/04-white-noise/music/bass.ly
@@ -60,6 +60,20 @@ bassFast = \relative fis,, {
   gis\2-3 gis\2-3 gis\2-3 gis\2-3 cis-.\1-3 r8 cis,4\3-1 |
 }
 
+%% TODO: rhythm is wrong
+bassToto = \relative fis,, {
+  \repeat volta 2 {
+    fis8 fis r4 r4. fis8 | e8 e r4 r2 |
+    fis2.. fis8 | e1 |
+  }
+
+  gis8 gis r4 r4. gis8 | fis8 fis r4 r2 |
+  gis2.. gis8 | fis1 |
+
+  fis8 fis r4 r4. fis8 | e8 e r4 r2 |
+  fis2.. fis8 | e1 |
+}
+
 bassShifter = \relative fis,, {
   \key e \minor
   \time 4/4
@@ -131,6 +145,7 @@ bassMusic = {
     \bassTransition
     \tempo 4 = 160
     \bassFast
+    \bassToto
     \transpose c d {
       \bassShifter
       \bassEnding
diff --git a/04-white-noise/music/click.ly b/04-white-noise/music/click.ly
index 89e2c93..d9efb9d 100644
--- a/04-white-noise/music/click.ly
+++ b/04-white-noise/music/click.ly
@@ -78,6 +78,15 @@ click = \drummode {
   bd4 bd bd bd |
   bd4 bd bd bd |
 
+  %% toto
+  \time 4/4
+  \repeat unfold 4 {
+    bd4 hh hh hh |
+    bd4 hh hh hh |
+    bd4 hh hh hh |
+    bd4 hh hh hh |
+  }
+
   %% shifter
   \repeat unfold 4 {
     \time 4/4
diff --git a/04-white-noise/music/keys.ly b/04-white-noise/music/keys.ly
index 03b3088..8d657b2 100644
--- a/04-white-noise/music/keys.ly
+++ b/04-white-noise/music/keys.ly
@@ -68,6 +68,20 @@ keysFast = \relative c'' {
   <d f gis>2 <cis f gis cis>4 r4 |
 }
 
+%% TODO: play actual chords
+keysToto = \relative c'' {
+  \repeat volta 2 {
+    fis8 fis r4 r4. fis8 | e8 e r4 r2 |
+    fis2.. fis8 | e1 |
+  }
+  \transpose c d {
+    fis8 fis r4 r4. fis8 | e8 e r4 r2 |
+    fis2.. fis8 | e1 |
+  }
+  fis8 fis r4 r4. fis8 | e8 e r4 r2 |
+  fis2.. fis8 | e1 |
+}
+
 keysShifter = \relative c' {
   \key e \minor
   \time 4/4
@@ -135,6 +149,7 @@ keyboard = {
   \keysTransition
   \tempo 4 = 160
   \keysFast
+  \keysToto
   \transpose c d {
     \repeat unfold 2 \keysShifter
     \keysEnding
diff --git a/04-white-noise/music/stick.ly b/04-white-noise/music/stick.ly
index a337118..3cf93d8 100644
--- a/04-white-noise/music/stick.ly
+++ b/04-white-noise/music/stick.ly
@@ -151,6 +151,20 @@ stickFastRight = \relative fis' {
   <gis\3-1 d'\2-2>8 q q q <eis\4-3 gis\3-1 cis\2-1>4-. r |
 }
 
+%% TODO: rhythm is wrong
+stickTotoLeft = \relative c {
+  <fis a'>1 | <e gis'> |
+  <fis a'>1 | <e gis'>1 |
+}
+
+%% TODO: fingering
+stickTotoRight = \relative fis'' {
+  fis8 cis4 a   gis8 a cis |
+  b e4 e, fis8 gis a |
+  fis4 a'8 gis fis cis4 e8 |
+  r1 |
+}
+
 stickShifterLeft = \relative c {
   \time 4/4
   e8 g' e, g' e, g' e, <e g'> |
@@ -191,6 +205,9 @@ stickLeft = {
   \stickSoloLeft
   \stickTransitionLeft
   \stickFastLeft
+  \repeat volta 2 \stickTotoLeft
+  \transpose c d { \stickTotoLeft }
+  \stickTotoLeft
   \transpose c d {
     \repeat unfold 2 \stickShifterLeft
   }
@@ -210,6 +227,9 @@ stickRight = {
   \stickSoloRight
   \stickTransitionRight
   \stickFastRight
+  \repeat volta 2 \stickTotoRight
+  \transpose c d { \stickTotoRight }
+  \stickTotoRight
   \transpose c d {
     \repeat unfold 2 \stickShifterRight
   }
-- 
cgit v1.2.3