sr = 44100
		kr = 4410
		ksmps = 10

;to play 10 second file slowly
		instr   1
kamp	linseg 0,.05*p3,1,.9*p3,1,.05*p3,0
ktime	line 0,p3,10
krsa,kora,ker,kf   lpread  ktime, 1
abuz	gbuzz kora*kamp,cpspch(p4)+(0.1*kf),int(sr/110),1,.8,2
anz		rand krsa*5
;asig	= abuz+anz
asig	= 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/4,p3,p2/4+p3
krsa,kora,ker,kf   lpread  ktime,1
abuz	gbuzz kora*kamp,cpspch(p4),int(sr/110),1,.8,2
anz		rand krsa*5*kamp
asig	= abuz+anz
alp		lpreson asig
aout	balance alp,abuz
		out aout
		endin	

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