resetCycles do setcps (60/60/4) let whenPontHPF = (whenmod 64 32) d1 $ whenPontHPF (# silence) $ mask "t <t!3 f>" -- $ "k . <k!3 [~!<3!8 7!8> k]>" $ "k . <k k*<2 4>> k*2" # "[jazz,cpu2,reverbkick]" # att 0 # rel 0.9 # room 0.2 # lpf 1050 # gain 1 d2 -- Broken break! $ mask "<t!16 f!8 t!8>" $ whenmod 4 3 (mask "t <f!3 t>") $ whenmod 16 10 (striate "2 <2 4>") $ whenmod 8 6 (slice 8 "1!8") $ loopAt 2 $ slice 8 (run "<8!3 16>") $ "fbreak80:3" # gain (slow 32 $ range 0.75 1.25 cosine) # cut 2 d3 -- HiHat roll $ fast "1 <2 <1 4>>" $ "h*[8 16]" # "hh" # note "<0!4 2!3 0>" # gain ((slow 16 $ range 0.4 0.57 saw) + 0.1 * perlin) # lrate 0.5 # leslie 6 # cut 21 d4 -- Rhodes nappes+arps $ superimpose ( -- Laggy Arps chop "<1!16 <1 2>!16>" -- . struct "t(<3 3 3 [3 1] 5 5 5 [5 8] 8 8 5 8 16 [16 8] 5 [8 16]>,8)" . struct "t(<12!3 [12 24]>,16)" . arp "disconverge converge" . off "h" (|+ note 12) . (# pan 0.8) . (|* gain 1.3) . (# room 0.5) . (# sz 0.9) . (# cut 41) . (# "FMRhodes2") ) $ note ("ds'maj" -- BASELINE + "<<0!4 12 0!3> <5 8>>") # "FMRhodes1" # octave 3 # gain 0.9 # room 0.32 # sz 0.6 # dry 0.9 # pan 0.8 d5 -- Bassline + final arps $ whenmod 32 24 (superimpose ( struct "t(5,8)" . arp "down" . (+| note "c'maj'5") . (# cut 51) . (|* gain 0.95) . (# pan 0.3) )) $ note ( "<ds3 [fs3@2 gs3 ds3@5] [fs3@7 [ds3 fs3]] gs3>" ) # "bassWarsaw" # cut 5 # pan 0.2 # gain 0.9 d6 -- Cbows graves suspensifs $ mask "<f!16 t!3 f t!12>" $ superimpose (|+| note "0*<1 1 2 1 2 2 1 1> <7!3 12>(<1 3 1 5>,8)" ) $ note ("<ds fs ds gs>" - 12) # "cbow:2" # cut 6 # pan 0.15 # gain 0.7 # room 0.3 # sz 0.8 d7 -- Cbows Aigus conclusifs $ mask "<f!32 t!16 f!4 t!12>" $ often (off "e" ((|+ note "[0|12]") . (|* gain 0.95))) $ note ("<ds fs ds gs>" + (arp "up" "<c'maj'2!3 c'maj'4>")) # "cbow:3" # pan 0.85 # gain (slow 16 $ range 0.45 0.6 saw) # room 0.3 # sz 0.8