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