#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let ((u '3mm)
        (mickey (unknown-picture)))
    (addto mickey 'contour (fullcircle (op* 2 u))
           #:withcolor (op* 0.8 'white))
    (addto mickey 'contour (fullcircle u (polar u 150))
           #:withcolor (op* 0.8 'white))
    (addto mickey 'contour (fullcircle u (polar u 30))
           #:withcolor (op* 0.8 'white))
    (draw mickey)))