Return to circle CVS log

Up to [Research Unix] / researchv10no / cmd / ideal / lib

researchv10 Norman

.IS
...libfile CIRCLE
circle {
	var radius, center,
	z1, z2, z3;
	put CIRCLE {
	};
	boundary = center + radius,
		^ center + (0,1)*radius,
		center - radius,
		^ center - (0,1)*radius
	;
}
.IE

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