#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let* ((u '1cm) (n 7) (A0 (point u 0)) (An (map (lambda (i) (rotate (/ (* 360 i) n) A0)) (stream->list (in-range n))))) (for ((Ai (in-list An))) (draw Ai #:withpen (scale '4bp 'pencircle))) (for* ((i (in-range n)) (j (in-range n))) (when (not (= i j)) (draw (op-- (list-ref An i) (list-ref An j)))))))