packages feed

hsc3-graphs-0.8: src/cricket.lhs

cricket (rd)

> import Sound.SC3.Monadic

> main =
>   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