h-chatter.lhs

h-chatter (rd)

> let { wrp i l r = linLin i (-1) 1 l r
>     ; mma m a = return . (+ a)  . (* m)
>     ; h0 = do { n <- mma 5 5 =<< lfNoise0 KR 1
>               ; a <- mma 0.2 1.2 =<< lfNoise2 KR n
>               ; b <- mma 0.15 0.15 =<< lfNoise2 KR n
>               ; let { f = 40
>                     ; h = henonN AR (mce2 f (f * 0.5)) a b 0 0 }
>                 in return (saw AR (h * 3200 + 1600) * 0.35) }
>     ; h1 = do { n0 <- lfNoise0 KR 32
>               ; n1 <- lfNoise0 KR 2
>               ; let { a = mouseX KR 1.2 1.4 Linear 0.1
>                     ; b = mouseY KR 0.2 0.3 Linear 0.1
>                     ; h = wrp n0 1 32
>                     ; p = wrp n1 2400 3200
>                     ; l = wrp n1 (-0.75) 0.75
>                     ; g = wrp n1 0.55 0.85
>                     ; f = 40
>                     ; o = blip AR (wrp (henonN AR f a b 0 0) p (p * 2)) h }
>                 in return (pan2 o l g * 0.35) } }
> in audition . out 0 =<< liftM2 (+) h0 h1

{ var h0 = { var n = LFNoise0.kr(1, 5, 5)
           ; var a = LFNoise0.kr(1, 0.2, 1.2)
           ; var b = LFNoise0.kr(1, 0.15, 0.15)
           ; var f = 40
           ; var h = HenonN.ar([f, f * 0.5], a, b, 0, 0)
           ; Saw.ar(h * 3200 + 1600) * 0.35 }
; var h1 = { var n0 = LFNoise0.kr(32)
           ; var n1 = LFNoise0.kr(2)
           ; var a = MouseX.kr(1.2, 1.4, 'linear', 0.1)
           ; var b = MouseY.kr(0.2, 0.3, 'linear', 0.1)
           ; var h = n0.range(1, 32)
           ; var p = n1.range(2400, 3200)
           ; var l = n1.range(-0.75, 0.75)
           ; var g = n1.range(0.55, 0.85)
           ; var f = 40
           ; var o = Blip.ar(HenonN.ar(f, a, b, 0, 0).range(p, p * 2), h)
           ; Pan2.ar(o, l, g) * 0.35 }
; Out.ar(0, h0.value + h1.value) }.play

(let* ((wrp (lambda (i l r)
	      (let ((m (FDiv (Sub r l) 2)))
		(MulAdd i m (Add l m)))))
       (h0 (let* ((n (MulAdd (LFNoise0 kr 1) 5 5))
		  (a (MulAdd (LFNoise2 kr n) 0.20 1.20))
		  (b (MulAdd (LFNoise2 kr n) 0.15 0.15))
		  (f 40)
		  (h (HenonN ar (Mce f (Mul f 0.5)) a b 0 0)))
	     (Mul (Saw ar (MulAdd h 3200 1600)) 0.35)))
       (h1 (let* ((n0 (LFNoise0 ar 32))
		  (n1 (LFNoise0 ar 2))
		  (a (MouseX kr 1.2 1.4 0 0.1))
		  (b (MouseY kr 0.2 0.3 0 0.1))
		  (h (wrp n0 1 32))
		  (p (wrp n1 2400 3200))
		  (l (wrp n1 -0.75 0.75))
		  (g (wrp n1 0.55 0.85))
		  (f 40)
		  (o (Blip ar (wrp (HenonN ar f a b 0 0) p (Mul p 2)) h)))
	     (Mul (Pan2 o l g) 0.35))))
  (audition (Out 0 (Add h0 h1))))