instr 128
128.orc
128.sco
  instr 128 ; Bandpass-Filtered Noise
idur = p3
iamp = p4
ifrq = p5
iatk = p6
irel = p7
icf1 = p8
icf2 = p9
ibw1 = p10
ibw2 = p11
kenv expseg .01, iatk, iamp, idur/6, iamp*.4, idur(iatk+irel+idur/6), iamp*.6, irel, .01
anoise rand ifrq
kcf expon icf1, idur, icf2
kbw line ibw1, idur, ibw2
afilt reson anoise, kcf, kbw, 2
  out afilt*kenv
  display kenv, idur
  endin
a 0 0 10

;ins st dur amp frq atk rel cf1 cf2 bw1 bw2
;==============================================================
i 128 10 5 .5 20000 .5 2 8000 200 800 30
i 128 14 5 .5 20000 .25 1 200 12000 10 200
i 128 18 3 .5 20000 .15 .1 800 300 300 40
i 128 20 11 .5 20000 1 1 40 90 10 40
i 128 23 7 .4 20000 .05 2 8000 150 100 50
i 128 25 5 .3 20000 2 1 800 2000 200 500
i 128 26 4 .2 20000 .03 .1 5000 200 1000 70
i 128 27 3 .1 20000 1 .1 30 6000 10 400