ftp.nice.ch/pub/next/unix/audio/cmix.s.tar.gz#/cmix/macros/delmacros.h

This is delmacros.h in view mode; [Download] [Up]

int ii,im1;
float xx,xfrac;

#define DELPUT(x,a,l)\
	*(a + (*l)++) = x;\
	if(*(l) >= *(l+1)) *l -= *(l+1);

#define DELGET(a,wait,l,result)\
	ii = *l - (int)(wait * SR +.5);\
	if(ii < 0)  {\
		ii += *(l+1);\
		if(ii < 0) result = 0; }\
	if(ii >= 0) result = (*(a+ii));

#define DLIGET(a,wait,l,result)\
	xx = wait * SR;\
	ii = xx;\
	xfrac = xx - ii;\
	ii = *l - ii;\
	im1 = ii - 1;\
	if(ii <= 0) {\
		if(ii < 0) ii += *(l+1);\
		if(ii < 0) result = 0.;\
		if(im1 < 0) im1 += *(l+1); }\
	if(ii >= 0) result = (*(a+ii) + xfrac * (*(a+im1) - *(a+ii)));

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