#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((c0 (fullcircle '1cm (point 0 '1cm) 1 0.5))
         (c1 (rotate 120 c0))
         (c2 (rotate 120 c1))
         (A (point '-0.5cm '1cm))
         (l0 (path A (dir-spec 'down) '..
                   (rotate 120 (xscale -1 A)) (dir-spec (rotate 120 (op* -1 'down)))))
         (l1 (rotate 120 l0))
         (l2 (rotate 120 l1)))
    (for ((x (in-list (list c0 c1 c2  l0 l1 l2
                            ))))
         (draw x)
         )))