hsc3-graphs-0.11: src/mouse-clatter.scm

(let* ((x (MouseX KR 100 12000 0 0.1))
       (y (MouseY KR 0.01 0.15 0 0.1))
       (n1 (LFNoise0 KR (mce2 3 3.25)))
       (t (Impulse KR (MulAdd n1 16 18) 0))
       (n2 (TRand 0.005 y t))
       (n3 (WhiteNoise AR))
       (n4 (TRand 10 x t))
       (n5 (TRand 0.0 1.0 t))
       (n6 (TExpRand 0.15 1.0 t))
       (e (Decay2 t 0.01 n2))
       (o (BPF (Mul n3 e) n4 n5))
       (n7 (PV_RandComb (FFT* 10 o) n6 t))
       (s (Add (Mul o 0.05) (IFFT* n7))))
  (with-sc3
   (lambda (fd)
     (async fd (/b_alloc 10 2048 1))
     (play fd (Out 0 s)))))