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.