ftp.nice.ch/pub/next/unix/audio/cmix.s.tar.gz#/cmix/lpc/mp.c

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

#include "/musr/H/ugens.h"
float basis;

double mp(p,n_args)
float *p;
/* minc function to return pitch +basis mod12 */
{
	float pch;
	int num,oct;
	oct = (int)p[0]/12;
	num = (int)p[0] % 12;
	pch = pchoct((float)num/12. + basis + oct);
printf("%d %f %f %f\n",num,pch,p[0],basis);
	return(pch);
}
mpset(p,n_args)
float *p;
{
	basis = p[0];
}

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