Return to psych.c CVS log

Up to [Research Unix] / researchv10no / games

researchv10 Norman

/*
	psych - draw pretty pictures on 4014

	compile as cc psych.c -lm -l4014
		could use other plot-type library

*/
#include "stdio.h"

char	obuf[BUFSIZ];

main() {
	int c;
	float g, fact, d, z, b;
	float x, y, limit = 0.25;
	int xx, yy;
	double sin(), cos();
	int i, first;
	long time(), t;

	setbuf(stdout, obuf);
	time(&t);
	srand(t&0177777);
  top:
	g = ((float)rand()/32767.) * 10;
	fact = ((float)rand()/32767.) * 20;
	erase();
	d = 0.1;
	z = 0;
	first = 0;
	for (i = 1; i <= 500; i++) {
		b = (z-110) / 1.57;
		z += g;
		g = (0-g) * fact;
		fact = 1 / fact;
		d *= 1.01;
		x = d * cos(b);
		y = d * sin(b);
		if (x*x > limit || y*y > limit)
			break;
		xx = (x+0.5) * 3120 + 500;
		yy = (y+0.5) * 3120;
		if (first == 0)
			move(xx, yy);
		cont(xx, yy);
		first = 1;
	}
	printf("\015");	/* out of plot mode */
	fflush(stdout);
	while ((c=getchar()) != '\n' && c!=EOF)
		;
	if(c == '\n')
		goto top;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.