sr=44100
kr=44100
ksmps=1
nchnls = 2

;Stereo Flanger (or a crude approximation)
;Input is a stereo source file, but channels are mixed before processing.
;Outputs taken from two monophonic flangers running in qudrature phase.
;Scott Lehman, 1996

giSin	ftgen	1,0, 4096, 10, 1

instr 1
	aLeft, aRight	ins	
	aIn = .5*aLeft + .5*aRight
	iMix = 1
	iRegen = 0
	iDelay = .001
	iDepth = .002
	iRate = 1/(3.93)

	alfoL	oscil .5*iDepth, iRate,giSin
	alfoL 	=alfoL + .5*iDepth + iDelay

	alfoR	oscil .5*iDepth, iRate,giSin, .25
	alfoR 	=alfoR + .5*iDepth + iDelay

	adummy	delayr 1
	aDelayL	deltapi alfoL
	delayw	aIn + iRegen*aDelayL

	adummy	delayr 1
	aDelayR	deltapi alfoR
	delayw	aIn + iRegen*aDelayR

	aLeftOut	=  aIn + iMix*aDelayL
	aRightOut	=  aIn + iMix*aDelayR

	outs	.5*aLeftOut, .5*aRightOut
endin