From 8d573b67601805b965f8fc9a593077ae72cb1c81 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Fri, 6 Mar 2020 00:07:43 +0100
Subject: [PATCH] Thursday: Experience Vertige

---
 live/fusion/mad_piano.tidal          | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/techno/experience_vertige.tidal | 76 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 notes.md                             |  3 ++-
 tools/mute.tidal                     |  2 ++
 4 files changed, 146 insertions(+), 1 deletion(-)
 create mode 100644 live/fusion/mad_piano.tidal
 create mode 100644 live/techno/experience_vertige.tidal

diff --git a/live/fusion/mad_piano.tidal b/live/fusion/mad_piano.tidal
new file mode 100644
index 0000000..b14f199
--- /dev/null
+++ b/live/fusion/mad_piano.tidal
@@ -0,0 +1,66 @@
+setcps 0.45
+
+d1 -- beat
+$ whenmod 16 12 (# silence)
+$ superimpose (# s "kick:9")
+$ s "b b . <~ b ~ b> ~. <~ ~ ~ b> ~ . ~"
+-- $ s "[b b] ~ [~ ~ ~ ~] ~"
+# s "bd"
+# gain 0.95
+
+d2
+$ whenmod 16 12 (# silence)
+$ s "~ <~ s?> [s s?] ~"
+# s "sn"
+# n (wchoose [(1,2), (1,3), (3,4), (1,5)])
+
+d3 -- drumroll
+$ whenmod 16 12 (# n 1)
+$ s "d d . d d . d d . <[d <d d?>] [d*2 d*2]>"
+# s "dr"
+# gain 1.2
+
+d4 -- main gauche
+$ whenmod 16 15 (# gain "0 . 0 . [0 . 1] . 1")
+-- $ whenmod 16 12 (# gain 0)
+$ every 4 (superimpose ((|+ note "12")))
+$ superimpose ((|+ note "5"))
+$ every' 8 7 (|> note ("0 . 0 . ~ . 0 . ~ . 0 . [0 <-2 3>] . [0 <-2 3>] "))
+$ every' 8 3 (# note 12) -- FIXME: le projet c'etait pas une mononote, plutot une variation
+$ note "0 . 0 . 0 . 0 . 0 . 0 . [0 <-2 3>] . ~ "
+|- note 12
+# s "superpiano"
+# velocity (slow 16 $ sine * 0.4 + 0.4)
+# sustain 0.5
+
+d5 -- main droite
+$ whenmod 16 15 (# gain "0 0 1 1")
+$ whenmod 16 12 (# silence)
+$ whenmod 16 8 (# gain 1)
+$ whenmod 16 7 (# gain 0.8)
+$ whenmod 16 0 (# gain 0)
+$ degrade
+$ superimpose (|+ note 12)
+$ (off (1/4) (|+ note "<[-3,<-6, 2>?] 0>") . (swing 3))
+$ note "8*4"
+# s "superpiano"
+|+ note 12
+# sustain 0.6
+# velocity 1
+
+d6
+$ whenmod 16 8 (# gain 0.7)
+$ sometimesBy (slow 64 $ sine * 0.9) (chop 4 . (# crush 5)) -- var chopped crush
+$ sometimesBy "<0 <0 0 0 0.5>>" (0.125 ~>) -- variations retard
+$ off 0.25 (|+ note "<-12 ~>")
+$ note        "<0 <8 8 8 [8 7 [5 3] <7 8>]>>"
+# s "superhoover"
+# gain 0.6
+
+d7 -- scratch!
+$ whenmod 8 5 (# gain 1.2)
+$ whenmod 8 0 (# gain 0)
+$ sometimes (hurry 2)
+$ sometimes (0.125 ~>)
+$ sometimes (off 0.5 (|+ 0))
+$ s "[dr:3?,dr:4?]*<2 4 8 8>"
diff --git a/live/techno/experience_vertige.tidal b/live/techno/experience_vertige.tidal
new file mode 100644
index 0000000..b48965c
--- /dev/null
+++ b/live/techno/experience_vertige.tidal
@@ -0,0 +1,76 @@
+setcps 0.5
+
+d1
+$ sometimesBy "0 0 0 0.8" (off 0.125 (|+ 0))
+$ s "k*4"
+# s "kick:4"
+
+d1
+$ fast 4
+$ every' 16 15 (# gain 0)
+$ every' 8 7 (0.25 ~>)
+$ whenmod 8 6 (sometimes (off 0.5 (|+ 0)))
+$ s "kick:4"
+-- # gain 0.7
+
+d1
+$ every' 16 15 (# gain 0)
+$ every' 8 7 (0.25 ~>)
+$ sometimes (off 0.5 (|+ 0))
+$ euclid 5 8
+$ s "kick:4"
+# gain 0.9
+
+d2
+$ fast "<2 4> <8 16>"
+$ s "d"
+# s "dr"
+# gain 0.75
+# pan (slow 16 $ sine / 2)
+# room (slow 32 $ sine * 0.7 + 0.1)
+# size 0.5
+-- # dry (slow 64 $ cosine)
+
+d4 -- FIXME INAUDIBLE
+$ s "~ ~ c ~"
+# s "clapElectro"
+
+d5 -- chopped bass
+$ chop (slow 4 $ "<<1 4> 2>")
+$ stut 4 0.5 0.125
+$ (# crush ("<6,0.05 .. 0>"))
+$ note  "[7|0] [0|7] <0 [12|0]>"
+# s "bassWarsaw"
+# gain 0.7
+|- note 24
+
+d6 -- continuous laser
+-- $ rev
+$ s "bd" >| speed (
+  segment 100 $
+  range (slow 8 $ cosine * 50)
+        (slow 8 $ "<20 30 40 50 40 30 20>")
+  saw
+)
+# gain (slow 32 $ sine * 0.3 + 0.6)
+|- note "[<12 ~>,24,<-12 -12?>]"
+
+d5 -- basse moog weird
+$ whenmod 16 8 rev
+$ every 8 (degrade)
+$ every 4 (degrade)
+$ every 2 (degrade)
+$ note "0 7 <12 7 5 12>"
+# s "moog"
+# gain 0.75
+
+d7 -- forks!
+$ whenmod 64 32 (fast 2)
+$ whenmod 32 26 (degradeBy 0.2)
+$ whenmod 32 24 (|> note (scale "aeolian" (run 8)))
+$ superimpose (|+ note (slow 4 $ "<5 3> 5"))
+$ euclid "[<3 3?>,5?]" 8
+$ s "s"
+# s "superfork"
+# room 0.5
+|- note 12
diff --git a/notes.md b/notes.md
index ef01e10..36c9d99 100644
--- a/notes.md
+++ b/notes.md
@@ -13,7 +13,8 @@
 -- 2 semi-dry drum
 -- 3 semi-dry bouncy drum
 -- 4 loud, longer bounce bass
--- 4 loud bass
+-- 5 loud bass
+
 
 -- "808cy" Cymbal
 -- 0-8: More and more echo
diff --git a/tools/mute.tidal b/tools/mute.tidal
index 3f1c89a..26681aa 100644
--- a/tools/mute.tidal
+++ b/tools/mute.tidal
@@ -7,3 +7,5 @@ mute 6
 mute 7
 mute 8
 mute 9
+mute 10
+mute 11
--
libgit2 0.27.0