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

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

/* First-order lowpass smoothing unit generator */

#include "ug.head.h"

#define IN 1
#define TAU 2
#define LASTOUT 3

smooth

UGHEAD{
    UGINIT;
    UGLOOP{
	VAL(LASTOUT) = VAL(IN) + VAL(TAU)*VAL(LASTOUT) ;
	VAL(OUT)++ = VAL(LASTOUT)*(1. - VAL(TAU) ) ;
    UGEND(1)
    }
}

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