From fb64344876cf904e192efe6d4bce78fde43e6e81 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Sun, 22 Dec 2019 15:18:39 +0100
Subject: [PATCH] live: Add autotune

---
 live/anar.tidal     | 32 ++++++++++++++++++++++++++++++++
 live/autotune.tidal | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/home.tidal     | 61 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 167 insertions(+)
 create mode 100644 live/anar.tidal
 create mode 100644 live/autotune.tidal
 create mode 100644 live/home.tidal

diff --git a/live/anar.tidal b/live/anar.tidal
new file mode 100644
index 0000000..ea83da9
--- /dev/null
+++ b/live/anar.tidal
@@ -0,0 +1,32 @@
+setcps 1
+
+hush
+
+d1
+$ every 1 (# gain 4)
+$ every 1 (off 0.25 (|+ 1))
+$ every 1 (off 0.375 (|+ 1))
+$ every 2 (off 0.125 (|+ 1))
+$ s "ulgab"
+# gain 0
+
+d2
+$ every 3 (off 0.125 (|+ 0))
+$ every' 4 2 (off 0.25 (|+ 0))
+$ s "bd"
+
+d3
+$ slow 2
+$ every "<2,4>" (off 0.125 (|+ 7))
+$ every 2 (off 0.125 (|+ 7))
+$ s "superhammond"
+
+d4
+$ s "[bd]*3 <cp,sn>/2"
+
+d5
+$ every 4 (off (0.125 (|+ 5)))
+$ off (0 (|+ 7))
+$ every 4 (rev)
+$ s "superpiano*8"
+# up (run 8)
diff --git a/live/autotune.tidal b/live/autotune.tidal
new file mode 100644
index 0000000..b69ffd7
--- /dev/null
+++ b/live/autotune.tidal
@@ -0,0 +1,74 @@
+d1
+$ every 1 (off (8/16) (|+ 0))
+$ every 2 (off (9/16) (|+0))
+$ every 2 (off (10/16) (|+0))
+$ every 2 (off (14/16) (|+0))
+-- $ every 4 (off (15/16) (|+0))
+$ every' 4 3 (# pan 1)
+$ every' 4 4 (# pan 1)
+$ s "dr"
+-- $ every 1 (# s "~")
+
+d2 $ s "arpy" # note "<0 2 4 7>"
+
+d1
+-- $ every 2 (0.125 ~>)
+-- $ every 4 (off 0.125 (|+0))
+-- $ every' 8 7 (rev)
+-- $ every' 8 8 (# gain 0)
+-- $ every' 16 15 (# gain 0)
+-- $ every' 16 16 (off 0.25 (|+0))
+-- $ every 2 ""
+$ every 4 (degrade)
+$ every 4 (off 0.125 (|+0))
+$ every' 8 7 (sometimes $ hurry 2)
+$ s "house(4,4)"
+
+d2
+$ every 2 (rev)
+$ every' 4 3 (# gain "0 1")
+$ every' 8 6 (fast 2)
+$ s "dr*3 ~ dr*2 <~ <dr dr*2>>"
+
+once $ s "superpiano*8"
+# note ("0 2 4 5 7 9 11 12")
+-- Piano notes:
+-- do  -14 -7 0 07 14 21
+-- re  -13 -6 1 08 15
+-- mi  -12 -5 2 09 16
+-- fa  -11 -4 3 10 17
+-- sol -10 -3 4 11 18
+-- la  -09 -2 5 12 19
+-- si  -08 -1 13 20
+
+-- Main gauche:
+-- A B C D
+-- A: do1,do2
+-- B: la1,la2
+-- C: fa1,fa2
+-- D: fa2,fa3
+d3
+$ every 4 (off 0.125 (|+ n 0))
+$ every' 4 1 (off 0.125 (# note 5))
+$ every' 4 2 (off 0.125 (# note "<[0,3] [0,5]>"))
+$ every' 4 2 (off 0.5 (# note "<[0,3] [0,5]>"))
+$ s "superpiano" --todo remove last
+-- # note "[[0,7] [10,17] [5,12] [0,7]]"
+# velocity 0.6
+# note "[[-14,-7] [-2,5] [-11,-4] [-4,3]]"
+# sustain 2
+# pan 0
+
+-- Main droite:
+-- A B C D
+d4
+$ every 1 (off 0.25 (# note (-12)))
+$ every' 4 0 (# note (choose [2,7]))
+$ every' 4 1 (# note (choose [7,12]))
+$ every' 4 2 (# note (choose [5,10]))
+$ every' 4 3 (# note (choose [12,17]))
+$ euclid "<3 5 7 16>" 8
+$ s "superpiano"
+# note "[15,19]"
+# velocity 0.4
+# pan 1
diff --git a/live/home.tidal b/live/home.tidal
new file mode 100644
index 0000000..1d38b56
--- /dev/null
+++ b/live/home.tidal
@@ -0,0 +1,61 @@
+hush
+
+d2 $ s "arpy" # n (choose [0,3,5])
+
+d4 $ s "superhammond(<1,3>,8)"
+# n "[0 , 5] 0"
+# cut 1
+
+-- Drum sandbox
+
+d1
+$ every 2 (off 0.125 (|+0)) -- 1,3
+$ every 4 (off 0.25 (|+0)) -- 1
+$ every' 4 1 (off 0.125 (|+0)) -- 2
+$ every' 4 2 (off 0.375 (|+0)) -- 3
+$ every' 4 3 (off 0.25 (|+0)) -- 4
+$ every' 8 7 (# gain "0 0") -- Pont
+$ every' 8 8 (# gain "0 0") -- Pont
+$ s "<bd <[dr*4 ~]*2 ulgab>>"
+
+d1 $ s "[bd, dr*4] [~ dr*4] [~ <dr [cp ~]>]"
+
+d2
+$ every 2 (fast 2)
+$ every 4 (rev)
+$ every 4 (off 0 (|+ 7))
+$ s "bass3(<3 5 7 5>,8)"
+# crush 8
+# up ((chooseBy "0.8 0.2" [0,8]) + (run 8))
+
+d1
+-- $ every 6 (chunk 2 (rev))
+-- $ every' 6 1 (chunk 2 (rev))
+-- $ every' 8 7 (# gain 0)
+$ s "bd*2 [~ <cp>] <sn dr> dr*4"
+# n "0 <0 1> <1 2> 0"
+
+d2 $ s "[ ~ dr]" # n "1 0"
+
+d4
+$ every 2 (off 0.25 (+ 0))
+$ every' 2 1 (off 0.125 (+ 0))
+$ every 8 (# n "1 0")
+$ every 16 (# leslie 7)
+$ every 16 (# lrate 0.7)
+$ s "hh"
+
+d3
+$ fast 2
+$ every 2 (# up "[0,<5,7>]")
+$ every' 2 1 (off 0 (|- 7))
+$ every' 4 3 (slow 2)
+$ every' 4 3 (off 0.25 (|+ 0))
+$ every' 4 3 (# up "[0,5] [3,10?]")
+$ every 8 (# up "[-7,0] [0,5]")
+$ every 16 (rev)
+$ euclid 3 8
+$ jux (# velocity sine)
+$ s "superpiano"
+# velocity cosine --"0.8 0.5"
+# gain 0.8
--
libgit2 0.27.0