;;;;
sr = 44100
kr = 4410
ksmps= 10
nchnls = 2
instr 1
idur = p3
iamp = (p4-(p4/4))
ifreq = p5
iat = p6
irel = p7
ipanstart = p8
ipanend = p9
kpan linseg ipanstart, idur, ipanend ; ; k1 linen ampdb(iamp), iat, idur, irel ; a1 oscili (k1 > 32000 ? 32000 : k1), ifreq, 1 ;
outs a1 * kpan, a1 * (1 - kpan)
endin