three-cpsw.lhs

three-cpsw (rd)

> do { t <- dust KR (mce2 12 18)
>    ; f0 <- tRand 1 64 t
>    ; f1 <- lfNoise0 KR f0
>    ; a <- tRand 0.0 0.5 t
>    ; dt <- tRand 0.975 1.025 t
>    ; dh <- tRand 0.750 0.7505 t
>    ; let { f = f1 * mce2 9000 12000 + 9500
>          ; o = saw AR f + saw AR (f * dh) + saw AR (f * dt) }
>      in audition (out 0 (clip2 (o * a) 0.75)) }

{ var t = Dust.kr([12, 18])
; var f0 = TRand.kr(1, 64, t)
; var f1 = LFNoise0.kr(f0)
; var a = TRand.kr(0.0, 0.5, t)
; var dt = TRand.kr(0.975, 1.025, t)
; var dh = TRand.kr(0.750, 0.7505, t)
; var f = f1 * [9000, 12000] + 9500
; var o = Saw.ar(f) + Saw.ar(f * dh) + Saw.ar(f * dt)
; Out.ar(0, (o * a).clip2(0.75)) }.play