diffraction.lhs

diffraction (rd)

> let { p = let { x = mouseX kr 0.001 0.02 Exponential 0.1
>               ; y = mouseY kr 120 400 Exponential 0.1 }
>           in do { f <- liftM (* mce2 32 64) (M.lfNoise0 kr 4)
>                 ; w <- liftM (* x) (M.lfNoise0 kr 32)
>                 ; z <- liftM (* 0.1) (M.lfNoise0 kr 2)
>                 ; m <- M.lfNoise0 kr 6
>                 ; let s = pulse ar f w
>                   in return (resonz s (y + z) (m * 0.4 + 0.8) * 0.5) }
>     ; q = do { n <- M.lfNoise0 kr 128
>              ; s <- p
>              ; return (combN s 0.2 (n * 0.1 + 0.1) 3) }
>     ; r = let { x = mouseX kr 0.75 1.25 Exponential 0.1
>               ; y = mouseY kr 0.25 1 Exponential 0.1
>               ; f _ = do { fr <- liftM (* x) (M.rand 50 59)
>                          ; am <- liftM (* y) (M.rand 0.04 0.16)
>                          ; return (sinOsc ar fr 0 * am) } }
>           in liftM2 mce2 (mixFillM 16 f) (mixFillM 12 f) }
> in audition . (out 0) . sum =<< sequence [p, q, r]