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

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

#include "../H/combs.h"

float allpass(samp,a)
float samp,*a;
{
	float temp,*aptr;
	if ( a[STARTM1] >= (int) a[0]) a[STARTM1] = START;
	aptr = a + (int)a[STARTM1];
	a[STARTM1] ++; 
	temp = *aptr;
	*aptr = *aptr * a[1] + samp;
	return(temp - a[1] * *aptr);
}

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