test.hs

bps (140/120)

do
  let chord1 = "[0,2,-2]"
      chord2 = "[0,-2,-4,-7]"
      pat = "{1 1*2 ~ 1 ~ [~ 1] ~ ~ 1*2 1*2 ~ ~ 1*4 ~}%8"
      tmod p = whenmod 13 10 (iter 8) $ foldEvery [5,7,9] (slow (4/3)) $ foldEvery [3,4] (0.25 <~) $ p
  stab $ rarely (stut' 1 (0.125*3) (|+| note "12")) $
    tmod $ every 5 (degrade) $ whenmod 8 4 (|+| n "-2") $ gain pat # note chord2 # dur "0.4"
    |=| x (slow 3 tri1)
    |=| y (slow 1.33 tri1)
    |=| z (slow 2.66 tri1)
  d1 $ tmod $ stack [
    sound "ch*4" # gain "0.9",
    struct pat $ sound "k:5" # cut "234",
    sound "cp*2" |=| nudge (scale 0.001 0.5 $ rand) ]
  bass $ tmod $ whenmod 8 4 (|+| n "-2") $ (foldEvery [2,4,6] (const $ (0.0625 ~>) $ note "{0 ~ ~ 0*2 ~ ~ ~}%4") $ note "~")
    |=| dur "0.5"
    |=| x (slow 2.33 tri1)
    |=| y (slow 2.66 tri1)
    |=| z (slow 1.66 tri1)