From 7d05a08db19de3ec2d583db54e434a7b09fed9b0 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Sat, 4 Jan 2020 15:00:26 +0100
Subject: [PATCH] Save session

---
 blocks/drums.tidal | 28 ++++++++++++++++++++++++++++
 blocks/voice.tidal |  3 +++
 copycat.tidal      |  8 ++++++++
 hello.tidal        | 98 +++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------------------
 4 files changed, 92 insertions(+), 45 deletions(-)
 create mode 100644 blocks/voice.tidal

diff --git a/blocks/drums.tidal b/blocks/drums.tidal
index 70b9bdb..e02912d 100644
--- a/blocks/drums.tidal
+++ b/blocks/drums.tidal
@@ -1,3 +1,31 @@
+setcps 0.8
+
+d1 $ "<dr <dr*2 dr?*8>>" # s ( choose ["hh", "dr"])
+
+d2 $ euclid "<1 3>" 8
+$ s "glitch"
+# n 1
+# gain (1 + rand)
+
+d9 $ "808bd:1"
+# gain 0.9
+
+d1
+$ every 2 (off (6/12) (|+0))
+$ every' 2 1 (off (3/12) (|+0))
+$ every' 4 1 (off (5/12) (|+0))
+$ every' 4 1 (off (6/12) (|+0))
+$ every' 8 6 (# n "2 0 0")
+$ every' 8 7 (# gain 0)
+$ s "dr"
+# n 0
+
+d2 $ s "dr*2 ~ dr  ~ dr*8"
+
+d1
+-- $ degrade
+$ s "dr dr dr dr dr dr sn ~ dr dr dr dr sn"
+
 d1
 $ every 1 (off (8/16) (|+ 0))
 $ every 2 (off (9/16) (|+0))
diff --git a/blocks/voice.tidal b/blocks/voice.tidal
new file mode 100644
index 0000000..b15eec5
--- /dev/null
+++ b/blocks/voice.tidal
@@ -0,0 +1,3 @@
+d1
+$ n "8 13 3 4 15 4 13 19"
+# s "alphabet*8"
diff --git a/copycat.tidal b/copycat.tidal
index 7ebb3b3..7899a0a 100644
--- a/copycat.tidal
+++ b/copycat.tidal
@@ -14,6 +14,14 @@ d2 $ s "<808bd 808cy 808hc 808ht 808lc 808lt 808mc 808mt 808oh 808sd 909 ~ ~>"
 
 -- TODO: Parov - Fusion, Klangwolke (Pt.2 pattern piano 2.15)
 
+-- Dre - Kush
+d1 $ s "bd ~ [bd*2]"
+
+. .. . . .
+
+
+
+
 -- Parov : Psychedelic jazz
 setcps 0.46
 
diff --git a/hello.tidal b/hello.tidal
index c5c46a8..18b435f 100644
--- a/hello.tidal
+++ b/hello.tidal
@@ -1,48 +1,3 @@
-setcps 0.1
-
-solo 2
-
-hush
-
-d1 $ s "<bd:14([3,5],8) <cp bd*2>>"
-
-d2 $ s "<amencutup*8>" # n (run 16)
-
-d1 $ s "dr_few bd(3,5) sn"
-
-d2 $ s "superpiano"
-
-d1 $ s "bd*2 sn bd*2 <cp bd,cp sn,cp cp*2>"
-
-d2 $ s "alphabet*2" # n "24 20"
-# shape 0.2 # gain 0.5
-
-d3 $ n "[0 5 <9,16> <5,12>]*2"
-# s "superpiano" # sustain 0.3
-
-d1 $ s "~ sn:1 ~ sn:1"
-
-d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]"
-
-d3 $ n (off 0.125 (|+7) $ off 0 (|+12) "1*2 <3 8> 5 8")
-# s "supermandolin"
-# gain 0.85
-
-d1 $ s "[<cp>](5,8)"
-
-d2 $ s "[808cy*24]/3 ~" # n "0 .. 23" # gain "1.5"
-
-d2 $ slow 4 $ chop "1" $ s "bev cp*4"
-
-d1 $ jux rev $ n
-(
-  off 0.125 (|+ 12)
-$ off 0.125 (|+ 7)
-  "<c*2 a(3,8) f(3,8,2) e*2>")
-# s "notes"
-# gain 0.5
--- # legato (0.5 + (rand / 2))
-
 -- Pattern add
 -- Structure 5:
 --  *1*
@@ -144,8 +99,61 @@ $ off 0.125 (|+ 7)
 -- 7 bass drum + static
 -- 8 tom sec
 
+-- 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
+
 -- Playground
 
+setcps 0.1
+
+solo 2
+
+hush
+
+d1 $ s "<bd:14([3,5],8) <cp bd*2>>"
+
+d2 $ s "<amencutup*8>" # n (run 16)
+
+d1 $ s "dr_few bd(3,5) sn"
+
+d2 $ s "superpiano"
+
+d1 $ s "bd*2 sn bd*2 <cp bd,cp sn,cp cp*2>"
+
+d2 $ s "alphabet*2" # n "24 20"
+# shape 0.2 # gain 0.5
+
+d3 $ n "[0 5 <9,16> <5,12>]*2"
+# s "superpiano" # sustain 0.3
+
+d1 $ s "~ sn:1 ~ sn:1"
+
+d2 $ s "[808bd*2 [~ bd*2] [~ bd bd ~] ~]"
+
+d3 $ n (off 0.125 (|+7) $ off 0 (|+12) "1*2 <3 8> 5 8")
+# s "supermandolin"
+# gain 0.85
+
+d1 $ s "[<cp>](5,8)"
+
+d2 $ s "[808cy*24]/3 ~" # n "0 .. 23" # gain "1.5"
+
+d2 $ slow 4 $ chop "1" $ s "bev cp*4"
+
+d1 $ jux rev $ n
+(
+  off 0.125 (|+ 12)
+$ off 0.125 (|+ 7)
+  "<c*2 a(3,8) f(3,8,2) e*2>")
+# s "notes"
+# gain 0.5
+-- # legato (0.5 + (rand / 2))
 hush
 
 setcps 0.5
--
libgit2 0.27.0