/* SFX External Operator Test */

OPTIONS RESULTS

ADDRESS REXX_SFX

GetActiveBuffer
buf1=RESULT
IF buf1>-1 THEN DO
	SelOperator 'Amplify'
	SetOperatorParam 'Amplify' 'P1S' '"200 %"'
	SetOperatorParam 'Amplify' 'P1E' '"10 %"'
	SetOperatorParam 'Amplify' 'P1ModShape' 'Linear'
	ProcessSample buf1
	IF RC=0 THEN DO
		buf2=RESULT
		RenameBuffer buf2 '"Amplified sample"'
	END
	ELSE Message '"Operator Amplify failed !"'
END
ELSE Message '"No sample to operate on !"'
ActivateSFX												/* fertig */
EXIT