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

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

#include <math.h>

double gauss(rfun, sigma, xmu)
	double (*rfun)();
	double xmu, sigma;
{
	register int i;
	register double s = 0.0, rtn; 

	for (i = 0; i < 12; i++) 
		s += (*rfun)(0.0, 1.0);
	rtn = sigma*(s - 6.0) + xmu;

	return(rtn);
	}

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