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

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

#include <math.h>

double lin(rfun, g)
	double (*rfun)();
	double g;
{
	register double rtn; 

	rtn = g * (1.0 - sqrt((*rfun)(0.0, 1.0)));

	return(rtn);
	}

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