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

(let* ((root 5)
       (scale (map (lambda (n) (+ n root)) (list 0 2 4 5 7 9 11)))
       (oct (list 24 36 48 60 72 84))
       (f (midicps (+ (choose scale) (choose oct))))
       (n0 (clone 2 (BrownNoise ar)))
       (r0 (ExpRand 0.125 0.5))
       (n1 (LFNoise1 kr r0))
       (r1 (rand 0.7 0.9))
       (r2 (list-tabulate 12 (lambda (_) (Rand 1.0 3.0))))
       (x (Mul* n0 0.007 (Max 0 (MulAdd n1 0.6 0.4))))
       (d (klank-data (iota 12 f f) (geom 12 1 r1) r2))
       (k (Klank x 1 0 1 d)))
  (audition (Out 0 (SoftClip (Mul k 0.1)))))