From 4a8146f25a19a85108a538fb60a40972341285b9 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Sat, 29 Feb 2020 16:27:47 +0100
Subject: [PATCH] Back to school

---
 blocks/drums.tidal             | 27 +++++++++++++++++++++------
 blocks/melody.tidal            |  7 +++++++
 copycat/resistance.tidal       |  4 ++++
 live/bogbog.tidal              |  5 +++++
 live/chill/powder_asmr.tidal   | 10 ++++++++++
 live/etienne.tidal             | 17 +++++++++++++++++
 live/francesca.tidal           | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/friday_feb.tidal          | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 live/hardcore/anar.tidal       | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/hip/hop.tidal             | 23 +++++++++++++++++++++++
 live/hip/roll.tidal            | 35 +++++++++++++++++++++++++++++++++++
 live/quantum.tidal             | 17 +++++++++++++++++
 study/chop_bogdan.tidal        | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 study/performances_tokyo.tidal | 41 +++++++++++++++++++++++++++++++++++++++++
 14 files changed, 390 insertions(+), 6 deletions(-)
 create mode 100644 copycat/resistance.tidal
 create mode 100644 live/bogbog.tidal
 create mode 100644 live/chill/powder_asmr.tidal
 create mode 100644 live/etienne.tidal
 create mode 100644 live/francesca.tidal
 create mode 100644 live/friday_feb.tidal
 create mode 100644 live/hardcore/anar.tidal
 create mode 100644 live/hip/hop.tidal
 create mode 100644 live/hip/roll.tidal
 create mode 100644 live/quantum.tidal
 create mode 100644 study/chop_bogdan.tidal
 create mode 100644 study/performances_tokyo.tidal

diff --git a/blocks/drums.tidal b/blocks/drums.tidal
index 24f6c43..0994596 100644
--- a/blocks/drums.tidal
+++ b/blocks/drums.tidal
@@ -1,14 +1,21 @@
 setcps 0.8
 
+once $ s "bogdan:11"
+# gain 1.3
+# cut 1
+
+
 -- helico?
-d1 $ s "[a*4 ~] a*8"
+d1
+$ s "[a*4 ~] a*8"
 # note "-15 .. 15"
+# s "armora"
 
 -- DNB
 d1
