#ifndef lint
static char *sccsid = "@(#)testpoly.c	1.1 (UKC) 9/12/87";
#endif  lint
double drandom();	/* return random number -1.0 .. 1.0 */

genpoly()
{
	double z;
	double xA, xB, xC;
	double yA, yB, yC;

	srandom(time(0));

	for (z = -1.0; z <= 1.0; z += 0.1) {
		xA = drandom(); yA = drandom();
		xB = drandom(); yB = drandom();
		xC = drandom(); yC = drandom();
		addtri(xA, yA, z, xB, yB, z, xC, yC, z);
		addline(xA, yA, z, xB, yB, z);
		addline(xB, yB, z, xC, yC, z);
		addline(xC, yC, z, xA, yA, z);
	}
}

double
drandom()
{
	return( (double)(random() % 65536) / 65536);
}