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)))))