hdf-0.14: gr/moto-rev.hs

import Control.Monad
import Sound.DF.Uniform.GADT {- hdf -}

main :: IO ()
main = audition [] moto_rev

-- > draw moto_rev
moto_rev :: DF ()
moto_rev =
    let dpl f a b = (f a,f b)
        f0 = sin_osc 0.2 0.0 * 10.0 + 21.0
        (s1,s2) = dpl (\x -> lf_pulse f0 x 0.1) 0.0 0.1
        (o1,o2) = dpl (\x -> rlpf x 100.0 0.1) s1 s2
        (c1,c2) = dpl (\x -> df_clip2 x 0.4) o1 o2
    in out2 c1 c2