ftp.nice.ch/pub/next/unix/audio/cmix.s.tar.gz#/cmix/proto/Oscilisub.m

This is Oscilisub.m in view mode; [Download] [Up]

#import <objc/objc.h>

#import "Oscili.h"

mmain ( )
{
	id aOscili;
	id bOscili;
	int i;
	float *xx;
	float x[512];
	for(i=0; i<512; i++) x[i] = i;
	xx = (float *) x;

	aOscili = [ Oscili create ];
	[aOscili si : 10.];
	[aOscili amp : 20.];
	[aOscili phs : 10.];
	[aOscili floc :xx ];
	bOscili = [ Oscili create ];
	[bOscili si : 12.];
	[bOscili amp : 20.];
	[bOscili phs : 10.];
	[bOscili floc :xx ];

	for(i=0; i<500000; i++) [aOscili value ];

} 	// end of program

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