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>"
