From 4c421462dbbcff8db3d7ebe6bf3412282ba47711 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Sat, 4 Jan 2020 16:13:33 +0100
Subject: [PATCH] Technotuto, chill wip

---
 blocks/melody.tidal       |  9 +++++++++
 live/anar.tidal           |  1 -
 live/chill.tidal          | 13 +++++++++++++
 tutorial/technotuto.tidal | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 84 insertions(+), 1 deletion(-)
 create mode 100644 blocks/melody.tidal
 create mode 100644 live/chill.tidal
 create mode 100644 tutorial/technotuto.tidal

diff --git a/blocks/melody.tidal b/blocks/melody.tidal
new file mode 100644
index 0000000..e46acd8
--- /dev/null
+++ b/blocks/melody.tidal
@@ -0,0 +1,9 @@
+
+d2
+$ whenmod 8 6 (# gain 0)
+$ every' 16 12 (# speed 0.75)
+$ every' 16 13 (# speed 0.5)
+$ every' 8 6 rev
+$ s "<arpy*8 ~>"
+# n (run 8)
+# gain 0.8
diff --git a/live/anar.tidal b/live/anar.tidal
index ea83da9..a2abceb 100644
--- a/live/anar.tidal
+++ b/live/anar.tidal
@@ -8,7 +8,6 @@ $ 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))
diff --git a/live/chill.tidal b/live/chill.tidal
new file mode 100644
index 0000000..2c39976
--- /dev/null
+++ b/live/chill.tidal
@@ -0,0 +1,13 @@
+-- Chill hop beat?
+d1 $ s "lighter:1" # n (irand 32)
+# gain 1.1
+
+d3 $ chop 1 $ s "lighter:1"
+
+d1 $ s "<dr dr*2> <hh hh hh ~>"
+
+d5
+$ slow 2
+$ n "<0 3>/8"
+# s "toys"
+# gain 0.8
diff --git a/tutorial/technotuto.tidal b/tutorial/technotuto.tidal
new file mode 100644
index 0000000..5e76801
--- /dev/null
+++ b/tutorial/technotuto.tidal
@@ -0,0 +1,62 @@
+-- From https://tidalcycles.org/index.php/Tutorial#Shifting_Time
+
+setcps 1
+
+d1
+$ sometimes (hurry 2)
+$ sometimes (off 0.5 (+ 0))
+$ every 4 (0.25 ~>)
+$ whenmod 16 14 (# gain 0)
+$ fast 2
+$ s "reverbkick"
+# pan 0.2
+# gain 0.8
+
+d2
+$ whenmod 16 13 (# gain 0.7)
+$ every' 16 15 (fast 2)
+$ every 16 (# gain 0.7)
+$ every 16 (hurry 2)
+$ fast 2
+$ s "hardkick:3"
+# gain 0.5
+# pan 0.8
+
+d3
+$ sometimesBy 0.2 (jux rev)
+$ up "1(<2 <6 0>>,8)"
+# s "glitch2"
+# n 6
+
+d4
+$ degradeBy 0.3
+$ sometimesBy 0.2 (jux rev)
+$ sometimes (off 0 (# up 2))
+$ sometimes (off 0 (# up 5))
+$ rev
+$ chop 8 $ s "moan"
+# crush 5
+# pan (rand)
+# gain 0.6
+
+d5
+$ slow 2
+$ n "<0 3>/8"
+# s "toys"
+
+-- Tuto area
+
+d1 $ every 8 (rev) $ every 4 (density 2) $ sound "bd hh sn cp"
+
+d1 $ whenmod 16 14 (# speed "2") $ sound "bd arpy*2 cp bass2"
+
+d1 $ whenmod 8 6 (const $ sound "arpy(3,8) bd*4") $ sound "bd sn bass2 sn"
+d1 $ every 12 (const $ sound "bd*4 sn*2") $ sound "bd sn bass2 sn"
+
+-- Composing Multi-Part Patterns
+
+d1 $ every 4 (slow 2) $ whenmod 5 3 (# speed "0.75 1.5") $ stack [
+ sound "bd bd*2",
+ sound "hh*2 [sn cp] cp future*4",
+ sound (samples "arpy*8" (run 16))
+] # speed "[[1 0.8], [1.5 2]*2]/3"
--
libgit2 0.27.0