ftp.nice.ch/pub/next/unix/audio/Cmix.N.s.tar.gz#/cmix/lib/hpluck.c

This is hpluck.c in view mode; [Download] [Up]

float hpluck(xin,q)
float xin,*q; 
{
	float temp;
	int ip;
	q[0]++;
	if(*q <= q[1]) ip = *q;
	else *q = ip = 20;
	q[7] = (1.-q[8]) * q[ip] + q[8] * q[7];
	temp = q[9] * (q[2] * q[ip] + q[3] * q[6]);
	q[6] = q[ip];
	q[ip] = q[10] * temp + q[4] - q[10] * q[5];
	q[5] = q[ip] = xin + q[ip];
	q[4] = temp;
	return(q[7]);
}

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