do let gF = 1.5 let gG a = (gain (gF * a)) -- gain Global let gR l h a = (gain (range l h a)) -- gain Modulé noglob let gM' l h a = (gG (range l h a)) -- gain Modéré let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux let gDJF = (# djfbus 1 (range 0.05 0.95 "^29")) let novaOn ch pat = someCyclesBy ch pat let novaOff ch pat = someCyclesBy (1 - ch) pat let novaNo c1 c2 pat = someCyclesBy ((1 - c1 - c2)) pat -- let gRythm = (novaOn "^41" (euclid 3 8)) . (novaOn "^42" (fast 4)) . (novaNo "^41" "^42" (fast 2)) let gCPS = (# cps ((range 60 124 "^13")/60/4)) let g = gCPS . gDJF let gAcc = g . (novaOff "^41" (# silence)) . (|* gain (range 0 2 "^84")) d10 $ gAcc -- Kick $ "k(3,8) . <k k*2 [k . ~ k] <~ [~ k*4]>>" # "[jazz,hh:6]" # att 0.3 # sus 0.3 # room 0.4 # dry 1.01 # sz 0.8 # gain 1.6 d9 $ gAcc $ "drum:2*8" # gain 1 d1 $ g -- Main $ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]" $ "hh:3" # speed (range 0.75 2 "^49") # gR 0 1.8 "^77" # pan 0 d2 -- moineau! $ g $ someCyclesBy "<0 0 0.25 0.5>" (swingBy "q" 8) $ sometimesBy "0!7 0.5" (hurry 2) $ fast "<8!3 16> <8 16>" $ "birds3:[0|2]" # speed (range 0.75 2 "^50") # gR 0 2 "^78" # pan 0.3 d3 $ g -- nass $ novaOn "^75" (struct "t(5,8)") $ novaOff "^75" (struct "t(3,8)") $ "nass" # speed (range 0.5 1.5 "^31") # attack (range 0.125 0.5 "^51") # cut 3 # gR 0 2 "^79" d4 $ g -- plastic visseuse $ novaOn "^76" (chop "8 . [<8 [8|16]> [8|16] <[8|16] 16>] 8") $ novaOff "^76" (chop "[4|5] <1 2>") $ "[dr:3,dr:4]" # speed (segment 16 $ range 0.4 1.5 "^52") # attack (segment 16 $ range 0.01 0.5 "^32") # gR 0 2 "^80" # pan 0.6 d5 $ g $ sometimesBy "^54" (slow 2) $ sometimesBy "^53" (fast 2) $ fast "4 <8 4 8 16>" $ "jazz:6" -- Bot # speed (slow 16 $ range (range 0.01 1 "^33") (range 1 1.5 "^34") saw) # gR 0 1.4 "^81" # pan 0.7 d11 $ gAcc $ sometimesBy "0 0.75" (off "q" (|* gain 0.95)) $ slice 8 "<[0 1] [2 3] [0 3] [2 3]>" $ "fbass:1" # gain 1 # pan 0.5 # cut 11 -- Company funky once $ once once $ once $ once $ "hh:3" # gain 1.2