This is oscilni.c in view mode; [Download] [Up]
float oscilni(amp,si,farray,len,phs)
float amp,si,*farray,*phs;
register len;
{
register i = *phs;
register k = (i + 1) % len;
float frac = *phs - i;
*phs += si;
while(*phs >= len)
*phs -= len;
while(*phs < 0)
*phs += len;
return((*(farray+i) + (*(farray+k) - *(farray+i)) *
frac) * amp);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.