This is delget.m in view mode; [Download] [Up]
extern float SR;
float delget(a,wait,l)
float *a,wait;
int *l;
{
/* get value from delay line, wait seconds old. */
register i = *l - (int)(wait * SR +.5);
if(i < 0) {
i += *(l+1);
if(i < 0) return(0);
}
return(*(a+i));
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.