<info>
Simple High-pass 
atone or butterworth unit
gain is post-balance

Alexandre Burton , 1996
</info>
<tk_interface>
ctoggle balance  -label "Balance power with input file"
cfilein source -label "Sound File:"
ctoggle butterwrt  -label "Use Butterworth Filters"
cgraph freq  -label "Frequency\nCut-off" -unit Hz -rel log -min 20 -max 20000 -init 2000 
csepar
cgraph gain -label "Gain" -rel log  -min .1 -max 10 -init 1
</tk_interface>
<mono>
		instr 1


kfac	=	[sinfo source sr]/sr
ain 	diskin 	"[source]", kfac, [offsource]

if	(gkbutterwrt == 1) igoto butter

afilt	atone	ain, gkfreq
afilt	atone	ain, gkfreq
goto bal

butter:
afilt	butterhp	ain, gkfreq
afilt	butterhp	ain, gkfreq

bal:
if 	(gkbalance == 0 ) goto nobal
	afilt	balance afilt, ain
nobal:
	out	afilt*gkgain
	
			endin
</mono>
<stereo>
		instr 1


kfac	=	[sinfo source sr]/sr
aing, aind	diskin	"[source]", kfac, [offsource]
 
if	(gkbutterwrt == 1) igoto butter  
afiltg	atone	aing, gkfreq
afiltd	atone	aind, gkfreq
afiltg	atone	afiltg, gkfreq
afiltd	atone	afiltd, gkfreq
goto bal

butter:
afiltg	butterhp	aing, gkfreq
afiltd	butterhp	aind, gkfreq
afiltg	butterhp	afiltg, gkfreq
afiltd	butterhp	afiltd, gkfreq


bal:
if 	(gkbalance == 0 ) goto nobal
	afiltg	balance afiltg, aing
	afiltd	balance afiltd, aind

nobal:
	outs	afiltg*gkgain, afiltd*gkgain
	
			endin
</stereo>
<quad>

</quad>
<score>
#minimum
</score>
