examples/ex-84.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '2cm)
         (A (point 0 0))
         (B (point u 0))
         (C (point u u))
         (D (point 0 u))
         (T (unknown-transform))
         (p  (op-- A  B  C  D  'cycle))
         )
    (eqn= (transform T A)
          (mediation 1/5 A B))
    (eqn= (transform T B)
          (mediation 1/5 B C))
    (eqn= (transform T C)
          (mediation 1/5 C D))
    (draw p)
    (draw (transform T p))))