ftp.nice.ch/pub/next/unix/audio/cmusic.bs.N.tar.gz#/src/cmusic/ug.integ.c

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

/* Integration MOD N Generator */

#include "ug.head.h"

#define	IN	1
#define	LIM	2
#define	SUM	3

integ
UGHEAD{
    UGINIT;
    if(STARTNOTE) VAL(SUM) = 0;
    UGLOOP{
	VAL(SUM) += VAL(IN);
	while(VAL(SUM) >= VAL(LIM))VAL(SUM) -= VAL(LIM);
	while(VAL(SUM) <= -VAL(LIM) )VAL(SUM) += VAL(LIM);
	VAL(OUT) = VAL(SUM);
	UGEND(0);
    }
}

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