+ (define (relax voronoi n step)
+ "Relaxing central wards"
+ (cond ((> step 0)
+ (let* ((voronoi-points (voronoi-mesh-points voronoi))
+ (n-points (length voronoi-points))
+ (to-relax (cons (list-ref voronoi-points (- n-points n-patches))
+ (list-tail voronoi-points (- n-points 3)))))
+ (relax (voronoi-mesh-relax voronoi to-relax) n (- step 1))))
+ (else
+ voronoi)))
+