anthropocene: premier jet

live/fusion/anthropocene.tidal

+setcps 0.5
+
+-- Acte un: l'humain pose son rythme
+-- Acte deux: l'humain impose sa matiere
+-- Acte trois: tension
+-- Acte quatre: résolution
+
+d1 --beat
+-- $ fix ((# s "sosKick") . (# gain 1.2)) (s "k") -- 1: kick soft
+-- $ fix ((fast 2) . (off 0.5 (|+ 0)) . (# s "[kick:0,reverbkick]")) (s "k") -- 2: kick harder
+-- $ fix (((off 0.125 (|+0) . (>| s "kick:5")))) (s "k") -- kick hard (heartbeat)
+$ fix ((someCyclesBy 0.25 (off 0.125 (|+0))) . (>| s "kick:5(<<2 2 4 4 4 4 2 2 3 4 4 3 2 2 0 0> 4>,4)")) (s "k") -- 3: kick hard (heartbeat)
+-- $ someCyclesBy 0.1 ((# s "beating") . (stut 4 0.5 0.25)) -- 2: tension
+-- $ s "k(2,4)" -- 1 tranquille
+-- $ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 setup 4 temps
+-- $ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 final 4 temps
+$ s "k <k ~> k <k ~ k k>" -- 2 : variation pour kick hard
+# gain 0.9
+
+d2
+$ s "hh [dr:1,hh]"
+# gain "1 0.8"
+
+d3 $ s "bskick:3(3,8)"
+
+d5 -- basse
+$ whenmod 8 4 (|- n 2)
+$ someCyclesBy 0.4 ((superimpose (|- 7)) . (|+ 7)) -- 2: matiere plastique
+$ someCycles (off 0.25 (|- 7))
+$ n (scale "major" "[0 0] ~ 1 0 1 1 0 0")
+|- 14
+# s "subBass1"
+# gain 1.0
+
+-- ACTE 2: METAL ET PLASTIQUE
+
+d2 -- batterie rythme metal
+$ someCycles (degradeBy 0.6)
+$ n "2 1 2 <1 1*2>"
+# s "bshihat"
+
+d3 -- batterie indus metal
+$ stut 2 0.9 0.05
+$ n "3 3 3 4"
+# s "bskick"
+# delay 5
+# gain 0.6
+
+d4 $ -- noise guitar tension
+s "bsguitar:6*2" # note "<0 0 0 0 1 1 1 1>"
+|- note 1
+# gain 0.7
+
+-- 3 -> 4
+
+d6 -- claps encourageants
+$ fast 2
+$ s "~ clap"
+# room "<0.2 .. 0.5 0.6 .. 0.2>"
+# dry "<1 .. 4 3 .. 0>"
+-- Acte quatre: résolution
+
+
+-- ACTE 4
+
+d6  --phazer joyeux, resolution
+$ someCycles (rev)
+$ someCycles (chop 2)
+$ someCyclesBy 1 (|- n 2) -- 3: parfois mineure!
+$ jux (degrade . rev . chop "<1 2 4 8>")
+$ n (scale "major" "<3 [3,5] [3,7] [3, 5, 7]>")
+# s "phazer"
+# gain 0.5
+|- n 2 -- 3: parfois mineure!
+
+d4 -- lead guitar pensive
+-- $ whenmod 16 8 (# begin 0.5)  -- 2: alterne au debut
+$ s "bsguitar:4" # cut 1
+-- # begin "<0 0 0.5 0.5 0.2 0.2 0.3 0.3>"
+# begin "0.6" -- pont!
+-- # begin "0.8" -- pont evanescent!
+# up 1
+# room 0.6
+# gain 0.7
+# size "<0.4,0.05 .. 0 0,0.1 .. 0.4>"