examples/ex-93.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let ((u '3mm)
        (mickey (unknown-picture))
        (T (unknown-transform)))
    (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))
    (eqn= (transform T (point 0 0 )) (point 0 0))
    (eqn= (transform T (point 1 0 )) (point 1 1))
    (eqn= (transform T (point 0 1 )) (point 1 0))
    (draw (transform T mickey))))