From e7b1c043fefec365eb3266c926060d54ca513c80 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Tue, 24 Mar 2020 21:37:50 +0100
Subject: [PATCH] live: Bureau

---
 live/hip/entre_en_scene.tidal |  61 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/techno/bureau.tidal      | 102 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 163 insertions(+)
 create mode 100644 live/hip/entre_en_scene.tidal
 create mode 100644 live/techno/bureau.tidal

diff --git a/live/hip/entre_en_scene.tidal b/live/hip/entre_en_scene.tidal
new file mode 100644
index 0000000..2df1d5a
--- /dev/null
+++ b/live/hip/entre_en_scene.tidal
@@ -0,0 +1,61 @@
+setcps 0.5
+
+d1 -- 4: KICK Chaloupe
+$ s "<k ~> <~ k> . k k ~ k"
+# s "jazz"
+# pan 0.8
+# gain 0.6
+
+d2 -- 3: Hats sur 8!
+$ every' 4 3 ((1/16) ~>) -- decale sur 8
+$ euclid "<1 3 5 8>" 8
+$ s "superhat"
+# pan (slow 16 $ sine)
+# gain 0.6
+
+d3 -- 2: Drumroll!
+$ sometimesBy "0 0.5" (off (1/16) id)
+$ whenmod 16 8 (fast 2)
+$ n "0*4" # s "drum:8"
+# gain 0.6
+
+d4 -- 1: Scratched birds!
+$ ((1/16) ~>)
+$ degradeBy "0 0.7 0.1" $ s "b*16"
+-- $ rarely (off (1/16) id) $ s "b(8,8)"
+# s "birds3" # n (irand 3)
+# gain 0.9
+
+d5 -- 4: Lead saw
+$ whenmod 24 12 (# silence)
+$ whenmod 16 14 (stut 4 0.9 (1/16))
+$ whenmod 16 12 (|+ n 12)
+$ whenmod 16 8 (|+ n 12)
+$ degradeBy (slowcat [
+  "0", "0", "0", "0 1 . ~ . 1 1 . <0 1>",
+  "0", "0", "0", "1 0 . ~ . 1 1 . <0 1>",
+  "0 . 1", "0 . 1", "0 . 1", "0 . 1",
+  "0 . 1", "0 . 1", "0 . 1", "0 . 1"
+])
+$ n (
+  "0 5 . ~ . 12 13 . <12 15>"
+)
+# s "supersaw"
+# gain 0.4
+
+d6 -- 4: Basses accompagnement
+$ jux id
+$ n "0([1|3|5],[3|8]) <1 [1 . ~ 1] 1(3,2) <5 5(3,3)>>" # s "bassWarsaw"
+|- 24
+# gain 0.7
+
+d10 -- 5: Toy Classical music!
+$ hurry 2
+$
+every' 24 22
+(|> s "toys:2")
+$ s "~ ~ t ~"
+# lpf 1000 # vowel "u"
+# leslie 0.01 # lsize 4 # lrate 0.7
+# note (-10)
+# gain 0.8
diff --git a/live/techno/bureau.tidal b/live/techno/bureau.tidal
new file mode 100644
index 0000000..e1eef8b
--- /dev/null
+++ b/live/techno/bureau.tidal
@@ -0,0 +1,102 @@
+-- Confine au bureau
+
+setcps 0.45
+
+
+d6 -- LEAD basse motif
+$ jux id
+$ whenmod 60 64 (
+  swing 2
+  . (# gain 1.1)
+  )
+$ arp ("<thumbup thumbup thumbup thumbdown>")
+$ n "c'maj e'min <d'maj d'min> <~ d'maj>"
+# s "subBass1"
+|- n 24
+
+d4 -- Hats motif rythme
+$ sometimesBy (slow 16 $ isaw) (slow 2)
+$ arp (slow 8 $ "<up [up updown] updown down [down up] downup>")
+$ n "d'maj e'min f'maj ~"
+# s "superhat"
+# sustain 0.2
+# gain 0.85
+
+d3 -- randomized drumroll
+$ whenmod 8 5 (sometimesBy (slow 8 $ "0 <0.75 0.25>") (off (2/12) id))
+$ whenmod 4 2 (sometimesBy (slow 4 $ "<0.25 0.75>") (off (1/12) id))
+$ whenmod 16 8 (>| n "0*8")
+$ n "0*4"
+# s "dr"
+# gain (slow 16 $ sine / 4 + 0.75)
+# pan (rand / 2)
+
+d1 -- randomly offset kick
+$ sometimesBy (slow 4 $ iter 4 $ "0 0 0 1") (0.125 <~)
+$ sometimesBy "0 0.1 0 <0 0.1 0.2 0.3>" (0.125 ~>)
+$ s "k k k k"
+# s "clubkick:9"
+# gain 0.7
+
+d2 -- claps contretemps
+$ sometimesBy ("0 <0 0 0 0.5>") (off (1/16) id) -- echo court
+$ sometimesBy "0 <0,0.05 .. 1>" (off (1/8) id) -- echo long
+$ sometimesBy "0 0" (fast 2) -- decalage
+$ sometimesBy "0 <0.25 <0.5 0>>" ((# n 0) . (|- gain 0.15)) -- plus grave
+$ s "[~ ~ ~ c]*2"
+# s "cp:1"
+# gain 0.7
+
+d7 -- piano impro
+$ sometimes ((1/96) <~)
+$ sometimesBy (slow 16 $ saw) (|- velocity 0.1)
+$ whenmod 16 12 (swing 2)
+$ n (fastcat [
+  "0(<1 1 1 1 2 2 2 2 5 5 5 5>,6)",
+  "0(<2 1 2 1 3 2 3 2>,6)",
+  "0(<1 3 1 2 2 2 3 3 3 6 6 6>,6)",
+  "~"])
+|> n "[0|4|7][0|4|7][0|4|7] [4|7|11][4|7|11][4|7|11] [2|6|9][2|6|9][2|6|9] ~"
+|- n 12
+# s "superpiano"
+# velocity (slow 16 $ 0.7 + saw / 20)
+# sustain "0.25 0.25 1 ~"
+# gain (slow 32 $ sine * 0.4 + 0.5)
+
+d10 -- scratch moineau!
+$ sometimesBy 0.2 (off (1/32) id)
+$ degradeBy "0 0.1 0.8 0"
+$ euclid (slow 8 $ "<8 16>") 16
+$ n "0"
+# s "birds3"
+# n (choose [0,0,2])
+# gain 0.85
+
+unsolo 10
+
+-- TODO: REWORK
+
+
+d5 -- basse elec lead - trop repetitive
+$ swing 8
+$ whenmod 8 6 (|- n 2)
+$ whenmod 8 4 (|+ n 2)
+$ whenmod 8 2 (|+ n 5)
+$ superimpose ((# s "violin") . (|- gain 0.2))
+$ superimpose (arp (slow 4 $ "<up down updown downup>"))
+$ n "d'maj e'min f'maj ~"
+# gain 0.7
+# s "subBass2"
+|- n 12
+
+unmute 7
+
+d8 -- lead siren
+-- $ whenmod 4 2 (sometimes $ jux rev)
+$ whenmod 8 4 (sometimes $ degradeBy 0.25)
+$ every 4 (chunk 4 (|- n "[5,12]" )) -- variante chunkee quinte
+$ superimpose (|- n 12) -- octave
+$ arp (slow 2 $ "<up [up updown] updown down [down up] downup>")
+$ n ("~ <f'maj f4'maj> e'min <d'maj d6'maj>" - 12)
+# s "supersiren"
+# gain 0.6
--
libgit2 0.27.0