sr=44100
kr=44100
ksmps=1 ; keep small for feedback loop

;Monophonic flanger
;Reads in a mono sound file to process
;Scott Lehman, 1996

giSin	ftgen	1,0,4096,10,1
;giTri	ftgen	2,0,4096,1, "triangle-lfo.aif", 0, 0, 1

giLFO = giSin
;giLFO = giTri

instr 1
	aIn	in

	iMix = 1
	iRegen = 0
	iDelay = .004
	iDepth = .005
	iRate = 1/3.934

	alfo	oscil .5*iDepth, iRate, giLFO
	alfo 	=alfo + .5*iDepth + iDelay

	adummy	delayr 1
	aDelay	deltapi alfo
	delayw	aIn + iRegen*aDelay

	aOut	=  aIn + iMix*aDelay

	out	.5*aOut
endin