birds.lhs

birds (jmcc)

> import Sound.SC3

> let { node = do { r1 <- rand 94.0 102.0
>                 ; r2 <- rand (-1.5) 1.5
>                 ; r3 <- rand 0.0 1.0
>                 ; r4 <- rand 11.0 15.0
>                 ; r5 <- rand 0.0 1.0
>                 ; r6 <- rand 12.0 15.6
>                 ; r7 <- rand 0.0 1.0
>                 ; r8 <- rand (-1.0) 1.0
>                 ; let { f = r1 + lag (lfSaw AR (7 + r2) r3 * r4) 0.1
>                       ; a = lfPulse KR (1.0 / r6) r7 0.16 * 0.05
>                       ; b = sinOsc AR (midiCPS f) r5 * a } 
>                   in return (rotate2 b (silent 1) r8) }
>     ; apf i = do { r1 <- rand 0.0 0.06
>                  ; r2 <- rand 0.7 2.0
>                  ; return (allpassL i 0.07 r1 r2) }
>     ; composeM [] i = return i
>     ; composeM (f:fs) i = f =<< composeM fs i
>     ; chainM n f = composeM (replicate n f) }
> in do { d <- return . sum =<< sequence (replicate 6 node)
>       ; w <- chainM 12 apf d
>       ; audition (out 0 (d * 0.7 + w * 0.3)) }

http://lists.create.ucsb.edu/pipermail/sc-users/2007-April/033239.html