pulse_hurricane.tidal

do  -- i <3 perlin 
  let p2w a b = perlin2With (slow a $ cosine) (slow b $ sine) 
  d1 $ every 8 (fast 2)
     $ juxBy (p2w 2 8) (|+ coarse "2")
     $ juxBy (p2w 3 5) (|* coarse (segment (1/4) $ choose[2..20]))
     $ s "[supersaw:-36*32, supersaw:-24?*4, supersaw:36?*1]"
     # bpf (rangex 40 6000 $ p2w 2.2 1.15)
     # hpf (rangex 40 6000 $ p2w 4 2.475)
     # accelerate (range (-1) 1 $ p2w 10.8 2.3)
     # legato (range 0 2 $ p2w 5 4)
     # cps (p2w 12 5.5) |+ cps "0.25"
     # shape (range 0 0.9 $ p2w 2 3)
     # size (p2w 6 5)
     # room "0.2"
     # gain "0.8"