ftp.nice.ch/pub/next/unix/audio/cmix.s.tar.gz#/cmix/sys/fnscl.c

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

#include "../H/ugens.h"
fnscl(gen)
register struct gen *gen;
{
	double fabs();
	int j;
	float wmax,xmax = 0;
	if(gen->slot < 0) return;
	for(j = 0; j < gen->size; j++) {
		if ((wmax = fabs(gen->array[j])) > xmax) xmax = wmax;
	}
	for(j = 0; j < gen->size; j++) {
		gen->array[j] /= xmax;
	}
}

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