/* SFX DelayFX */

OPTIONS RESULTS
ADDRESS REXX_SFX

GetActiveBuffer
buf1=RESULT
IF buf1>-1 THEN DO
	GetLength buf1
	dellen=RESULT/16
	GetChannels buf1
	cha=RESULT
	IF cha=2 THEN DO
		SelOperator 'Delay'
		SetOperatorParam 'Delay' 'P1ModShape' 'Linear'
		SetOperatorParam 'Delay' 'P2S' '0.4'
		SetOperatorParam 'Delay' 'P2ModShape' 'None'
		SetOperatorParam 'Delay' 'P3S' dellen
		SetOperatorParam 'Delay' 'P3ModShape' 'None'
		SetOperatorParam 'Delay' 'Ampf' '1.25'
		DisableChannel buf1 1
		SetOperatorParam 'Delay' 'P1S' '0.0'
		SetOperatorParam 'Delay' 'P1E' '0.5'
		ProcessSample buf1
		IF RC=0 THEN buf1=RESULT
		ELSE buf1=-2
		buf2=-1
		IF buf1>-1 THEN DO
			EnableChannel buf1 1
			DisableChannel buf1 0
			SetOperatorParam 'Delay' 'P1S' '0.5'
			SetOperatorParam 'Delay' 'P1E' '0.0'
			ProcessSample buf1
			IF RC=0 THEN buf2=RESULT
			ELSE buf2=-2
			RemoveBuffer buf1
		END
		ELSE Message '"Operator Delay failed !"'
		IF buf2>-1 THEN DO
			EnableChannel buf2 0
			RedrawBuffer buf2
			SetActiveBuffer buf2
			CleanUp 0
		END
		ELSE Message '"Operator Delay failed !"'
	END
	ELSE Message '"Stereo source required !"'
END
ELSE Message '"No sample to operate on !"'
ActivateSFX
EXIT