rzblp.lhs

rzblp (rd)

> import Sound.SC3
> import qualified Sound.SC3.UGen.Unsafe as U

> main =
>   let { wrp i l r = let m = (r - l) / 2
>                     in i * m + l + m
>       ; lfn f l r = wrp (U.lfNoise0 kr f) l r
>       ; hpb q = mixFill 2 (\_ -> let { f = lfn q 1330 1395
>                                      ; a = lfn q 0.001 0.007 }
>                                  in blip ar f 24 * a)
>       ; mk_f d = let { q = lfn 5.2 5.2 5.21
>                      ; a = d dinf (mce [1, 3, 2, 7, 8])
>                      ; tr = impulse kr q 0
>                      ; freq = demand tr 0 a * 30 + 340 }
>                  in sum [ blip ar freq 3 * lfn q 0.001 0.01
>                         , resonz (impulse ar q (mce2 0 0))
>                                      (lfn 5 30 640)
>                                      (lfn q 0.1 0.5) * lfn q 0.01 1.8
>                         , hpb q * lfn q 1.2 1.8
>                         , blip ar (lfn q 16 36) 3 * mce2 0.03 0.09 ] }
>   in audition (out 0 (mk_f U.drand + mk_f U.dxrand))