ftp.nice.ch/pub/next/unix/audio/cmusic.bs.N.tar.gz#/src/lib/libran/cauchy.c

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

#include <math.h>

double Pi;

double cauchy(rfun, tau,iopt)
	double (*rfun)();
	double tau, iopt;
{
	static int first=1;
	double u, rtn;

	if (first) { first=0; Pi = 4.0 * atan(1.0); }

	u = (*rfun)(0.0, 1.0);
	if (iopt == 1.0) u /= 2.0;
	u *= Pi;
	rtn = tau * tan(u);

	return(rtn);
	}

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