moto-rev.lhs

moto rev (jmcc)

> import Control.Monad
> import Sound.DF

> let { dpl f a b = (,) (f a) (f b)
>     ; madd m a = fmap ((+ a) . (* m))
>     ; dplm f a b = liftM2 (,) (f a) (f b) }
> in do { f <- madd 10.0 21.0 (sin_osc 0.2 0.0)
>       ; (s1, s2) <- dplm (\x -> lf_pulse f x 0.1) 0.0 0.1
>       ; (o1, o2) <- dplm (\x -> rlpf x 100.0 0.1) s1 s2
>       ; let (c1, c2) = dpl (\x -> clip2 x 0.4) o1 o2
>         in audition [] (out2 (c1, c2)) }

let { f = sinOsc kr 0.2 0 * 10 + 21
    ; s = lfPulse ar f (mce2 0 0.1) 0.1 }
in audition (out 0 (clip2 (rlpf s 100 0.1) 0.4))