cricket.lhs

cricket (rd)

> do { r1 <- clone 2 (rand 10 13)
>    ; r2 <- clone 2 (rand 10 13)
>    ; r3 <- clone 2 (rand 4 7)
>    ; let { t = impulse KR 0.7 0
>          ; e = decay2 (impulse KR r1 0) 0.001 0.005
>          ; f = sinOsc KR r2 0 * e * r3 }
>      in do { r4 <- clone 2 (tRand 2220 2227 t)
>            ; audition (out 0 (sinOsc AR r4 0 * f * 0.25)) } }

{ var r1 = Array.fill(2, { Rand.new(10, 13) })
; var r2 = Array.fill(2, { Rand.new(10, 13) })
; var r3 = Array.fill(2, { Rand.new(4, 7) })
; var t = Impulse.kr(0.7, 0)
; var e = Decay2.kr(Impulse.kr(r1, 0), 0.001, 0.005)
; var f = SinOsc.kr(r2, 0) * e * r3
; var r4 = Array.fill(2, { TRand.kr(2220, 2227, t) })
; Out.ar(0, SinOsc.ar(r4, 0) * f * 0.25) }.play