#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= (xpart T) (ypart T)  0)
    (eqn= (xxpart T) 1)
    (eqn= (yxpart T) 2)
    (eqn= (xypart T) 3)
    (eqn= (yypart T) 4)
    (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)))))