https://soundcloud.com/1vm/sc-170207-213839-xcrpt

excerpt.tidal

cps 0.45

solo $
do
  let runnow d p = do now <- getNow
                      d $ (nextSam now) ~> p
      oneshot d p = runnow d $ seqP [(0, 1, p)]
      mute = const silence
      hctf = (# hcutoff "100")
      habi r s o = (# room r) . (# size s) . (# orbit o)
      rspeed = (# speed (scale 0.5 2 rand))
      smp p r = sound $ samples p $ run r
      smp' p f = sound $ samples p $ f
      smpThink r = const $
                   every 4 (sometimes rspeed) $
                   (smp "think*16" r)
                   # cut "1"
                   # cutoff (scale 150 15000 $ slow 32 sine1)
  runnow d2 $
    superimpose (
      (const $
       degrade $
       slowspread iter [2,4,6,8,16] $ 
       gap 2 $ 
       striate 2 $ 
       sometimes (|*| speed "-1") $
       (smp' "think*8" (discretise 0.5 $ choose [0,4,7,1,9,8,5])
       )
       # speed "0.75"
       # end rand
       # cut "1"
      )
    ) $
    habi "0.25" "0.9" "1" $
    sometimes (# resonance (scale 0.125 0.25 sine1)) $
    slowspread (smpThink) [8,16,1,8,24,2,32,4] $ n ""
  runnow d3 $
    sometimes (
      superimpose (
         (const $
          stut 4 0.75 0.75 $
          smp' "alpkeys(5,8)" (choose [0..16])
          # delay "0.125"
          # delaytime "0.5"
          # delayfeedback "0.75"
          # coarse ((floor <$>) $ scale 1 16 rand)
          # cutoff (scale 150 1500 $ slow 32 sine1)
         )
         )
      ) $
    sometimes (|+| resonance (scale 0.25 0.75 sine1)) $ 
    every 4 (sometimesBy 0.25 ((|*| speed "-1"))) $
    sometimesBy 0.25 (habi "0.75" "0.9" "3") $
    stut 2 0.75 0.75 $ 
    (smp' "keys2*16" (sometimes (discretise 1) $
                      choose [0..16]))
    # gain "0.8"
    # cutoff (scale 1000 1500 sine1)