Sorry your browser is not supported!

function mix_16bit_mono_wav(src ,dest ,snum)

make memblock from sound src,src
make memblock from sound dest,dest
size1 = get memblock size(src)-28
size2 = get memblock size(dest)-28

if size1 > size2
	size = get memblock size(dest)-28
else

	size = get memblock size(src)-28
	
endif


for i = 28 to size step 4
	data1 = memblock dword(src,i)
	data2 = memblock dword(dest,i)
	write memblock dword src,i,data1+data2
next i 

make sound from memblock snum,src
delete memblock src
delete memblock dest
endfunction 

function cutsamplesection(snum,startpos,endpos)

	mb = 1
	make memblock from sound mb,snum
	size = get memblock size(mb)
	bytespersec = memblock dword(mb,8)*2
	startpos = startpos * bytespersec / 1000
	endpos = endpos * bytespersec / 1000
	cutsize = endpos - startpos 
    	
	if cutsize > size 
	 exitfunction 
	endif 
    
	 
	copy memblock mb,mb,startpos,28,cutsize 
	
	for i = cutsize to size- 1
	write memblock byte mb,i,0
	next i
	
	make memblock 2,cutsize+28
	copy memblock mb,2,0,0,cutsize
	
	make sound from memblock snum ,2
	delete memblock mb
	delete memblock 2
	
endfunction