resetCycles -- DARK TECHNO LAVABO do let modIndex = pF "modIndex" let whenPont = someCyclesBy "<0!24 1!8 0!16 1!16>" let g = whenPont (# djfbus 1 (slow 8 $ range 0.45 0.15 saw)) let g2 = whenPont (# djfbus 2 (slow 8 $ range 0.5 0.75 cosine)) setcps (100/60/4) d1 $ g $ mask "<t(1,4)!4 t(2,4)!4 t!24 f!8 t!24>" $ fix (|* gain 0.8) ("kick") $ fix (|* gain "<0!3 1!125>") ("909") $ "k k k <k!3 ~>" # "[909,jazz,kick:5]" # lpf 5000 # gain 0.7 d2 $ g -- Shadow's applause $ mask "<f!16 t!48>" $ whenmod 64 32 (# crush (slow 32 $ range 16 3 (saw + 0.2 * perlin))) $ "~ cp" # crush "<16!7 3.4>" # lpf 3500 # gain 0.9 # room "<0!3 0.6>" # dry 1 # sz 0.9 d3 $ g -- HiHats fuyants : THE GRID $ stut 8 0.2 "<[q!3 e] <e s>>" $ n "<2!6 <2 3 3>>" # "h2ogmhh" # pan 0.3 # gain 0.6 d4 $ g -- MATRIX NOISE $ fix ( mask "<f!16 t!16>" . ( -- ORAGE juxBy 0.5 ( (# crush 4) . ("<e!3 h>" ~>) . (|* gain 0.8) )) . slice 8 "<3 3 <2 3> <3 2>>" . (# "90s_matrix:1") . (# cut 42) . (# pan 0.4) ) ("night") $ fix ( (>| "90s_matrix/4") . (# crushbus 41 (slow 64 $ range 16 4 saw)) . (# cut 41) ) ("base") -- Ominous base $ "[base,night]" # cut 4 # att 0 # rel 10 # room 0.84 # sz 0.6 # dry 1 # gain 0.65 d5 $ g2 -- Supersaw bassline $ mask "<f!8 t(1,2)!8 f!16 f!8 t!24>" $ someCyclesBy "<1!16 0!112>" (|* gain (slow 16 $ range 0.2 1 saw)) -- Intro fade-in $ note (scale "aeolian" ( "<0 [0@7 1]>" + "[0,7,<9 <11!2 10!2>>]" - 14 )) # "supersaw" # voice 0.05 -- # crushbus 51 (range 8 4.5 sine) # gain 0.45 # pan 0.2 d6 $ g2 -- Melopée rassurante $ mask "<f!8 <f!8 t!7 f> t f t!6 f!8 f!8 t f t!22>" $ superimpose ( arp "up down" . iter "<1!3 <2 4>>" . ply "2!3 <2 4>") $ note (scale "aeolian" ( "[0, 7, <9!3 0>, <11 10>]" - 14 )) # "FMRhodes1:0" # modIndex "<0!64 1!32 2!32>" # gain 0.9 # room 0.64 # dry 1 # sz 0.6 # pan 0.8