V8/usr/src/cmd/ideal/lib/hole

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