sr     = 44100
	kr     = 4410
	ksmps  = 10
	nchnls = 1

	instr 1
iamp	= ampdb(p4)
;kamp	linseg 0,p3/4,iamp,p3/2,iamp,p3/4,0
kamp	expon iamp,p3,0.5
kindice	line p8/2,p3,p8
kport	line 79*p6/80,p3,p6
a1	foscil kamp,p5,kport,p7,kindice,1
	out a1
	endin