#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)))))