+ (make-raw-voronoi-mesh
+ triangles
+ points
+ frame
+ (make-regions points triangles))))
+
+(define* (voronoi-mesh-relax voronoi #:optional (to-relax '()))
+ voronoi)
+
+(define* (make-regions points triangles #:optional (regions '()))
+ (cond ((null? points)
+ regions)
+ (else
+ (let* ((p (car points))
+ (vertices (filter
+ (lambda (tr) (member p (triangle-points tr)))
+ triangles))
+ (region (make-voronoi-region p vertices)))
+ (make-regions (cdr points)
+ triangles
+ (alist-cons p region regions))))))