sr = 44100
		kr = 4410
		ksmps = 10

;to play 7 second file
		instr   1
ktime	line 0,p3,7
krsa,kora,ker,kf   lpread  ktime,1
abuz	buzz kora,cpspch(p4)+(0.1*kf),int(sr/880),1
anz		rand krsa*5
asig	= abuz+anz
alp		lpreson asig
aout	balance alp,abuz
		out aout
		endin

; for voice, to play through file
		instr   2
kamp	linseg 0,.05*p3,1,.9*p3,1,.05*p3,0
ktime	line p2/2,p3,p2/2+p3
krsa,kora,ker,kf   lpread  ktime,1
abuz	gbuzz kora*kamp,cpspch(p4)+(0.1*kf),int(sr/880),1,.7,2
anz		rand krsa*5*kamp
asig	= abuz+anz
alp		lpreson asig
aout	balance alp,abuz
		out aout
		endin	

;to play with spectrum tracking, 7 second file
		instr   3
ktime   line 0,p3,7
krsa,kora,ker,kf   lpread  ktime,1
abuz	gbuzz kora,cpspch(p4)+(0.1*kf),int(sr/880),1,.7,2
anz		rand krsa*5
asig	= abuz+anz
alp		lpfreson asig,cpspch(p4)/110
aout	balance alp,abuz
		out aout
		endin