#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((n 5)
         (alpha (/ (* 2 360) n))
         (A (point 0 '1cm))
         (B (rotate alpha A))
         (p (path A (dir-spec (dir 180)) '..
                  'tension 4 '..
                  B (dir-spec (dir (+ 180 alpha))))))
    (draw p #:withcolor 'red)
    (for ((i (in-range 1 5)))
         (draw (rotate (* i (/ 360 n)) p)))
    ))