Juliese/for-mix2.tidal

{-
anny's wicked funky new song
totally not banging
just funky
woo woo

i shouldn't drink before i comment code

http://anny.audio
-}

cps (99/60)
let every' n o f = when ((== (o-1)) . (`mod` n)) f

{-
some defs cause i'm starting to lose track of all the copy pasta
and fuck up my function ordering and gains

n.b. cutgroup denotes channel e.g. cut "4" == d4
-}

-- bass template
let bassbass = s "[[vb vb:1] ~]/2"
               # end (slow 1.4 "0.2 0.4")
               # vowel "e o"

let bassbass' = bassbass # speed (slow 2.5 "1 -1")

-- lay more k over 4tf k
let morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")

-- final main drum loop, for reference
-- n.b. DO NOT copy such shit all over the place like you did with piston, you ass
let drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"

-- basic hats
let hhb m = smash 16 [0.25, 0.5] $
            (if m then (every 3 (append $ s "hh:1 hh")) else id) $
            s "hh hh:2"
            # gain "0.6"

-- udu
let ududu = slow 4 . chop 128 $
            s (samples "udu" (slow 4 $ irand 4))
            # gain "0.8"
            # cut "6"

-- guitar (i think)
let eg g = gap 128 $ s "eg*2"
           # gain g
           # cut "4"

-- other guitar
let gt g = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
           chop 128 $
           s "[gt [~ gt] ! ~]/2"
           # gain g
           # cut "5"

let pcbeep = slow 16 $ gap 48 $ s "pc:1"
             # gain "0.7"
             # cut "7"
             # speed "[1 0.7]"

{-
here goes i guess
-}

hush

d3 $ bassbass
d2 $ hhb False
d3 $ bassbass'
d1 $ s "k"

d1 $ morek $ s "k"
d2 $ whenmod 16 15 (density 3) $ hhb False

d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
d3 $ whenmod 3 2 (slow 2) $ bassbass'
d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'

d1 $ overlay ((1 ~>) $ s "cy/8") $
  overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"

d2 $ whenmod 16 15 (density 3) $ hhb True
d2 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True

d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"

d6 $ ududu

d9 $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
d9 $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"

d4 $ density 0.25 $ eg "0.7"

d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"

d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.25 $ eg "0.7"

d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.25 $
  slowspread density [1, 2, 0.5, 2] $ eg "0.7"

d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
  # speed "[1 1 2]/3"

d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.245 $ -- !
  slowspread density [1, 2, 0.5, 2] $ eg "0.7"

d1 $ overlay ((1 ~>) $ s "cy/8") $
  overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"

mapM_ ($ silence) [d2,d3]

-- fuck yeah. const rules
d4 $ (0.18 <~) $ every 2 (const silence) $
  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.245 $
  slowspread density [1, 2, 0.5, 2] $ eg "0.75"

d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
d1 $ overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"

d7 $ pcbeep
d7 $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep

d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  (whenmod 7 5 $ trunc (5%6)) $ ududu

d7 $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep

d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  # speed "[1 1 2]/3"

d7 $ whenmod 7 5 (density 1.25) $
  slowspread ($) [rev, id, brak, (0.25 ~>), id] $
  slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep

d5 $ gt "0.75"

d5 $ gt "0.75"
  # speed ((+1).(/4) <$> slow 1.95 sinewave1)

-- OOOOOOHHHH MY FUCK
d9 $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
  every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
  # speed "[1 1 2]/3"

d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True

d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'

-- funkier bassline w slowspread lambda, thanks yaxu. thaxu
d3 $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
  whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'

d6 $ (every' 5 3 $ brak) $
  (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  (whenmod 7 5 $ trunc (5%6)) $ ududu

-- bye const
d4 $ (0.18 <~) $
  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.245 $
  slowspread density [1, 2, 0.5, 2] $ eg "0.7"

d5 $ density 0.98 $ gt "0.75"
  # speed ((+1).(/4) <$> slow 1.95 sinewave1)

mapM_ ($ silence) [d4,d9]

d1 $ stack [
  every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  ]

d8 $ slow 16 . gap 64 $ s "pclow"
  # gain "0.8"

d8 $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
  # gain "0.8"

d8 $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
  # gain "0.8"
  # speed "1 1.5"

mapM_ ($ silence) [d3,d6,d7]

d8 $ slow 16 . gap 64 $ s "pclow"
  # gain "0.8"

mapM_ ($ silence) [d2,d5]
hush

{-
scratch area to keep stuff that's interesting but maybe doesn't fit in
-}

-- totally different drum line, feelwise. even though it's nearly the same
-- kinda don't like it but not gonna chuck it yet, got a nice hip hop bent
d1 $ overlay ((1 ~>) $ s "sn/2") $ morek $ s "k"

-- outro drum line, could be variabl...ized cause no way i can type this all out live
d1 $ stack [
  every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
  every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
  ]