<info>
pichej
Fri Dec 20 23:23:45 EST 1996
</info>
<tk_interface>
cslider total_time -label "Total Duration" -un sec. -res 1 -min 5 -max 360 -init 30
cfilein source 
cslider analysis_dur -label "Duration of Analysis file" -ra i -unit sec. -res  .1 -min .1 -max 120 -init 30
cslider slew -label "Smoothing"  -res .001 -min .0001 -max 1 -init .1
cgraph ind  -label "Index into\nAnalysis File" -min 0 -max 1 -func "0 0 1 1"
cgraph pitch  -label "Pitch" -rel lin -min 0.5 -max 3 -init 1 
cslider ind2 -label "Index Offset"  -res  .001 -min 0 -max 1 
cslider amp -label "Gain" -res .01 -min .1 -max 5 -init 1
</tk_interface>
<mono>
	instr 1 
kx	kport	gkind+gkind2, gkslew
kli	linseg	.5, .1, 0, p3, 0
ar	pvoc	kx*[analysis_dur], gkpitch+kli, "[source]", 1
out	ar*gkamp
		endin
</mono>
<stereo>
	instr 1 

gkpitch init 1
kx	kport	gkind+gkind2, gkslew
kli	linseg	.5, .1, 0, p3, 0
ar	pvoc	kx*[analysis_dur], gkpitch, "[source]", 1
ar =	ar*gkamp
ad	delay	ar, .078
ad2	delay	ar, .057
outs	ar+ad2, ar+ad
		endin
</stereo>
<quad>

</quad>
<score>
f1 0 8192 10 1
i1 0 [total_time]
e
</score>
