#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '3mm)
         (p (fullcircle (op* 2 u)))
         (p2 (scale 0.5 p)))
    (for ((x (in-list (list p
                            (shift (op* u (dir 30)) p2)
                            (shift (op* u (dir 150)) p2)
                            ))))
         (fill x #:withcolor (op* 0.8 'white)))))