+ ; Relaxing central wards
+ ;; (let relax ((step relax-steps))
+ ;; (cond ((> step 0)
+ ;; (relax (- step 1)))
+ ;; (else
+ ;; #t)))
+ (make-raw-voronoi-mesh
+ triangles
+ points
+ frame
+ (make-regions points triangles))))
+
+(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)))
+ (display p)(newline)
+ (make-regions (cdr points)
+ triangles
+ (cons (make-voronoi-region p vertices) regions))))))