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

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

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

combset(loopt,rvt,init,a)
float loopt,*a,rvt;
{
	int j;

	a[0] =  ((float)START + (loopt * SR + .5));
	a[1] = (float)pow(.001,(double)(loopt/rvt));
	if(!init) { 
		for(j=START; j<(int)*a; j++)  a[j] = 0;
		a[STARTM1] = START;
	}
}

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