From 387d8c3e7ce1389fea9c720c745183574ca955dd Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Sun, 29 Mar 2020 19:24:19 +0200
Subject: [PATCH] feat: boeuf+chemise

---
 live/boeuf/samedi_confine_extra.tidal | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 live/dnb/chemise.tidal                | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 127 insertions(+)
 create mode 100644 live/dnb/chemise.tidal

diff --git a/live/boeuf/samedi_confine_extra.tidal b/live/boeuf/samedi_confine_extra.tidal
index 355dfe4..4d3a04c 100644
--- a/live/boeuf/samedi_confine_extra.tidal
+++ b/live/boeuf/samedi_confine_extra.tidal
@@ -34,3 +34,67 @@ d11 $ every 16 (jux rev) $ every 8 (# gain 0.9) $ s "space:3" # speed 0.25 # sil
 
 
 -- EEEEEEEEEEEEEEEEEEEWEEEEEEEEEEEEEEEEEEEEEEEEE !E
+
+-- final
+prog = "<0 0 0 0 2 2 4 -2>"
+
+d1 $ superimpose ((|-| n 12) . (# gain 0.0)) $ n (scale "aeolian" (iter 6 $ "[-2 2 7 11 14 7 0 14]*2" + prog - "0 -7 0 -7 0 0 -7")) # s "supersaw" # legato 1 # gain 0.8 # orbit 1 # lpf (slow 6 $ range 500 1200 sine) # lpq (slow 8 $ range 0 0.1 sine) # voice 0.1 # silence
+
+d4 $ n (scale "aeolian" ("[-7,-2,4,7,9,11,13]*4" + prog)) # s "superhammond" # attack 1 # gain 0.65 # lpf (slow 32 $ range 300 2500 sine) # lpq (slow 8 $ range 0 0.15 sine) # silence
+
+d2 $ s "supersaw(<5 7 3>,8, <0 2>)" # n (scale "aeolian" (prog - 14)) # gain 0.85 # voice 0.1 # room 0.5 # orbit 0 # silence
+
+-- BON CETAIT GRAVE COOL MAIS JE VAIS MARRETER ET JOUER A BLACK MESAAVEC SONIA !!!
+-- ON SE REFAIT CA DEMAIN ? ;)
+
+hush
+M
+
+-
+  -
+d3 $ stack [s "d(1,8)" # s "drum:6", s "cp(2,4,1)"]
+
+d4 $ whenmod 8 6 (degradeBy 0.75) $ inside 2 (sometimesBy 0.1 (ply 2)) $ iter 4 $ n ("[0 0 2 ~ [5 4] 2 <3 5> [1 [2 2]]]" + "<5 5 5 8 2 3>") # s "<dr dr dr jazz>" # silence
+
+d5 $ s "insect*4" # n (irand 6) # speed (range 0.125 2 rand) # crush 4 # gain 1 # silence 
+
+
+hush
+d6 $ s "birds" # n (irand 6) # speed (range 0.01 0.1 rand)
+hush
+
+-- Yes ce fut un plaisir :)
+
+-- Black mesa? Have fun!
+-- Moi je rejoins ma conv locale/distante avec amis :)
+
+-- Avec GRAND PLAISIR MAMOI!
+-- MOi le dimanche c'est reggae/dub
+-- En mode gros kick reverb, piano fou, et joyeusetes
+-- Si ça te dit :P
+
+-- Bonne soirée les mamp
+
+-- EHOUE
+
+d6 $ sometimesBy "0 0.75" (stut 4 0.9 (1/16)) $ sometimesBy "0 0 0.5 0" (0.125 ~>) $ s "k k k? k?" # s "kick:5" # gain 0.9
+
+-- moineau scratch
+d7 $ n "0*16" # s "birds3" # n (choose [0,0,2]) # pan (slow 8 $ sine / 2)
+
+-- pivert!
+d8 $ someCycles (# silence) $ often (stut 5 0.9 0.05) $ s "birds3:6(<1 3 5 3>,8)"
+
+d10 $ whenmod 4 2 (juxBy 0.3 rev) $ rarely (slow 2) $ whenmod 4 2 degrade $ sometimesBy (slow 8 $ "<0.2 0.5 0.9>") (off (1/16) id) $ s "dr*8" # s "drum:8"
+
+-- vents du haut!
+d12 $ someCycles (# s "dr:2") $ someCycles (# s "dr:1") $ s "<hh*4 hh*4 hh*4 [hh*4 ~]>" # s "hh" # release 0.5
+
+
+-- bourrasque
+d11 $ every 16 (jux rev) $ every 8 (# gain 0.9) $ s "space:3" # speed 0.25 # silence
+-- AYWAY !
+
+
+
+-- EEEEEEEEEEEEEEEEEEEWEEEEEEEEEEEEEEEEEEEEEEEEE !E
diff --git a/live/dnb/chemise.tidal b/live/dnb/chemise.tidal
new file mode 100644
index 0000000..11c7206
--- /dev/null
+++ b/live/dnb/chemise.tidal
@@ -0,0 +1,63 @@
+setcps 0.6
+
+
+-- Dub en chemise blanche
+
+d2
+$ degradeBy (slow 7 $ cosine * 0.6)
+$ fix (sometimes (# crush 4)) (n "1")
+$ fix ( -- tok occasionnel contretemps
+  whenmod 4 3 (sometimes (# n 3))
+  . sometimesBy "<0 0.25 0.75 1>" (stut 4 0.6 0.125)
+  ) (n 1)
+$ n "[0 <~ <1 1?>>]*2"
+# s "jazz"
+
+d3
+$ every' 4 3 (sometimes (jux id . (fast "<2 2 2 1>")))
+$ fast "<2 2 1 1> <2 1 2 4>"
+$ s "0 0"
+# s "drum:8"
+
+d3
+$ sometimesBy (slow 9 $ sine * 0.8) (# gain 0)
+$ someCyclesBy 1 (often ((# lpf 200) . (|+ gain 0.2)))
+$ euclid ("<3 1 3 1 3 2 3 1 5 3 5 1 5 8 3 1>") 8
+$ s "t"
+# s "[lt|mt] [mt|ht] [lt|ht]"
+#  gain 1
+
+d4 -- Basse TODO: Not reggae
+$ sometimesBy "0 1 0 0 0" (every' 4 3 ((2/16) ~>))
+-- $ every' 4 2 (sometimesBy "0 0 0 0 0" ((1/8) ~>))
+-- $ whenmod 8 6 (someCyclesBy 0.2 (rev . chop 2)) -- variations rev
+-- $ rarely (stut 3 0.75 (1/16)) -- begaye
+$ superimpose (|- note 12)
+$ note (scale "aeolian" (
+  (slow 2 $ "<0 <-2 5>>")
+))
+# s "supersaw"
+# voice 0.1
+# lpf (slow 6 $ range 500 1200 tri)
+# lpq (slow 4 $ sine * 0.1) -- vibrato
+# gain 0.8
+|- note 24
+
+d5 -- Pompe mandoline
+$ whenmod 16 14 ((fast "2 2") . (# room 0.2))
+$ whenmod 8 6 ((slow "2 1") . (# size 0.4))
+$ note (scale "aeolian" (
+  whenmod 64 32 (7 - )
+  "0 0 0? 0? . 0"
+  |+ ("<0 0 3 3 5 5 8 8> .  <4 4 7 7 10 10 13 13>")
+  ))
+# s "supermandolin"
+# accelerate "0 <0 0.2>"
+# sustain (slow 16 $ range 0.1 2 sine)
+# gain 0.9
+
+d9
+$ sometimes (off 0.5 id)
+$ s "~ ~ s ~"
+# s "birds" # n (irand 10)
+# gain 0.6
--
libgit2 0.27.0