modal space (jmcc)

> let { b = 0
>     ; p = [0, 2, 3.2, 5, 7, 9, 10] 
>     ; x = mouseX KR 0 15 Linear 0.1
>     ; k = degreeToKey 0 x 12
>     ; c n r = let { o = sinOsc AR (midiCPS (r + k + n * 0.04)) 0 * 0.1
>                   ; t = lfPulse AR (midiCPS (mce2 48 55)) 0.15 0.5
>                   ; f = midiCPS (sinOsc KR 0.1 0 * 10 + r)
>                   ; d = rlpf t f 0.1 * 0.1
>                   ; m = o + d }
>               in combN m 0.31 0.31 2 + m }
> in withSC3 (\fd -> do { async fd (b_alloc b (length p) 1)
>                       ; send fd (b_setn1 b 0 p)
>                       ; n <- clone 2 (lfNoise1 KR 3)
>                       ; play fd (out 0 ((c n 48 + c n 72) * 0.25)) })

{ var s = Server.default
; var b = 0
; var p = FloatArray[0, 2, 3.2, 5, 7, 9, 10]
; var x = MouseX.kr(0, 15, 'linear', 0.1)
; var k = DegreeToKey.kr(b, x, 12)
; var c = { arg n, r
          ; var o = SinOsc.ar((r + k + (n * 0.04)).midicps, 0) * 0.1
          ; var t = LFPulse.ar([48, 55].midicps, 0.15, 0.5)
          ; var f = (SinOsc.kr(0.1, 0) * 10 + r).midicps
          ; var d = RLPF.ar(t, f, 0.1) * 0.1
          ; var m = o + d
          ; CombN.ar(m, 0.31, 0.31, 2) + m }
; var n = LFNoise1.kr([3, 3])
; var b_setn1 = { arg b, i, p
                ; ["/b_setn", b, i, p.size] ++ p }
; s.sendMsg("/b_alloc", b, p.size, 1, b_setn1.value(b, 0, p).asRawOSC)
; Out.ar(0, (c.value(n, 48) + c.value(n, 72)) * 0.25) }.play

(let* ((b 0)
       (p (list 0 2 3.2 5 7 9 10))
       (x (MouseX kr 0 15 0 0.1))
       (k (DegreeToKey 0 x 12))
       (c (lambda (n r)
	    (let* ((o (Mul (SinOsc ar (MIDICPS (Add3 r k n)) 0) 0.1))
		   (t (LFPulse ar (MIDICPS (mce2 48 55)) 0.15 0.5))
		   (f (MIDICPS (MulAdd (SinOsc kr 0.1 0) 10 r)))
		   (d (Mul (RLPF t f 0.1) 0.1))
		   (m (Add o d)))
	      (Add (CombN m 0.31 0.31 2) m)))))
  (with-sc3
   (lambda (fd)
     (async fd (/b_alloc 0 7 1))
     (send fd (/b_setn1 0 0 p))
     (let ((n (Mul (LFNoise1 kr (mce2 3 3.05)) 0.04)))
       (play fd (Out 0 (Mul (Add (c n 48) (c n 72)) 0.25)))))))