(* Delaunay triangulation. *) INTERFACE Delaunay; (* See "Primitives for the Manipulation of General Subdivisions and the Computation of Voronoi Diagrams" L. Guibas, J. Stolfi, ACM TOG, April 1985 Implemented by Jim Roth (DEC CADM Advanced Group) on May 1986. Adapted by J. Stolfi on April 1993. *) IMPORT QuadEdge; TYPE Arc = QuadEdge.Arc; Site = RECORD x, y: REAL END; PROCEDURE Build (READONLY site: ARRAY OF Site): Arc; (* Quad-edge data pointers: *) PROCEDURE Org (e: Arc): REF Site; PROCEDURE Dest (e: Arc): REF Site; END Delaunay.