ftp.nice.ch/pub/next/unix/audio/cmix.s.tar.gz#/cmix/lib/boscili.m

This is boscili.m in view mode; [Download] [Up]

boscili(amp,si,farray,len,phs,array,alen)      
float amp,si,*farray,*phs,*array;
register len,alen;
{
        register i,j,k;
        float frac,temp;
        float *fp = array; 
        temp = *phs;
        for (j=alen;j>0;--j) { 
		i =  temp;        
       		k =  (i + 1) % len;  
		frac = temp  - i;      
		temp += si;                 
		while(temp >= len)
			temp -= len;       
 		*fp++ = ((*(farray+i) + (*(farray+k) - *(farray+i)) *
		frac) * amp);
        	}
        *phs=temp;
        return(j);
	}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.