waza

bss.tidal

cps 0.45

do
  let runnow d p = do now <- getNow
                      d $ (nextSam now) ~> p
      oneshot d p = runnow d $ seqP [(0, 1, p)]
      hctf = (# hcutoff "100")
      tS s' = toScale s'
      habi r s o = (# room r) . (# size s) . (# orbit o)
  runnow d4 $
    do x <- iter 4 $ listToPat [tS Scales.aeolian,
                                tS Scales.hexAeolian];
         sometimes (# cutoff (scale 1000 3000 $ slow 8 sine1)) $
         superimpose (
           sometimes (off 0.25 id) .
           stut 4 0.75 0.75 .
           slow 8 . (# sus "4") . (|+| n "12") .
           habi "0.25" "0.9" "3" .
           (# resonance (scale 0.5 0.666 (slow 32 sine1))) .
           (# cutoff (scale 500 900 (slow 32 sine1))) .
           (# gain "0.6")
           ) $
         stut 2 0.75 0.75 $
         n "[0(8,16,2)]"
         # n (iter 16 $ x "{c d f}%16")
         # s "[bassy,saw]"
         # sus "2"
         # rq (scale 0.5 2 (slow 8 $ sine1))
         # lpcutoff "1500"
         # ctf "200"
         # octave (fmap(+2) "[2 0 1 0]!!!")
         # gain "0.75"
         # ctf (scale 100 1500 saw1)
         # cutoff (scale 150 150 (slow 4 saw1))
         # room "0.25"
         # orbit "2"
  runnow d2 $
    sometimes (# vowel "{aeiou}%5") $
    foldEvery [17,18] (superimpose (# sus "3")) $
    stut 4 0.5 0.75 $
    slowcat[
      sound "[0(5,8,2),0(3,8)]"
      # s "fm"
      # n (sometimes (within(0,0.5)(fmap (subtract nn))) $
           iter 16 $ toScale Scales.hexAeolian "{e a d}%16") |
      nn <- [12, -12]]
    # sustain "1.75"
    # gain "1.5"
  runnow d1 $
    stack[
      stack[
         sound "kick(4,16)",
         degrade $
         sound "kick(1,16,14)"
         ]
      # release "0.05"
      ,
      every 6 (sometimes (within (0,0.25)(stut 2 0.5 0.5))) $
      every 4 (within(0.5,1)(stut 2 1 0.75)) $
      sound "sn(2,16,8)"
      # release "0.025"
      ,
      sound "hihat(8,16)"
      # release "0.05"
      ,
      sound "hihat(4,16,2)"
      # release "0.25"
      ]
    # gain "1.2"
    # room "0.25"
    # size "0.9"
    # orbit "1"