/* SFX WideStereo */


OPTIONS RESULTS
ADDRESS REXX_SFX

GetActiveBuffer
buf1=RESULT
IF buf1>-1 THEN DO
	GetChannels buf1
	cha=RESULT
	IF cha=1 THEN DO
		SelOperator 'ConvertChannels'
		SetOperatorParam 'ConvertChannels' 'Dest' '1'
		ProcessSample buf1
		IF RC=0 THEN buf1=RESULT
		ELSE buf1=-2
		buf2=-1
		IF buf1>-1 THEN DO
			DisableChannel buf1 1
			SelOperator 'Invert'
			SetOperatorParam 'Invert' 'P1S' '1.0'
			SetOperatorParam 'Invert' 'P1ModShape' 'None'
			ProcessSample buf1
			IF RC=0 THEN buf2=RESULT
			ELSE buf2=-1
			RemoveBuffer buf1
		END
		ELSE Message '"Operator ConvertChannels failed !"'
		IF buf2>-1 THEN DO
			EnableChannel buf2 1
			RedrawBuffer buf2
			SetActiveBuffer buf2
			CleanUp 0
		END
		ELSE Message '"Operator Invert failed !"'
	END
	ELSE Message '"Mono source required !"'
END
ELSE Message '"No sample to operate on !"'
ActivateSFX
EXIT