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