{- Anny: Cuadrillion (Demo) anny.audio Current version: 0.5.0 Compatibility: Tidal Cycles 1.0-dev (cb070d6) SuperDirt 1.0-dev (1c526bf) SuperCollider 3.8 License: CC-BY-SA https://creativecommons.org/licenses/by-sa/4.0/ See README.md for more information -} let bpm b = cps (b/60) msil = mapM_ ($ silence) every' n o f = when ((== (o-1)) . (`mod` n)) f d'drum = d1 d'perc = d2 d'bass = d3 d'bleep = d4 d'gt = d5 d'gt2 = d6 d'gt3 = d7 bpm 149 -- @cubleep d'bleep $ -- every' 5 2 (iter 4) $ -- (2) -- every 3 (rev . slow 2 . chop 4) $ -- (1) n "[[~ 0] ~ 1 ~]/4" # s "bleep" # gain 1.2 -- @cudrumintro d'drum $ every' 16 16 (overlay $ n "~ 1!!" # s "drum") $ 1 <~ n "1/16" # s "drum" -- (0) -- n "{1, [~! [~ 0]!]/4}" # s "drum" -- (1) -- n "{1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum" -- (2) -- cudrumintro @ 1 -- cudrumintro @ 2 -- @cuperc d'perc $ stack [ -- 0.25 ~> n "[~ 3 2 ~ 0 2 3]/7", -- (3) -- 0.75 ~> n "[3 2 ~ 2 3]/5", -- (2) -- 0.5 ~> n "[3 2 ~]/3", -- (1) n "[~ 1 0 ~]/4" ] # s "drum2" -- cuperc @ 1 -- @cudrum d'drum $ -- every' 16 16 (density 2) $ -- (1) replacing (0) every' 16 16 (within (0.5, 1) $ density 2) $ -- (0) n "{0, 1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum" -- @cubass d'bass $ -- slowspread slow [1,1,1,2,3] $ -- (2) (0.5 <~) $ rev $ gap 32 $ -- superimpose ((# gain 0.7) . (# speed 3)) $ -- (1) every' 32 31 (overlay $ n "2" # s "drbass") $ every' 16 16 (overlay $ n "1 ~" # s "drbass") $ n "[0 0 [~ 0] !]/4" # s "drbass" # gain 0.9 # vowel "{a, i}" # shape 0.4 # orbit 1 # room 0.2 # size 0.1 # resonance 0.1 # cutoff 10 -- 10 -> 130, then delete -- @cugt d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove -- every 3 (slow 32) $ -- (1) then (2) remove every 2 rev $ (0.5 ~>) $ slow 8 $ smash 16 [1,2] $ striate 16 $ n "0" # s "acb" # cut 7 # gain 0.8 -- 0.1 -> 0.8 # speed (scale 0.7 1.4 $ slow 3 sine1) # vowel "u" -- @cugt2 d'gt2 $ (0.5 <~) $ slow 8 $ iter 4 $ striate 16 $ sound "acg" # cut 6 # shape 0.4 # gain 0.9 -- cudrum @ 1 -- @cugt3 let hp = 240 lp = 1200 r = 0.3 in d'gt3 $ (3 ~>) $ -- every' 4 2 (superimpose (3 <~)) $ -- (1) and (2) remove slow 16 . gap 8 $ -- (2) remove -- slow 30 . gap 15 $ -- (2) sound "dg" # gain 0.9 # orbit 1 # room 0.2 # size 0.1 # speed (scale 1 1.25 $ slow 4.1 sine1) # cutoff lp # resonance r # hcutoff hp # resonance r msil [d'gt, d'gt2, d'gt3] -- cuperc @ 2 -- cuperc @ 3 -- cugt @ 1 -- cubass @ 1 -- cugt2 -- cugt @ 2 then 3 -- cugt3 @ 2 msil [d'gt, d'gt2, d'gt3, d'bass] hush