<info>
Interpolation between two FFT analysis files
Jean Piche, 1997
</info>
<tk_interface>
cfilein name -label "FFT Analysis File 1"
cfilein name2 -label "FFT Analysis File 2"

cgraph index   -label "Index into\nAnalysis File 1"   -min  0 -max 1 -init .5  -func "0 1 1 0"
cgraph index2  -label "Index into\nAnalysis File 2"  -min 0 -max 1 -init .5   -func "0 0 1 1"

csepar
cgraph freqsca1  -label "Frequency Scale\nFile 1" -min 0 -max 2 -init 1.0 
cgraph freqsca2  -label "Frequency Scale\nFile 2" -min 0 -max 2 -init 1.0 

csepar
cgraph ampsca1  -label "Amplitude Scale\nFile 1" -min 0 -max 1 -init 0.5 
cgraph ampsca2  -label "Amplitude Scale\nFile 2" -min 0 -max 1 -init 0.5 

csepar
cgraph freqinterp  -label "Frequency\n Interpolation" -min 0 -max 1 -init 0.1 -func "0 0.1 1 .91"
cgraph ampinterp  -label "Amplitude\n Interpolation" -min 0 -max 1 -init 0.9 -func "0 .90 1 .1"



cslider total_time  -label "Total Duration" -un sec. -ra i -res  1 -min 5  -max 240 -init 30
cslider analdur1  -label "Duration of Analysis File 1"   -un sec. -ra i -res  .1 -min 1  -max 120  -init 30
cslider analdur2  -label   "Duration of Analysis File 2"   -un sec.  -ra i -res  .1 -min 1  -max 120  -init 30
cslider amp  -label  "Gain"  -res  .1  -min .1 -max 4  -init 1
</tk_interface>
<mono>
	instr 1 


	pvbufread			gkindex*[analdur1],   "[name]"  
ar	pvinterp			gkindex2*[analdur2], 1, "[name2]", gkfreqsca1, gkfreqsca2, gkampsca1, gkampsca2, gkfreqinterp, gkampinterp


out	ar*gkamp
		endin
</mono>
<stereo>
	instr 1 
kpind		port	gkindex, .02
	pvbufread			gkindex*[analdur1],   "[name]"  
ar	pvinterp			gkindex2*[analdur2], 1, "[name2]", gkfreqsca1, gkfreqsca2, gkampsca1, gkampsca2, gkfreqinterp, gkampinterp

ag	delay	ar, .05



outs	ar*gkamp, ag*gkamp
		endin
</stereo>
<quad>

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