/* SFX Integrate */

OPTIONS RESULTS
ADDRESS REXX_SFX

GetActiveBuffer
buf1=RESULT
IF buf1>-1 THEN DO
	GetLength buf1
	slen=RESULT
	GetRate buf1
	srat=RESULT
	GetChannels buf1
	cha=RESULT

	NewBuffer slen srat cha
	buf2=RESULT
	IF buf2>-1 THEN DO
		brk=0
		DO ch=0 TO cha
			IsChannelActive buf1 ch
			IF RESULT>0 THEN DO
				InitProWin slen '"Working on Integrate['ch']"'
				pwi=RESULT
				IF pwi>-1 THEN DO
					GetSampleValue buf1 ch 0
					oldval=RESULT
					DO pos=1 TO slen
						RefrProWin pwi pos
						IF RESULT=0 THEN DO
							GetSampleValue buf1 0 pos
							newval=RESULT
							int=oldval+(newval+newval)
							PutSampleValue buf2 0 pos int
							oldval=int
						END
						ELSE DO
							brk=1
							LEAVE pos
						END
					END
					RemoveProWin pwi
				END
				ELSE DO
					Message '"Can`t open ProceedWindow !"'
					LEAVE ch
				END
			END
			IF brk=1 THEN LEAVE ch
		END
		RedrawBuffer buf2
	END
	ELSE Message '"Can`t add samplebuffer !"'
END
ELSE Message '"No sample to operate on !"'
ActivateSFX
EXIT