#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '3mm)
         (p (fullcircle (op* 2 u)))
         (p2 (scale 0.5 p))
         (T (unknown-transform)))
    (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))
    (for ((p (in-list (list p
                            (shift (op* u (dir 30)) p2)
                            (shift (op* u (dir 150)) p2)
                            ))))
         (fill (transform T p) #:withcolor (op* 0.8 'white)))))