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

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

/* Logarithm unit generator */

#include "ug.head.h"
#include <math.h>

#define IN 1

logar

UGHEAD{
    UGINIT;
    UGLOOP{ float lastin = 1., lastout = log( 1. ) ;
	if ( VAL(IN) != lastin ) {
	    lastin = VAL(IN) ;
	    VAL(OUT)++ = lastout = log( (double) lastin ) ;
	} else
	    VAL(OUT)++ = lastout ;
    UGEND(1)
    }
}

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