sig
  module S : CCC
  type triangulation
  val triangulate : S.point array -> Delaunay.Triangulation.triangulation
  val iter :
    (S.point -> S.point -> unit) ->
    Delaunay.Triangulation.triangulation -> unit
  val fold :
    (S.point -> S.point -> '-> 'a) ->
    Delaunay.Triangulation.triangulation -> '-> 'a
  val iter_triangles :
    (S.point -> S.point -> S.point -> unit) ->
    Delaunay.Triangulation.triangulation -> unit
end