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

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

#include "../H/ugens.h"
#include "../H/combs.h"
#include <math.h>

float loopt[6] = {.0297,.0371,.0411,.0437,.005,.0017};
float alprvt[2] = {.096835,.032924};

/* storage reqs for above are .1583*SR+18 */

rvbset(rvt,init,a)
float rvt,*a;
{
	float rvbtime,*apoint;
	int i;

	for(apoint=a, i=0; i<NCOMBS; i++) {
		rvbtime = (i<(NCOMBS-2)) ? rvt : alprvt[i-(NCOMBS-2)];
		combset(loopt[i],rvbtime,init,apoint);
		apoint += (int)*apoint;	
	}
}

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