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

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

float reson(x,a)
float x,*a;
{
	float temp;
	temp = *a * x + *(a+1) * *(a+3) - *(a+2) * *(a+4);
	*(a+4) = *(a+3);
	*(a+3) = temp;
	return(temp);
}

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