-$ fast 2
+-- $ fix (# s "nass:2") (s "sn:1")
 $ s "bd ~ sn:1 ~ ~ bd sn:1 <~ sn:1>"
-# gain 0.8
+# gain 1
 
 
 d1 $ "<dr <dr*2 dr?*8>>" # s ( choose ["hh", "dr"])
@@ -21,7 +28,7 @@ $ s "glitch"
 d9 $ "808bd:1"
 # gain 0.9
 
-d1
+d2
 $ every 2 (off (6/12) (|+0))
 $ every' 2 1 (off (3/12) (|+0))
 $ every' 4 1 (off (5/12) (|+0))
@@ -48,7 +55,7 @@ $ every' 4 4 (# pan 1)
 $ s "dr"
 -- $ every 1 (# s "~")
 
-d1
+d1 -- progression geometrique de tk
 $ every 1 (off 0.125 (|+ 0))
 $ every 2 (off 0.5 (|+ 0))
 $ every 4 (off 0.375 (|+ 0))
@@ -56,13 +63,21 @@ $ every 8 (off 0.75 (|+ 0))
 $ every 16 (off 0.875 (|+ 0))
 $ "jazz:3"
 
-d1
+d1 -- batterie chaloupee
 $ every 4 (off 0.125 (|+0))
 $ every 4 (off 0.25 (|+0))
 $ euclid 3 8
 $ s "dr"
 # n 0
 
+d2 -- contretemps tercets
+$ s "~ dr:1(<1 <2 3> 3 1>,3)"
+
+
+--
+-- d3 $ s "bassWarsaw?*8" # note (scale "aeolian" (irand 2))
+-- |- note 21
+-- # gain 0.7
 
 d1 $ s "[a*4 ~] a*8"
 # note "-15 .. 15"
diff --git a/blocks/melody.tidal b/blocks/melody.tidal
index 706939b..09ea1f3 100644
--- a/blocks/melody.tidal
+++ b/blocks/melody.tidal
@@ -18,3 +18,10 @@ $ s "~ dsynth(<4 3 5>,8)"
 # gain 0.7
 
 once $ s "arp" # n 0
+
+
+d1 -- continuous laser
+$ s "bd" >| speed (segment 50 $ range 40 5 (saw))
+
+d1 -- continuous structured xylophone
+$ sound "bd" >| speed (struct "t ~ t ~ ~ t t" $ range 5 20 saw)
diff --git a/copycat/resistance.tidal b/copycat/resistance.tidal
new file mode 100644
index 0000000..7f30f3c
--- /dev/null
+++ b/copycat/resistance.tidal
@@ -0,0 +1,4 @@
+d1
+$ fast 2
+$ s "b . ~ <b ~ ~> . b . <b ~ ~> ~"
+# s "kick:8"
diff --git a/live/bogbog.tidal b/live/bogbog.tidal
new file mode 100644
index 0000000..c42468a
--- /dev/null
+++ b/live/bogbog.tidal
@@ -0,0 +1,5 @@
+once $ s "bogdan:8"
+# gain 1.2
+# cut 1
+# room 0.5
+# dry 3
diff --git a/live/chill/powder_asmr.tidal b/live/chill/powder_asmr.tidal
new file mode 100644
index 0000000..5c45b3a
--- /dev/null
+++ b/live/chill/powder_asmr.tidal
@@ -0,0 +1,10 @@
+setcps 0.5
+
+d4
+-- $ someCycles (# silence)
+$ someCyclesBy 1 (# room 0.2) . (# gain 0.5))
+$ superimpose (rev . chop 16)
+$ s "nass:1"
+# gain 0.5
+
+d2 $ s "wind"
diff --git a/live/etienne.tidal b/live/etienne.tidal
new file mode 100644
index 0000000..867d4a9
--- /dev/null
+++ b/live/etienne.tidal
@@ -0,0 +1,17 @@
+d1
+$ someCycles (# n 0)
+$ euclid "<2 2 2 3 3 3>" "<5 5 5 8 8 8>"
+$ s "kick:4"
+
+d2
+-- $ every "<2 4>" (off 0.125 (|+ 0))
+$ every "<2 4>" (off (1/8) (|+ 0))
+$ s "~ sn:1 [hh*4] 808cy"
+
+d3
+$ often (off (1/16) (|+ 0))
+$ s "drum*8"
+# n 2
+# gain 0.8
+
+d4
diff --git a/live/francesca.tidal b/live/francesca.tidal
new file mode 100644
index 0000000..f6f6704
--- /dev/null
+++ b/live/francesca.tidal
@@ -0,0 +1,57 @@
+setcps 0.52
+
+d1
+$ whenmod 16 10 (fast 2)
+$ euclid 2 4
+$ s "kick:7"
+
+d2
+-- $ sometimes
+$ euclid "<3 5>" 8
+$ s "sn:0"
+# gain 0.8
+
+
+d1 -- beat + dark amp
+$ (fast 4 . (fix (# n "[9,7?]") (s "kick"))) -- FASTER!
+$ every' 4 3 (# gain "0 <0 1 1 0>") -- dark arp
+$ whenmod 32 0 (fix (# gain 0) (s "arp"))
+$ whenmod 32 16 (someCycles (fix (# silence) (s "electro1")))
+$ s "kick:14 [electro1:2, arp]"
+# gain 1
+
+
+d2 -- drumroll
+$ off 0.125 (|+ 0)
+$ degradeBy "0.5 0.2 0.5 0.8 0.5 0.9 0.5 0.1"
+$ s "dr*8"
+# n 0
+
+
+d6 -- bass
+$ whenmod 16 10 ( fast 2)
+$ superimpose (|+ note "<3 3 10 3>")
+$ note (scale "aeolian" "<c(3,8) a5>")
+|- note 20
+# s "bassWarsaw"
+# gain 0.9
+
+d3 -- vibration montante!
+$ superimpose (|+ note 5)
+$ every' 4 "<0 1 2 3>" (someCycles rev)
+$ sound "bd"
+# note "<42 42 42 36>"
+-- # note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
+>| speed (
+  segment (wchoose [(50,0.1), (250,0.9)])
+  $ range 1 3 saw
+  )
+# gain 0.5
+# legato 2
+
+d7 -- musical forks
+$ off 0.25 ((# room 0.5) . (|- 12))
+$ superimpose (|+ note "< 5 3 2 0>")
+$ s "f f f <f <f*2 ~>>"
+# s "superfork"
+# gain 0.7
diff --git a/live/friday_feb.tidal b/live/friday_feb.tidal
new file mode 100644
index 0000000..a6f6bde
--- /dev/null
+++ b/live/friday_feb.tidal
@@ -0,0 +1,46 @@
+hush
+
+setcps 0.6
+
+d1 $ sound "~ clap:1"
+# lpf "<100,100 .. 1000 1000,100 .. 100>"
+
+d2
+$ off (1/16) (|+ 0)
+$ degradeBy "0 0 0.8 0.4 0.5 0.6 0.7 0.2"
+$ s "dr*8"
+
+d3
+$ someCycles (# sustain 2)
+$ someCyclesBy 0.2 (# attack 0.1)
+$ jux rev
+$ off 0.25 (|+ note "<3 3 3 3 5 5 5 5>")
+$ off 0.125 (|+ note 7)
+$ note "-7"
+# s "bassWarsaw"
+# gain 0.9
+
+d4
+$ euclid 2 4
+-- $ euclid 3 8
+$ "kick:5"
+# gain 0.7
+# cps (slow 64 $ range 0.5 0.6 $ sine)
+
+d5
+$ sometimes (stut 4 0.75 0.125)
+$ s "~ glitch:2 ~ ~"
+# lpf (rand * 1000)
+
+d6
+$ whenmod 8 6 (superimpose (rev))
+$ sometimesBy 0.01 (# crush 4)
+$ every 4 (rev)
+$ sound "bd"
+# note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
+>| speed (
+  (segment "<80 100 120 140 160 140 120 100>")
+  -- segment 100
+  $ range 1 "<3 7 10>" saw
+  )
+# gain 0.6
diff --git a/live/hardcore/anar.tidal b/live/hardcore/anar.tidal
new file mode 100644
index 0000000..4bc7b88
--- /dev/null
+++ b/live/hardcore/anar.tidal
@@ -0,0 +1,57 @@
+
+d4 $ s "arp:0"
+# gain 0.9
+
+d3
+$ fast 4
+$ s "kick:5"
+
+d2 $ s "[dr dr?]*4"
+# s "drum"
+
+d5
+$ fast 4
+$ s "~ ulgab?:1"
+
+--- BELOW: Pas hardcore du tout
+
+
+d1 $ s "kick?:5*4"
+# gain 0.8
+
+d2
+$ fast 2
+$ whenmod 16 10 (# s "sn [sn, cp]")
+$ s "sn [sn, cp]"
+# gain 0.8
+
+d3
+$ whenmod 16 8 (|- note 7)
+$ someCycles (|+ note 5)
+$ someCycles (|- note 7)
+$ note (scale "major" 7)
+# s "bassWarsaw"
+# gain 0.6
+
+d4 -- basse grave
+$ iter 3
+$ chop "<<1 4> 2>"
+$ someCycles (|+ note 5)
+$ someCycles (|- note 7)
+$ note (scale "major" 7)
+# s "ikedaBass"
+|- note 21
+# gain 0.8
+
+
+d5 -- choeur fou
+$ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
+$ whenmod 64 32 (# gain 0.9)
+$ whenmod 8 4 (|- note 7) -- quinte
+-- $ superimpose ((|+ note 5) . degrade) -- variations quinte
+$ someCyclesBy 0.2 rev
+$ chop "<2 4 6 8>"
+$ off 0.25 (|+ 7)
+$ s "moogBass" # cut 1
+# note (scale "major" "<1 0 [1 3] ~>")
+# gain 0.9
diff --git a/live/hip/hop.tidal b/live/hip/hop.tidal
new file mode 100644
index 0000000..47dc7ee
--- /dev/null
+++ b/live/hip/hop.tidal
@@ -0,0 +1,23 @@
+d1 $ s "<kick [~ kick]>"
+# n 3
+# gain 0.6
+
+d2 $ s "~ snare:2"
+# gain 0.6
+
+d2 $ s "dr*4 ~ dr*2 ~"
+# gain 0.8
+
+d1
+$ slow 4
+$ n "0 .. 31" # s "amencutup"
+# gain 0.8
+
+d3
+$ whenmod 16 10
+
+d4
+$ n "0 0 0 [0 0] 0 [0 0] 0"
+# s "bass3"
+# gain 0.9
+-- o o u [o u] o [o u] u
diff --git a/live/hip/roll.tidal b/live/hip/roll.tidal
new file mode 100644
index 0000000..637de4b
--- /dev/null
+++ b/live/hip/roll.tidal
@@ -0,0 +1,35 @@
+setcps 0.5
+
+d1
+$ whenmod 32 16 (# gain 0)
+$ fast 2
+$ s "dr dr <dr dr dr ~> dr dr dr <~ ~ ~ dr> dr"
+# gain 0.9
+
+d2
+$ whenmod 32 8 (# gain 1)
+$ s "kick:13"
+# gain 0.8
+
+d3
+$ every 4 (off 0.125 (|+ 0))
+$ s "~ sn:4"
+# gain 0.8
+
+d4 -- TODO: Pas terrible ce sample
+$ whenmod 32 16 (|+ note 7)
+$ whenmod 4 3 (# gain 1)
+$ s "~ [v v v v]"
+# s "violin"
+# note "~ . 7 7 5 5"
+|- note 7
+# release 0.3
+# gain 0
+
+d5
+$ someCycles (superimpose (fast 2 . rev))
+$ note "<0 [0 [3 3 0]] 0 0>"
+# s "bassWarsaw"
+# attack (0.5 + rand / 2)
+# release (0.5 + rand)
+|- note 21
diff --git a/live/quantum.tidal b/live/quantum.tidal
new file mode 100644
index 0000000..70ae31e
--- /dev/null
+++ b/live/quantum.tidal
@@ -0,0 +1,17 @@
+setcps 0.5
+
+d1
+$ s "kicklinn(<2 <3 4>>, 4)"
+
+d2
+$ superimpose ((# gain 0.8) . (# accelerate 0))
+$ s "superwavemechanics"
+# accelerate "<0,0.1 .. 1 1,0.1 .. 0>" -- pitch glide
+# resonance 0.1 -- reverb
+# detune 10 -- pitch randomization
+# voice 0.5 -- higher = more noise, windy
+# gain 0.8
+
+d3 $ n "c7 f5"
+# s "supertron"
+# gain 0.8
diff --git a/study/chop_bogdan.tidal b/study/chop_bogdan.tidal
new file mode 100644
index 0000000..f1faea9
--- /dev/null
+++ b/study/chop_bogdan.tidal
@@ -0,0 +1,50 @@
+d2
+$ whenmod 8 4 (rev)
+$ jux rev
+$ chop 4
+$ superimpose ((|- note "<7 5 3 7>") . (# gain 0.8))
+$ s "bogdan:2"
+# note (scale "major" "1 0 3 2")
+# room 0.2
+# size 0.8
+# gain 0.6
+
+d3 -- HEY BRO
+$ every' 8 7 ((0.5 ~>) . (# begin 0.45)) -- bro
+$ every' 8 3 ((0.45 ~>) . (# end 0.42)) -- hey
+-- $ every' 8 7 ((chop 2 . (# gain "0 1.1"))) -- chop bro
+-- $ every' 8 3 ((chop 5 . (# gain "0 1 0 0 0"))) -- chop hey
+$ whenmod 8 4 (rev)
+-- $ jux rev
+-- $ chop 4
+$ superimpose ((|- note "<7 5 3 7>") . (# gain 0.8))
+$ s "bogdan:3"
+# crush "<10 .. 15 15 .. 10>"
+# room 0.2
+# size 0.8
+
+d4
+$ fast 2
+$ whenmod 8 7 (# gain 1)
+$ chop 450
+$ s "bogdan:5"
+# gain 0
+
+d5
+$ fast 2
+$ someCycles (# gain "1 0") $ chop 2
+$ s "~ bogdan:6"
+
+d6
+$ fast "<2 2 2 1 1>"
+$ whenmod 128 64 (euclid 4 4)
+$ euclid 3 4
+$ s "reverbkick"
+# gain 0.8
+
+d6
+$ fast 2
+$ s "~ cp:3"
+
+
+once $ s "bogdan:3"
diff --git a/study/performances_tokyo.tidal b/study/performances_tokyo.tidal
new file mode 100644
index 0000000..16fbb14
--- /dev/null
+++ b/study/performances_tokyo.tidal
@@ -0,0 +1,41 @@
+setcps 0.8
+
+-- Learning from the best:
+-- https://www.youtube.com/watch?v=dIpzU71LAQQ&list=PLybSFICi4UliK17U6rxPneXAyxvmGAe5T&index=3
+
+d1
+$ jux (rev . (|*| speed 2))
+$ every 3 (rev . chop 8)
+$ s "kicklinn(3,8)"
+-- # gain 1.2
+# cps (slow 64 $ range 0.6 0.65 $ sine)
+
+d2
+$ whenmod 16 8 (|- note 7)
+$ s "~ feelfx"
+# cut 1
+# lpf (slow 8 $ sine * 4000 + 200)
+
+d3
+-- $ off "<0.25 0.125>" (# crush 3)
+-- $ off 0.25 (# speed 2)
+$ s "clap:4 clap:3 snare:2*3 ~"
+# gain 0.7
+
+d4
+$ someCycles
+$ someCycles (off 0.25 ((# s "superpiano")))
+$ off 0.125 (|+ 7)
+$ n "<c7(3,8) f7*2 g7(3,8,2)>"
+# s "dsynth"
+# legato 1
+# gain 0.7
+
+d5 $ chunk 4 (hurry 0.5) $ chop 4 $ s "bogdan:8"
+
+d6
+$ whenmod 8 6 (# s "ulgab")
+$ iter 4 $ jux rev $ s "gabba(3,8)"
+# hpf "<100,100 .. 1000 1000,100 .. 100>"
+# speed 2
+# gain 0.6
--
libgit2 0.27.0