#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (let ((mickey (new-picture (lambda () (let ((u '3mm)) (for ((p (in-list (list (fullcircle (op* 2 u)) (fullcircle u (polar u 150)) (fullcircle u (polar u 30)))))) (fill p #:withcolor (op* 0.8 'white))))))) (T (unknown-transform))) (for ((v1 (in-list (list (point 0 0) (point 1 0) (point 0 1)))) (v2 (in-list (list (point 0 0) (point 1 1) (point 1 0))))) (eqn= (transform T v1) v2)) (draw (transform T mickey))))