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

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

#include "../H/ugens.h"

fir(p,n_args)
float *p;
{
	/* p0=outstart, p1=dur, p2=inskip, p4=inchanneltoread, p4=outchanneltoread, p5-> = coefs */
	int i,input,output,nsamps,inchan,outchan;
	float pmfilt(),xin[4],out[4];
	double xxx,pmfilt2();
	input=0; output=1;
	nsamps=setnote(p[0],p[1],output);
	setnote(p[2],p[1],input);
	pmload(&p[5],n_args-5);
	inchan=p[3];
	outchan=p[4];
	for(i=0; i<nsamps; i++) {
		GETIN(xin,input);
		out[outchan] = pmfilt2(xin[inchan]);
		ADDOUT(out,output);
	}
	endnote(output);
}

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