examples/ex-135.rkt
#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)))))