resetCycles do let delayPiano = ((# delay 0.5) . (# delayfb 0.8) . (# delayt "q")) let delayTrump = ((# delay 0.65) . (# delayfb 0.9) . (# delayt "e")) let breakLPF = whenmod 32 24 (# djfbus 1 (max 0.1 (range 0.4 0 (slow 8 cosine)))) let breakLPFLight = whenmod 32 24 (# djfbus 1 (max 0.3 (range 0.4 0 (slow 8 cosine)))) let g = breakLPF d1 $ g $ mask "<f!8 t!120>" $ whenmod 16 12 (fast 2) $ "k k k <k k*2 [~ k] k*2>" # "[cpu,bd:6]" # lpf 2000 # cut 1 # gain 0.8 d2 $ g $ mask "<f!12 t!116>" $ mask "<f!6 t f t!8 f!4 t!11 f>" $ "~ s" # "h2ogmsn" # n "<8!6 7 6>" # gain (slow 16 $ range 0.4 0.6 saw) # room 0.5 # dry 0.9 # sz 0.6 # pan 0.4 d3 $ g -- Stubborn bassline $ whenmod 16 14 (chop 2) $ mask "<f f f t f f t t f t f t f t t t t!116>" $ whenmod 32 24 (# crushbus 31 (range 16 5 saw)) $ mask "t(<1!4 3!4 5!4 [5 8]!2 8 [5 8] 8!16>,<4!4 8!28>)" $ note ("e3 . e3(<3!3 5 3 3 5 [5 <3 8>]>,8)" |+| "0!7 <0!12 12*2!12 0!4 12*2!4>" ) # "bassWarsaw" # gain 0.7 # room 0.4 # sz 0.1 d4 $ g -- Piano contretemps quinte-ish $ mask "<f!8 t!8 t!8 t!4 f!4 f!4 f!3 t f!4 t!4 t!24 f!8>" $ every' 64 39 (delayPiano) $ every' 64 27 (delayPiano) $ someCyclesBy "<0 <0.5 0.9>>" (ply "1 2") $ fast 2 $ note ("~ 0" + "<e5 e5 <d5!4 a4!4> <d5!3 a4!4 d5>>" + "[0,<7 7 5 5 7 7 7 3>]") # "superpiano" # velocity 0.39 d6 -- Distant guitar $ g $ mask "<<f t>!24 f!8 t!8 f!8 t!16>" $ "g(<[1 5]!4 5 1 3 10>,16)" # "rootsGuitar:2" # note "<5 5 3 3>" # gain 0.49 # att 0 # rel 0.7 d10 -- Distant metal drums $ breakLPFLight $ sometimesBy "0 0.25!3 <0.3!3 0.9>" (ply 2) $ "808sd*8" # n "[9|10]*16" # pan 0.8 # gain (0.47 + 0.1 * perlin) d8 $ g $ mask "<f!6 t f f!8>" $ every' 16 6 (delayTrump) -- $ whenmod 16 12 (delayTrump) $ off "h" ( whenmod 16 8 (scramble 4) . whenmod 16 4 (|* gain 1.05) ) $ slice 4 "<2 3 2 3 3 3 ~>" $ "rootsTrump" # gain 0.5 # cut 21 d9 $ breakLPFLight $ mask "<f!3 [f t] f!3 t t!120>" $ fix (whenmod 8 6 (degradeBy "0.5 <0.5!4 0.8!3 1>")) (n 1) $ n (stack [ "[~ <1!8 0!8> ~ 1 ~ 1*<1 2 1 2 1 1 2 2 0!8 1!6 2 2> ~ <1!8 <1 0>!8>]", "~ <~!7 3>" -- Whoosh ,""]) # "tech" # gain (slow 4 $ range 0.35 "<0.5!8 0.7!8>" saw) d11 -- Les poulettes d'Igor $ mask "<t!6 f <f t>>" $ mask "<t!32 f!8 t t f!6 t!8 f!3 t t t f t>" $ whenmod 16 8 (off "e" (chop "4 <1 2>")) $ "igor:10" # begin ("<0 0.25 0 0 0.5 0.5 0.5 0.5>" + 0.05 * perlin) # gain (min 0.45 $ slow 16 (range 0.7 0 saw)) # cut 11 # room 0.3 # leslie 0.26 # lrate 1.7