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

(let* ((t (Dust kr (Mce 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))
       (f (MulAdd f1 (Mce 9000 12000) 9500))
       (o (Add* (Saw ar f) (Saw ar (Mul f dh)) (Saw ar (Mul f dt)))))
  (audition (Out 0 (Clip2 (Mul o a) 0.75))))