sr=44100 ksmps=25 nchnls=2 garvbl init 0 garvbr init 0 gkscale init 1 instr 11 acrnch guiro 0dbfs * .7, p3 kjit jitter .2, 5, 15 koffs = kjit + 1 acrmod = acrnch * koffs kfc expseg 4000, p3,8000 kfreq = kfc * gkscale ;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 100 krvt init p4 al reverb garvbl, krvt ar reverb garvbr, krvt outs al, ar garvbl = 0 garvbr = 0 gkscale expseg 1, p3, 2 endin ; instr 13 t 0 60 10 100 i11 0 .24 i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 . i11 ^+.16 1 i100 0 10 .09 e