aleatoric quartet (jmcc)

> let { amp = 0.07
>     ; density = mouseX KR 0.01 1 Linear 0.1
>     ; dmul = recip density * 0.5 * amp
>     ; dadd = amp - dmul
>     ; chain n f = foldl (>=>) return (replicate n f)
>     ; rapf i = do { r <- clone 2 (rand 0 0.05)
>                   ; return (allpassN i 0.05 r 1) }
>     ; mk_f = do { i0 <- iRand 0 2
>                 ; let r0 = select i0 (mce [1, 0.5, 0.25])
>                   in do { r1 <- rand (-30) 30
>                         ; n0 <- lfNoise0 KR r0
>                         ; let m = lag (roundE (n0 * 7 + 66 + r1) 1) 0.2
>                           in return (midiCPS m) } }
>     ; mk_s = do { f <- fmap recip mk_f
>                 ; r <- rand (-1) 1
>                 ; x <- do { n0 <- pinkNoise AR
>                           ; n1 <- lfNoise1 KR 8
>                           ; return (n0 * max 0 (n1 * dmul + dadd)) }
>                 ; return (pan2 (combL x 0.02 f 3) r 1) } }
> in do { g <- chain 5 rapf =<< fmap sum (replicateM 4 mk_s)
>       ; audition (out 0 (leakDC g 0.995)) }

{ var amp = 0.07
; var density = MouseX.kr(0.01, 1, 'linear', 0.1)
; var dmul = density.reciprocal * 0.5 * amp
; var dadd = amp - dmul
; var rapf = { arg i
             ; var r = Array.fill(2, { Rand(0, 0.05) })
             ; AllpassN.ar(i, 0.05, r, 1) }
; var mk_f = { var i0 = IRand.new(0, 2)
             ; var r0 = Select.kr(i0, [1, 0.5, 0.25])
             ; var r1 = Rand.new(-30, 30)
             ; var n0 = LFNoise0.kr(r0)
             ; var m = Lag.kr((n0 * 7 + 66 + r1).round(1), 0.2)
             ; m.midicps }
; var mk_s = { var f = mk_f.value.reciprocal
             ; var r = Rand.new(-1, 1)
             ; var n0 = PinkNoise.ar()
             ; var n1 = LFNoise1.kr(8)
             ; var x = n0 * 0.max(n1 * dmul + dadd)
             ; Pan2.ar(CombL.ar(x, 0.02, f, 3), r, 1) }
; var g = Mix.fill(4, mk_s)
; 5.do({ g = rapf.value(g) })
; Out.ar(0, LeakDC.ar(g, 0.995)) }.play

(let* ((amp 0.4)
       (density (MouseX kr 0.01 1 0 0.1))
       (dmul (Mul (Recip density) (Mul 0.5 amp)))
       (dadd (Add (Neg dmul) amp))
       (rapf (lambda (i)
	       (let ((r (Mce (rand 0 0.05) (rand 0 0.05))))
		 (AllpassN i 0.05 r 1))))
       (mk_f (lambda ()
	       (let* ((i0 (IRand 0 2))
		      (r0 (Select i0 (Mce 1 0.5 0.25)))
		      (r1 (Rand -30 30))
		      (n0 (LFNoise0 kr r0))
		      (m (Lag (Round (MulAdd n0 7 (Add 66 r1)) 1) 0.2)))
		 (MIDICPS m))))
       (mk_s (lambda (_)
	       (let* ((f (Recip (mk_f)))
		      (r (Rand -1 1))
		      (n0 (PinkNoise ar))
		      (n1 (LFNoise1 kr 8))
		      (x (Mul n0 (Max 0 (MulAdd n1 dmul dadd)))))
		 (Pan2 (CombL x 0.02 f 3) r 1))))
       (g (mix/fill 4 mk_s)))
  (for-each (lambda (_) (set! g (rapf g))) (list 0 1 2 3))
  (audition (Out 0 (LeakDC g 0.995))))