wind-metals.lhs

wind metals (jmcc)

> let n = 6
> in do { base <- M.expRand 60 4000
>       ; range <- M.rand 500 8000
>       ; n0 <- clone 2 (M.brownNoise ar)
>       ; r0 <- M.expRand 0.125 0.5
>       ; n1 <- M.lfNoise1 kr r0
>       ; f <- replicateM n (M.rand base (base + range))
>       ; dt <- replicateM n (M.rand 0.1 2)
>       ; let { exc = n0 * 0.007 * max 0 (n1 * 0.75 + 0.25)
>             ; k = klankSpec f (replicate n 1) dt
>             ; s = klank exc 1 0 1 k }
>         in audition (out 0 (softClip (s * 0.1))) }

{ var n = 6
; var base = ExpRand.new(60, 4000)
; var range = Rand.new(500.0, 8000.0)
; var n0 = BrownNoise.ar([0.007, 0.007])
; var r0 = ExpRand.new(0.125, 0.5)
; var n1 = LFNoise1.kr(r0, 0.75, 0.25)
; var exc = n0 * max(0, n1)
; var f = Array.fill(n, { Rand.new(0, range) + base })
; var dt = Array.fill(n, { Rand.new(0.1, 2.0) })
; var s = Klank.ar(`[f, nil, dt], exc)
; Out.ar(0, (s * 0.1).softclip) }.play