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