This is delset.m in view mode; [Download] [Up]
extern float SR;
delset(a,l,xmax)
float *a,xmax;
int *l;
{
/* delay initialization. a is address of float array, l is size-2 int
* array for bookkeeping variables, xmax, is maximum expected delay */
int i;
*l = 0;
*(l+1) = (int)(xmax * SR + .5);
for(i = 0; i < *(l+1); i++) *(a+i) = 0;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.