This is XWSpaceGen.m in view mode; [Download] [Up]
#import "XWSpaceGen.h" @implementation XWSpaceGen - activate:sender :(int)tag { xrate = randBetween(-5, 5); yrate = randBetween(-5, 5); return [super activate:sender :tag]; } - oneStep { float oldgx = gx, oldgy = gy; gx = (myGx += xrate * timeScale); gy = (myGy += yrate * timeScale); [super oneStep]; gx = oldgx; gy = oldgy; return self; } @end
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.