hey look, turntablism

turntablism.tidal

cps 0.666

let lpf = (# bandq "0.25") . (# bandf "0.9") . (# resonance "0.1") . (# cutoff "0.15")

dirt $
  stack[
    whenmod 21 7 (within(0,0.25)((# pan (scale 0.25 0.5 rand)) . (# vowel "h e y l o o k t u r n t a b l i s m"))) $
    every 12 (# speed "-1") $
    every 23 (# accelerate "-5") $
    sometimes( superimpose ((# coarse "16") . (# speed "2"))) $
    every 9 (jux (slowspread slow [3%8, 0.666, 1.23])) $
    superimpose (sometimes(within(0,0.5)(brak))) $ 
    density 3 $ 
    every 5 ((# speed "2") . sometimes lpf) $
    randcat[
      sound (samples "[[amencutup*2 !?], hh*2]" (irand 32))
      ]
    # cut "1"
    ,
    sound ( samples "alphabet" (irand 27))
    # cut (floor <$> scale 0 1 rand)
    # end rand
    # gain "0.666"
    # coarse (floor <$> scale 1 16 rand)
    ]
    # speed "[1 1 1 2]/4"