examples/ex-94.rkt
#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))))