#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))
         (Tx (unknown-transform))
         (p  (op-- A  B  C  D  'cycle))
         )
    (eqn= (transform Tx A)
          (mediation 1/5 A B))
    (eqn= (transform Tx B)
          (mediation 1/5 B C))
    (eqn= (transform Tx C)
          (mediation 1/5 C D))
    (for/fold
        ((p p))
        ((i (in-range 0 100)))
      (draw p)
      (transform Tx p))
    ))