setcps (120/60/4) resetCycles do let bogLike = "bogdan:19" # cut 21 let bogStuff = "bogdan:20" # cut 21 let scope a b = (# begin a) . (# end b) let bogItsLike = scope 0.1 0.155 $ bogLike # att 0 # rel 0.6 -- It's like let bogItsDis = scope 0.1 0.275 $ bogLike # att 0 # rel 3 -- It's like so disappointing let bogRealize = scope 0.282 0.35 $ bogLike # rel 0.7 -- To realize... let bogMuchPeople = scope 0.34 0.52 $ bogLike -- There's so much people on the market let bogMuchProperly = scope 0.34 0.902 $ bogLike # att 0 # rel 10 -- There's so much people [...] work properly let bogProperly = scope 0.8 0.9 $ bogLike # att 0 # rel 2 -- Properly let bogMan = scope 0.9 1 $ bogLike -- Man! let bogSimpleStuff = scope "<0 0.74 0 0>" "<0.74 1>" $ bogStuff -- This is simple stuff! once $ scope 0.8 1 $ bogLike # att 0 # rel 2.5 -- Properly Man! d10 $ someCyclesBy "<f!16 t!8 f!8>" ((# bogSimpleStuff)) $ slow 2 $ "~ b" # cat [ bogItsLike, cat [bogRealize, bogItsLike], bogItsLike, bogItsDis, bogMan, (cat [bogMan, bogProperly]), bogMan, bogMuchPeople] # room 0.4 # pan 0.8 -- once $ bogRealize d1 $ mask "<f!7 [f!3 t] t!8>" $ "jazz*4" # lpf 1000 # att 0 # rel 0.8 # room 0.1 # gain 0.9 d2 -- Heavy snare $ mask "<f!4 t!12>" $ whenmod 8 6 (slow 2) $ whenmod 4 3 (ply "<1 2> <2!3 4>") $ fast 2 $ "~ [cp,snare:18,sn:24]" # lpf (slow 4 $ range 1000 2500 saw) # gain 0.8 d3 $ mask "<f!4 t!12>" $ "d*[8 <12 <[16 8] 16>>]" # "drum:2" # gain 0.8 # hpf 3000 # pan 0.6 d4 -- Bassline échaffaudage $ whenmod 16 12 (# crushbus 4 (slow 4 $ range 10 5 saw)) $ slice 4 "<0!4 0*2!4 [0 1]!4 [1 0]!4 [0 1 2 1]!4 [0 1 0 3]!4 [0 1 2 3]!4 [0 1 2 3*4]!4>" $ loopAt 2 $ "fbass:20" # cut 4 # gain 0.8 # pan 0.2 d5 $ whenmod 32 16 (superimpose ( (|+| note ("12 24*<1!4 2 4 4 4>" + "0(<3!3 5>,8)")) . (# cut 51) . (|* gain 0.8) )) $ note "<e a4 [e@3 [c d]] a4>" # "moog" # gain 0.4 # cut 5 d6 -- BOWS $ whenmod 32 24 (superimpose (("h" ~>) . (# n 2) . (# cut 61) . (|* gain 0.8) )) $ note "<e a4 [e@3 [c d]] a4>" # "cbow" # gain 0.45 # cut 6 -- TODO: Add "More like us before the end!" once $ "bogdan:22" # cut 21 # gain 1.2 once $ "bogdan:19" # cut 21 # begin 0.1 # end 0.155 # end 0.282