I have a problem with grain.

I programed the following csound orc & sco to study grain.  Then I
found that I always could not make the sound decay to 0 no matter how
long I set p3.  I used "kamp  oscil  1,1/idur,1" as usual to generate
the amplitude envelop.  What's wrong?

Any comment is welcomed.

Qian Chen


;orchestra file
sr=44100
kr=441
ksmps=100
nchnls=1

instr 1
idur    = p3
kamp	oscil  2000,1/idur,1
kcps  line   cpspch(5.00),1,cpspch(6.00)
kpitch  randh  1, kcps
idens	  = 125
iampoff = 200
ipitchoff = cpsoct(10)
igdur	    = .3
igfn    = 2
iwfn    = 3
imgdur  = .5
ar  grain kamp, kpitch, idens, iampoff, ipitchoff, igdur, igfn, iwfn,
imgdur
	     out ar
endin

;score file
f1 0 1024 7 0 512 1 512 0
f2 0 1024 5 0.1 200 1 300 .5 400 .7 124 .1
f3 0 1024 7 0 256 1 256 .5 256 1 256 0
i1 0 15 1
e




_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com