V8/usr/src/cmd/ideal/lib/c

.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