<info>
Convoluter
Jean Piche -- 1998
</info>
<tk_interface>
cfilein name -label "Audio file"
cfilein conv -label "Convolution file"
cslider delay -label  "Delay for Audio File" -ori h -rat i -res .01 -min 0 -max 60 -init 1
cslider gain -label "Post-balance Gain"  -res .01 -min 0 -max 4 -init 1
cslider total_time -unit s -ori h -min 1 -res .01 -max 300 -init 30
ctoggle bal -label "Balance with Audio input" -init 1
cgraph mix -unit x -rel lo -min 0.001 -max 1 -init .5
</tk_interface>
<mono>
	instr 1 
p3	=	[sinfo name dur] + gidelay

a1  	soundin	"[name]"
ar1  	convolve  	a1, "[conv]"

adel1	delay	a1, gidelay 

if gkbal != 1 goto nobal
ar1	balance	ar1, a1

nobal:
out		 ((ar1*gkmix)+(adel1*(1-gkmix)))*gkgain
																										endin
</mono>
<stereo>
	instr 1 
p3	=	[sinfo name dur] + gidelay+2

a1, a2  	soundin	"[name]"
ar1  	convolve  	a1, "[conv]"
ar2  	convolve  	a2, "[conv]"

adel1	delay	a1, gidelay 
adel2	delay	a2, gidelay

if gkbal != 1 goto nobal
ar1	balance	ar1, a1
ar2	balance	ar2, a2

nobal:
outs1		 ((ar1*gkmix)+(adel1*(1-gkmix)))*gkgain 
outs2		 ((ar2*gkmix)+(adel2*(1-gkmix)))*gkgain
																										endin
</stereo>
<quad>

</quad>
<score>
i1 0 [total_time]
</score>
