sr=44100
ksmps=25
nchnls=2
garvbl init 0
garvbr init 0
instr 11
acrnch guiro 0dbfs * .7, p3
kjit jitter .2, 5, 15
koffs = kjit + 1
acrmod = acrnch * koffs
kfc expseg 4000, p3,8000
;acrf lowpass2 acrmod, kfc, 10
acrf butterhp acrmod, kfc
aenv linseg 0, .008, 1, p3-.01, 1, .002, 0
acrenv = acrf * aenv
anot delayr .4
a1 deltap .04
a2 deltap .06
a3 deltap .12
a4 deltap .1
a5 deltap .14
a6 deltap .17
a7 deltap .2
a8 deltap .19
delayw acrenv
garvbl = garvbl + .4*a1 + .2*a3 + .3*a5 + .2*a7 + acrenv
garvbr = garvbr + .4*a2 + .2*a4 + .3*a6 + .2*a8 + acrenv
outs acrenv, acrenv
endin
instr 12
krvt init p4
al reverb garvbl, krvt
ar reverb garvbr, krvt
outs al, ar
garvbl = 0
garvbr = 0
endin
i11 0 .18
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i11 ^+.14 .
i12 0 10 .04
e