ccomb.lhs

ccomb (rd)

> let { rng l r i = linLin i (-1) 1 l r
>     ; lwr = 48
>     ; flwr = midiCPS lwr
>     ; spart t = do { n <- liftM (rng lwr 72.0) (M.lfNoise2 kr 0.1)
>                    ; e <- liftM (decay2 t 0.01) (M.tRand 0.05 0.75 t)
>                    ; x <- liftM (* e) (M.whiteNoise ar)
>                    ; m <- M.lfNoise2 kr 0.1
>                    ; let f = lag (midiCPS n) 0.25
>                      in return (combC x (recip flwr) (recip f) (rng 1 8 m)) } }
> in do { t <- M.dust kr (mce2 0.75 0.35)
>       ; audition . (out 0) . (* 0.1) . sum =<< replicateM 12 (spart t) }

{ var lwr = 48
; var flwr = lwr.midicps
; var spart = { arg t
              ; { var n = LFNoise2.kr(0.1).range(lwr, 72.0)
                ; var e = Decay2.kr(t, 0.01, TRand.kr(0.05, 0.75, t))
                ; var x = WhiteNoise.ar() * e
                ; var m = LFNoise2.kr(0.1)
                ; var f = Lag.kr(n.midicps, 0.25)
                ; CombC.ar(x, flwr.reciprocal, f.reciprocal, m.range(1, 8)) } }
; var t = Dust.kr([0.75, 0.35])
; Out.ar(0, Mix.fill(12, spart.value(t)) * 0.1) }.play