ccomb.lhs

ccomb (rd)

> import Sound.SC3

> let { rng l r i = linLin i (-1) 1 l r
>     ; lwr = 48
>     ; flwr = midiCPS lwr
>     ; spart t = do { n <- fmap (rng lwr 72.0) (lfNoise2 kr 0.1)
>                    ; e <- fmap (decay2 t 0.01) (tRand 0.05 0.75 t)
>                    ; x <- fmap (* e) (whiteNoise ar)
>                    ; 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 <- dust kr (mce2 0.75 0.35)
>       ; audition . (out 0) . (* 0.1) . sum =<< sequence (replicate 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