#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let* ((n 6) (P (lambda (d) (for/list ((i (in-range (+ 1 n)))) (rotate (/ (* i 360) n) (op* d 'right))))) (An (P '1cm)) (Bn (P '2cm))) (define (draw-point x) (draw x #:withpen (scale '4bp 'pencircle))) (map draw-point An) (map draw-point Bn) (for ((Ai (in-list An)) (Ai+1 (in-list (cdr An))) (Bi (in-list Bn)) (Bi+1 (in-list (cdr Bn)))) (draw (op-- Ai Ai+1 Bi+1 Bi)))))