#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((A (point 0 '1cm))
         (B (rotate 120 A))
         (p (path A (dir-spec (dir 0)) '..
                  'tension 2 '..
                  B (dir-spec (dir 120)))))
    (for ((p (in-list (list p (rotate 120 p) (rotate -120 p)))))
         (draw p))
    ))