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

(let* ((mRand (lambda (l r)
		(Mce (Rand l r) (Rand l r))))
       (mTRand (lambda (l r t)
		 (Mce (TRand l r t) (TRand l r t))))
       (r1 (mRand 10 13))
       (r2 (mRand 10 13))
       (r3 (mRand 4 7))
       (t (Impulse kr 0.7 0))
       (e (Decay2 (Impulse kr r1 0) 0.001 0.005))
       (f (Mul* (SinOsc kr r2 0) e r3))
       (r4 (mTRand 2220 2227 t)))
  (audition (Out 0 (Mul* (SinOsc ar r4 0) f 0.25))))