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

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

#include "../macros/macros.h"

float reverb(xin,a)
float xin,*a;
{
	float *apoint,w,x,y,z;

	apoint = a;
	COMB(w,xin,apoint);
	apoint += (int)*apoint;
	COMB(x,xin,apoint);
	apoint += (int)*apoint;
	COMB(y,xin,apoint);
	apoint += (int)*apoint;
	COMB(z,xin,apoint);
	apoint += (int)*apoint;
	w += x+y+z;
	ALLPASS(x,w,apoint);
	apoint += (int)*apoint;
	ALLPASS(y,x*.25,apoint);
	return(y);
}

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