{-
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