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
-- $ someCyclesBy 0.1 ((# s "beating") . (stut 4 0.5 0.25)) -- 2: tension
$ fix ((# s "sosKick") . (# gain 1.2)) (s "k") -- 1: kick soft
-- $ fix ((off 0.5 id) . (# s "[kick:0,reverbkick]")) (s "k") -- 2: kick harder
-- $ fix ((someCyclesBy 0.25 (off 0.125 id)) . (>| 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)
-- $ fix (((off 0.125 id . (>| s "kick:5*<1 2 1 1>")))) (s "k") -- kick hard (heartbeat)
-- $ s "k(2,4)" -- 1 tranquille
-- $ s "k(<2 2 2 2 4 4 4 4>,4)" -- 1 setup 4 temps
-- $ s "k(4,4)" -- 1 final 4 temps
$ s "k <k ~> k <k ~ k k>" -- 2 : variation pour kick hard
# gain 0.8

d2 -- 1: batterie tic tac
-- $ fast 2 -- 1: faster!
$ whenmod 8 4 (const $ n "2 1 . ~ . ~ . ~" # s "bshihat")
$ n "2 1"
# s "bshihat"


d5 -- basse
$ whenmod 8 4 (|- n 2)
-- $ someCyclesBy 0.8 (superimpose (# s "subBass2"))
-- $ 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.1

-- 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
$ every 2 (someCycles (# silence))
-- $ stut 2 0.7 0.1
$ 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.65

-- 3 -> 4

d6 -- claps encourageants
-- $ whenmod 64 32 (# silence)
$ fast 2
$ every' 2 1 ((# release 0.8)) -- deuxieme clap sans echo
-- $ fix ((# s "clap:2") . (# room 0)) (s "clap") -- claquements de doigts
$ s "~ clap"
# room "<<0.2 .. 0.5 0.6 .. 0.2> 0>"
# dry "<0 .. 3 3 .. 0>"

-- Acte quatre: résolution

d4 $ s "bsguitar:4" # cut 1 # begin 0.2

-- ACTE 4
d4 -- lead guitar pensive
-- $ whenmod 16 8 (# begin 0.5)  -- 2: alterne au debut
$ whenmod 16 5 (off 0.125 (|- note 3)) -- TODO: Variations guitare
$ whenmod 16 0 (off 0.125 (|- note 3))
$ s "bsguitar:4" # cut 1
# begin "<0 0 0.5 0.5 0.2 0.4 0 0>"
-- # begin "0.6" -- pont!
-- # begin "0.8" -- pont evanescent!
# up 1
# room 0.8
# size 0.6
# gain 0.6
# size "<0.4,0.05 .. 0 0,0.1 .. 0.4>"

d6  --phazer joyeux, resolution
$ fast 2
$ 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.6
-- |- n "2" -- 3: parfois mineure!