bowed-string.lhs

bowed string (jmcc)

> let { rrand l r = getStdRandom (randomR (l, r)) 
>     ; choose l = fmap (l !!) (rrand 0 (length l - 1))
>     ; root = 5
>     ; scale = map (+ root) [0, 2, 4, 5, 7, 9, 11] 
>     ; oct = [24, 36, 48, 60, 72, 84] }
> in do { n0 <- clone 2 (brownNoise AR)
>       ; r0 <- expRand 0.125 0.5
>       ; r1 <- rand 0.7 0.9
>       ; r2 <- replicateM 12 (rand 1.0 3.0)
>       ; f <- fmap midiCPS (liftM2 (+) (choose scale) (choose oct))
>       ; n1 <- lfNoise1 KR r0
>       ; let { x = n0 * 0.007 * max 0 (n1 * 0.6 + 0.4)
>             ; geom n i z = take n (iterate (* z) i)
>             ; iota n i z = take n (iterate (+ z) i)
>             ; d = klankSpec (iota 12 f f) (geom 12 1 r1) r2
>             ; k = klank x 1 0 1 d }
>         in audition (out 0 (softClip (k * 0.1))) }

{ var root = 5
; var scale = #[0, 2, 4, 5, 7, 9, 11] + root
; var oct = #[24, 36, 48, 60, 72, 84]
; var f = (scale.choose + oct.choose).midicps
; var n0 = BrownNoise.ar().dup
; var r0 = ExpRand.new(0.125, 0.5)
; var n1 = LFNoise1.kr(r0)
; var r1 = Rand.new(0.7,0.9)
; var r2 = Array.fill(12, { Rand.new(1.0, 3.0) })
; var x = n0 * 0.007 * max(0, n1 * 0.6 + 0.4)
; var d = `[Array.series(12, f, f), Array.geom(12, 1, r1), r2]
; var k = Klank.ar(d, x)
; Out.ar(0, (k * 0.1).softclip) }.play