From e775d58ccd5738540202d7f602ed4f75e7edc1c7 Mon Sep 17 00:00:00 2001
From: Paul-Louis NECH <pln@algolia.com>
Date: Sun, 19 Apr 2020 00:25:15 +0200
Subject: [PATCH] feat: saturday :)
---
blocks/rolls.tidal | 13 +++++++++++++
live/experimental/dildo_cycles.tidal | 3 ---
live/fusion/du_code.tidal | 65 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
live/fusion/josephine.tidal | 1 +
live/fusion/lucy_sky.tidal | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
live/hip/beats.tidal | 144 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------------------------------------------------
live/noise/decentering.tidal | 6 +++---
notes.md | 1 -
output/DuCode.png | Bin 0 -> 507597 bytes
output/DuCode_AcideFlou.jpg | Bin 0 -> 155274 bytes
output/DuCode_VagueNoire.jpg | Bin 0 -> 81206 bytes
output/DuCode_VagueSombre.jpg | Bin 0 -> 109941 bytes
output/DuCode_reflet.jpg | Bin 0 -> 167229 bytes
tools/unsolo.tidal | 1 +
14 files changed, 202 insertions(+), 82 deletions(-)
delete mode 100644 live/experimental/dildo_cycles.tidal
create mode 100644 live/fusion/du_code.tidal
create mode 100644 live/fusion/josephine.tidal
create mode 100644 live/fusion/lucy_sky.tidal
create mode 100644 output/DuCode.png
create mode 100644 output/DuCode_AcideFlou.jpg
create mode 100644 output/DuCode_VagueNoire.jpg
create mode 100644 output/DuCode_VagueSombre.jpg
create mode 100644 output/DuCode_reflet.jpg
diff --git a/blocks/rolls.tidal b/blocks/rolls.tidal
index f816111..e503648 100644
--- a/blocks/rolls.tidal
+++ b/blocks/rolls.tidal
@@ -7,3 +7,16 @@ $ s "d <d d*3> <d <d d*3>> d*3"
d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta)
$ s "d*<4 4 4 <4 0>> d*<2 2 4 2>"
# s "dr:9"
+
+d1 $ n "0 <~ 0> [~ 0] ~"
+# s "jazz"
+
+d3
+$ someCycles degrade
+$ sometimesBy "0 0.5" (fast 2)
+$ "dr:12(10,12)"
+
+d3 -- Percroll
+$ almostNever (# n 1) . degrade
+$ s "d(<10!2 14 16>,16)"
+# s "bsperc:5"
diff --git a/live/experimental/dildo_cycles.tidal b/live/experimental/dildo_cycles.tidal
deleted file mode 100644
index 6e68c01..0000000
--- a/live/experimental/dildo_cycles.tidal
+++ /dev/null
@@ -1,3 +0,0 @@
---- TODO: Sample Geisha by Les elles
--- Drone vibrating dildo
--- Chopped moans
diff --git a/live/fusion/du_code.tidal b/live/fusion/du_code.tidal
new file mode 100644
index 0000000..eddd445
--- /dev/null
+++ b/live/fusion/du_code.tidal
@@ -0,0 +1,65 @@
+-- DU CODE !
+do
+ d1 -- BEAT
+ $ whenmod 32 30 (# gain 0.9)
+ $ whenmod 32 25 (# gain 0)
+ $ sometimesBy "1 0.5 0.25 0" (fast 2) -- FASTER!
+ $ s "b ~ [b? b] <~ [~ b?]>"
+ # s "reverbkick"
+ # gain 0.8
+ # pan (slow 8 $ range 0.6 0.8 saw)
+ d2 -- Breaks
+ $ whenmod 32 19 rev
+ $ whenmod 32 18 (slow 2)
+ $ whenmod 32 17 (fast 2)
+ $ whenmod 32 16 rev
+ $ whenmod 32 30 (# gain "<0.5 0.6>")
+ $ whenmod 32 24 (# gain 0)
+ $ loopAt 2 $ chop (slow 4 "<2 8>") $ sound "break"
+ # gain 0.65
+ # pan (slow 8 $ range 0.2 0.8 saw)
+ d3 -- Percroll
+ $ almostNever (# n 1) . degrade
+ $ s "d(<10!2 14 16>,16)"
+ # s "bsperc:5"
+ # gain (slow 8 $ range 0.7 1 saw)
+ d4 -- basse bruitée
+ $ whenmod 32 16 (# crush 4) . (# lpf 12000)
+ $ sometimesBy 0.2 (fast 2)
+ $ chop (slow 4 $ "<[1|2] [4|8] 8 1>")
+ $ note (scale "aeolian" (
+ "[0, <~ [0 ~ <1 2> <2 1>]>]"
+ ) - 24)
+ # s "supersaw"
+ # voice 0.25
+ # gain 0.55
+ d5 -- Claps dégradés
+ $ degradeBy "0.9 0 0.5"
+ $ s "c([3|5],8)"
+ # s "clap"
+ # n "0 [0|1]"
+ # gain 0.8
+ d6 -- PIANO FOU
+ $ note (scale "aeolian" (
+ "c5'maj(<[3|5|7] [10|12|14]>,16,[0|4])" -- accord
+ + (iter 4 $ "{0 [2 0] 4 [2 0]}") -- melodie
+ + "<0!4 7 0 -7>" -- gamme
+ )
+ )
+ # "superpiano"
+ # sustain (1/"[2|4|8]")
+ # velocity (slow 64 $ range 0.3 0.5 sine)
+ d7 -- Choeur nappes
+ $ note (scale "aeolian" ("c4'maj"))
+ # s "moogBass"
+ # amp (slow 4 $ "<0.2 0.4 0.6 0.8>") -- INTENSIFICATION
+ # gain (slow 4 $ "<1 0.9 0.8 0.8>") -- Compense volume
+ # cutoff (slow 16 $ (1000 * (1 + run 15))) -- Variations filtree
+ d8 -- du code
+ $ "~ kaamelott:2/8"
+ # begin (slow 8 $ "<0 0 0.5 0.55 0.75 0.5>")
+ # end (slow 8 $ "<0.5 0.5 1 1 1 1 >")
+ # crush (5 + irand 10)
+ # speed (0.85 + rand / 4)
+ # room 0.5
+ # gain 0.7
diff --git a/live/fusion/josephine.tidal b/live/fusion/josephine.tidal
new file mode 100644
index 0000000..592431c
--- /dev/null
+++ b/live/fusion/josephine.tidal
@@ -0,0 +1 @@
+once $ s "kaamelott:2"
diff --git a/live/fusion/lucy_sky.tidal b/live/fusion/lucy_sky.tidal
new file mode 100644
index 0000000..5f7ea09
--- /dev/null
+++ b/live/fusion/lucy_sky.tidal
@@ -0,0 +1,50 @@
+setcps 0.5
+
+d1
+$ sometimesBy "0 0 0 <0 0.9>" (fast 2)
+$ n "0 0*[1|2|4]"
+-- "0 <~ ~ ~ 0?> 0 [<~ 0?> 0]"
+-- "0!4 0*<2 [4 2] [4 8] [<4 8> <8 12>]>"
+# s "jazz"
+# gain 0.8
+
+d2
+$ bite 4 "0 1 2*<1 2> 3*<1 <2 4>>"
+$ loopAt "<4 2!2 1>" $ chop 32 $ s "breaks125"
+# gain 0.8
+
+d3
+$ almostNever (superimpose (<| s "~ ~ 808cy:1 ~"))
+$ swing (slow 64 $ "<3 5>")
+$ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>)
+$ euclid 5 4
+$ s "808cy"
+# note "<4 4 4 4 7 7 7 7>"
+# gain (slow 32 $ sine * 0.4 + 0.3)
+
+d4
+$ sometimes (hurry 2)
+$ degrade
+$ s "~ clap:2"
+# gain 0.9
+
+d5
+$ whenmod 16 8 (superimpose $ arp "<updown downup pinkyup>")
+$ s "<b [b b? <~ b> <~ b?>] b*4 <b*8 [b*4 b]>>"
+# note (scale "major" "<c'maj <ds'maj f4'maj> <df'maj ff'maj>>([3|4],8)"
++ (
+ (slow 4 $ "<0 2>")
+ )
+)
+# s "superpiano" # velocity "0.6 [0.5 0.4] 0.5 [0.4 0.7]"
+
+d6 $ silence
+
+d10 -- basse
+$ chop 4
+$ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
+$ note (iter 4 $ "<0 <3 [3 3]> <0 [3 0]>>" - 24)
+# s "bassWarsaw"
+-- # hpf (slow 64 $ cosine * 900 + 100)
+# room (slow 64 $ range 0.1 0.8 cosine)
+# gain 0.8
diff --git a/live/hip/beats.tidal b/live/hip/beats.tidal
index 26983e3..0828e0a 100644
--- a/live/hip/beats.tidal
+++ b/live/hip/beats.tidal
@@ -1,81 +1,75 @@
-- SirenBeat
setcps 0.45
-d1 -- reverbkick varie
-$ every' 16 13 (fast 2)
--- $ whenmod 16 13 (# gain 1) -- fin break 1
--- $ whenmod 16 10 (# gain 0) -- break 1
-$ (# s "reverbkick")
-$ fix ((# note 0) . (# lpf 2000)) (s "h")
-$ fix ((# note 1) . (# lpf 5000)) (s "l")
-$ s "h . ~ <~ l> . ~ [~|~|h] . <~ l> <l ~>"
-|- note 2
-# pan 0.2
-
-d2 -- amen sur 8
-$ whenmod 16 10 (# gain 0) -- break 1
-$ whenmod 16 8 (off 0.125 (|+ n 7))
-$ off (1/16) degrade
-$ every 2 (sometimes $ degrade . fast 2)
-$ someCyclesBy 1 (sometimes (# n "[4|4|2]"))
-$ s "a(<<3 4> <5 8>>,8)" # n "5 2 [1|1|3] 0" # s "amencutup"
-# gain (slow 64 $ range 0.5 0.8 sine)
-# pan 0.8
-
-d3 -- Drumroll
-$ superimpose ( -- hats
- (# s "superhat") . (# sustain (slow 8 $ sine * 0.1 + 0.1)) . (|- gain 0.1))
-$ whenmod 8 4 (fast "<1 2> . 2 <2 1>")
-$ sometimesBy "0 <0.5 0.5 0.75 0.25>" (off (1/16) id)
-$ s "d*8"
-# s "dr"
-# gain (slow 32 $ sine * 0.5 + 0.4)
-# pan (slow 8 $ 0.2 + tri * 0.8)
-
-d4 -- Hats motif rythme
-$ sometimesBy (slow 4 $ isaw) (slow 2)
-$ arp (slow 4 $ "<up [up updown] updown down [down up] downup>")
-$ n "f'maj e'min d'maj ~"
-# s "superhat"
-# sustain 0.2
-# gain 0.5
-
-d5 -- Sirene
-$ s "supersiren/4"
-# note (slow 4 $ "<f e c e5>"
-- 36)
-# gain 0.5
-
-d6 -- basse motif
-$ whenmod 16 10 ( -- break 1
- superimpose (# s "subBass2") . (|- gain 0.1))
-$ whenmod 60 64 (swing 2)
-$ arp (slow 8 $ "<thumbup [thumbup down] downup [downup up]>")
-$ note ("f'maj e'min d'maj ~"
-+ (slow 4 $ "<0 4 2 <0 12>>") -- descente
-- 24)
-# s "subBass1"
-# gain 1
-# room 0.4 # size 0.2
-
-d7 -- sometimes, slow bass synth
-$ whenmod 64 61 (chop 2)
-$ whenmod 64 60 rev
-$ whenmod 64 32 (every 4 (# gain 0.8))
-$ n "f'maj ~ e'min ~ d'maj ~"
-# s "bassWarsaw"
-# legato "1 1 2 ~"
-# sustain "1 1 4 ~"
-|- n 24
-# gain 0.4
-
-d10 -- scratch moineau!
-$ sometimesBy 0.2 (off (1/32) id)
-$ degradeBy "0 0.1 0.8 0"
-$ euclid (slow 8 $ "<3 5>") 16
-$ n "0"
-# s "birds3"
-# n (choose [0,0,2])
+do
+ d1 -- reverbkick varie
+ $ every' 16 13 (fast 2)
+ $ whenmod 16 13 (# gain 1) -- fin break 1
+ $ whenmod 16 10 (# gain 0) -- break 1
+ $ (# s "reverbkick")
+ $ fix ((# note 0) . (# lpf 2000)) (s "h")
+ $ fix ((# note 1) . (# lpf 5000)) (s "l")
+ $ s "h . ~ <~ l> . ~ [~|~|h] . <~ l> <l ~>"
+ |- note 2
+ # pan 0.2
+ d2 -- amen sur 8
+ $ whenmod 16 10 (# gain 0) -- break 1
+ $ whenmod 16 8 (off 0.125 (|+ n 7))
+ $ off (1/16) degrade
+ $ every 2 (sometimes $ degrade . fast 2)
+ $ someCyclesBy 1 (sometimes (# n "[4|4|2]"))
+ $ s "a(<<3 4> <5 8>>,8)" # n "5 2 [1|1|3] 0" # s "amencutup"
+ # gain (slow 64 $ range 0.5 0.8 sine)
+ # pan 0.8
+ d3 -- Drumroll
+ $ superimpose ( -- hats
+ (# s "superhat") . (# sustain (slow 8 $ sine * 0.1 + 0.1)) . (|- gain 0.1))
+ $ whenmod 8 4 (fast "<1 2> . 2 <2 1>")
+ $ sometimesBy "0 <0.5 0.5 0.75 0.25>" (off (1/16) id)
+ $ s "d*8"
+ # s "dr"
+ # gain (slow 32 $ sine * 0.5 + 0.4)
+ # pan (slow 8 $ 0.2 + tri * 0.8)
+ d4 -- Hats motif rythme
+ $ sometimesBy (slow 4 $ isaw) (slow 2)
+ $ arp (slow 4 $ "<up [up updown] updown down [down up] downup>")
+ $ n "f'maj e'min d'maj ~"
+ # s "superhat"
+ # sustain 0.2
+ # gain 0.5
+ d5 -- Sirene
+ $ s "supersiren/4"
+ # note (slow 4 $ "<f e c e5>"
+ - 36)
+ # gain 0.6
+ d6 -- basse motif
+ $ whenmod 16 10 ( -- break 1
+ superimpose (# s "subBass2") . (|- gain 0.1))
+ $ whenmod 60 64 (swing 2)
+ $ arp (slow 8 $ "<thumbup [thumbup down] downup [downup up]>")
+ $ note ("f'maj e'min d'maj ~"
+ + (slow 4 $ "<0 4 2 <0 12>>") -- descente
+ - 24)
+ # s "subBass1"
+ # gain 1
+ # room 0.4 # size 0.2
+ d7 -- sometimes, slow bass synth
+ $ whenmod 64 61 (chop 2)
+ $ whenmod 64 60 rev
+ $ whenmod 64 32 (every 4 (# gain 0.8))
+ $ n "f'maj ~ e'min ~ d'maj ~"
+ # s "bassWarsaw"
+ # legato "1 1 2 ~"
+ # sustain "1 1 4 ~"
+ |- n 24
+ # gain 0.4
+ d10 -- scratch moineau!
+ $ sometimesBy 0.2 (off (1/32) id)
+ $ degradeBy "0 0.1 0.8 0"
+ $ euclid (slow 8 $ "<3 5>") 16
+ $ n "0"
+ # s "birds3"
+ # n (choose [0,0,2])
d11 $ s "birds/4" # n (irand 6) # speed (0.5 + rand * 2)
# gain (0.4 + rand / 2)
diff --git a/live/noise/decentering.tidal b/live/noise/decentering.tidal
index cec8b70..28fec54 100644
--- a/live/noise/decentering.tidal
+++ b/live/noise/decentering.tidal
@@ -56,9 +56,9 @@ $ s "~ [b b?]]"
# dry 0
d10 -- basse
-$ superimpose -- echos crushes!
- (fast 2) . (chop 4) . (# crush (4 + (irand 10))) . (|- gain 0.2)
-$ jux rev
+-- $ superimpose -- echos crushes!
+ -- (fast 2) . (chop 4) . (# crush (4 + (irand 10))) . (|- gain 0.2)
+-- $ jux rev
$ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
$ every 4 (someCycles (fast 2 . degrade))
$ often (fast 2 . (0.25 ~>))
diff --git a/notes.md b/notes.md
index 1c68836..3748c84 100644
--- a/notes.md
+++ b/notes.md
@@ -132,7 +132,6 @@
--- 6 Tac leger
-
-- bssnare
-- bsvocals
diff --git a/output/DuCode.png b/output/DuCode.png
new file mode 100644
index 0000000..c08232d
Binary files /dev/null and b/output/DuCode.png differ
diff --git a/output/DuCode_AcideFlou.jpg b/output/DuCode_AcideFlou.jpg
new file mode 100644
index 0000000..3382973
Binary files /dev/null and b/output/DuCode_AcideFlou.jpg differ
diff --git a/output/DuCode_VagueNoire.jpg b/output/DuCode_VagueNoire.jpg
new file mode 100644
index 0000000..36076b8
Binary files /dev/null and b/output/DuCode_VagueNoire.jpg differ
diff --git a/output/DuCode_VagueSombre.jpg b/output/DuCode_VagueSombre.jpg
new file mode 100644
index 0000000..ec7be0a
Binary files /dev/null and b/output/DuCode_VagueSombre.jpg differ
diff --git a/output/DuCode_reflet.jpg b/output/DuCode_reflet.jpg
new file mode 100644
index 0000000..a414ad7
Binary files /dev/null and b/output/DuCode_reflet.jpg differ
diff --git a/tools/unsolo.tidal b/tools/unsolo.tidal
index af7bcfe..46ecfc9 100644
--- a/tools/unsolo.tidal
+++ b/tools/unsolo.tidal
@@ -8,3 +8,4 @@ unsolo 7
unsolo 8
unsolo 9
unsolo 10
+unsolo 11
--
libgit2 0.27.0